پيمايش فرم با scroll bar

[Ali Parsaei]

يکي از استفاده هاي ابزار SCROLL BAR اين است که مي توان آن را مستقيما" در کادر اصلي فرمها به کار برد و براي پيمايش عمودي و افقي فرم از آن بهره جست، براي اين کار بايد کد زير را در رويداد Activate يوزرفرم نوشت:
براي پيمايش افقي

Private Sub UserForm_Activate()
With Me
.ScrollBars = fmScrollBarsHorizontal
.ScrollWidth = .InsideWidth * 2
End With
End Sub 

و براي پيمايش عمودي

Private Sub UserForm_Activate()
With Me
.ScrollBars = fmScrollBarsVertical
.ScrollHeight = .InsideHeight * 2
End With
End Sub 

و براي داشتن هر دو مورد با هم

Private Sub UserForm_Activate()
With Me
.ScrollBars = fmScrollBarsBoth
.ScrollHeight = .InsideHeight * 2
.ScrollWidth = .InsideWidth * 2
End With
End Sub 

عدد دو نمايانگر اين است که چه کسري از کل محدوده قابل پيمايش در آن واحد جلو ديد باشد و مي توانيد آن را اضافه کنيد، مثلا" اگر به جاي 2 عدد سه بنويسيد يعني فقط يک سوم کل محدوده جلو ديد باشد و مابقي با SCROLL BAR پيمايش شود. اگر آن را به يک تغيير دهيد کل محدوده در ديد قرار خواهد گرفت و عملا" ديگر SCROLL BAR بي معني خواهد بود، پس حداقل بايد عدد 2 را وارد کنيد.
ضمنا" SCROLL BAR ها را مي توان براي فريم هاي داخل يوزرفرم هم به کار بست، براي اين کار همان کدهاي فوق را به کار ببنديد فقط نام فريم مربوطه را بعد از عبارت With Me در کد ها اضافه کنيد، مانند:
With Me.Frame1
پيروز باشيد.

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.