پيمايش فرم با 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
پيروز باشيد.

[Skynet]

با سلام و احترام
خیلی ممنونم از مطلب عالیتون
اگر امکانش هست در یک فایل نمونه این مطالب رو نشون بدید مثلا در این پست :

http://forum.exceliran.com/showthread.php/10935-%D8%AF%D8%B1-%D8%AE%D9%88%D8%A7%D8%B3%D8%AA-%D9%81%D8%B1%D9%85-%D9%88%D8%B1%D9%88%D8%AF-%D8%B3%D8%A7%D8%AF%D9%87%D8%8C-%D8%A8%D8%AF%D9%88%D9%86-%D9%88%D8%B1%D9%88%D8%AF-%D8%A7%D8%B7%D9%84%D8%A7%D8%B9%D8%A7%D8%AA-%D8%AA%D9%88%D8%B3%D8%B7-%DA%A9%D8%A7%D8%B1%D8%A8%D8%B1-!
خیلی ممنونم

[Skynet]

سلام جناب پارسا
اگر امکانش هست لطفا راهنمایی بفرمایید چطور میتونم از کد
پيمايش عمودي فرم :

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

در این فرم ساخته شده استفاده کنم، خیلی ممنونم
14468

[Skynet]

سلام جناب پارسا
اگر امکانش هست لطفا راهنمایی بفرمایید چطور میتونم از کد
پيمايش عمودي فرم :


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

در این فرم ساخته شده استفاده کنم، خیلی ممنونم

14468


باسلام و احترام
با تشکر ویژه از اساتید محترم در حل سوال اینجانب :
jansiz hayat (http://forum.exceliran.com/member.php/3216-jansiz-hayat)
Amir Ghasemiyan (http://forum.exceliran.com/member.php/9953-Amir-Ghasemiyan)
مشکل مربوطه در این پست بصورت کامل حل گردید:
http://forum.exceliran.com/showthread.php/10967-%D8%A7%DB%8C%D8%AC%D8%A7%D8%AF-%D8%AA%D8%A8-%D9%87%D8%A7%DB%8C-%D9%85%D8%B3%D8%AA%D9%82%D9%84-%D8%AF%D8%B1-%D9%81%D8%B1%D9%85-!?p=56084#post56084

14543