پيمايش فرم با 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]

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

پيمايش عمودي فرم :

[COLOR=#007700][FONT=monospace]Private [/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]Sub UserForm_Activate[/FONT][/COLOR][COLOR=#007700][FONT=monospace]()
[/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]With Me
[/FONT][/COLOR][COLOR=#007700][FONT=monospace].[/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]ScrollBars [/FONT][/COLOR][COLOR=#007700][FONT=monospace]= [/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]fmScrollBarsVertical
[/FONT][/COLOR][COLOR=#007700][FONT=monospace].[/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]ScrollHeight [/FONT][/COLOR][COLOR=#007700][FONT=monospace]= .[/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]InsideHeight [/FONT][/COLOR][COLOR=#007700][FONT=monospace]* [/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]2
End With
End Sub [/FONT][/COLOR][RIGHT][COLOR=#333333][/COLOR][/RIGHT]

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

[Skynet]

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

پيمايش عمودي فرم :

[COLOR=#007700][FONT=monospace]Private [/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]Sub UserForm_Activate[/FONT][/COLOR][COLOR=#007700][FONT=monospace]()
[/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]With Me
[/FONT][/COLOR][COLOR=#007700][FONT=monospace].[/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]ScrollBars [/FONT][/COLOR][COLOR=#007700][FONT=monospace]= [/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]fmScrollBarsVertical
[/FONT][/COLOR][COLOR=#007700][FONT=monospace].[/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]ScrollHeight [/FONT][/COLOR][COLOR=#007700][FONT=monospace]= .[/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]InsideHeight [/FONT][/COLOR][COLOR=#007700][FONT=monospace]* [/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]2
End With
End Sub [/FONT][/COLOR]

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

[ATTACH=CONFIG]14468[/ATTACH]

باسلام و احترام
با تشکر ویژه از اساتید محترم در حل سوال اینجانب :
jansiz hayat
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