[سوال] اسکرول تکست باکس

[HamedFaa]

سلام

وقتی برنامه در حال اجرا هست چطور میتونم تعداد اسکرول های تکست باکس رو تغییر بدم.

مثلا تکست باکس من اسکرول دو طرف (both - راست و پایین) رو داره، میخوام وقتی روی یک command کلیک شد اسکرول پایین برداشته بشه(vertical).

فکر میکردم Text1.ScrollBars = 2 باشه ولی اررور میده:
Compile error:
Can't assign to read-only property

مرسی

[Di Di]

دوست عزیز

با استفاده از تابع ShowScrollBar می تونید این کار رو انجام بدید.

برای این کار ابتدا این تابع API رو در قسمت General فرم قرار بده :

کد php:

Private Declare Function ShowScrollBar Lib "user32" & _ 
(ByVal hwnd As Long, ByVal wBar As Long, ByVal bShow As Long) As Long 


سپس در Command Button دلخواه، این تابع رو به شکل زیر فراخوانی کن:

کد php:

ShowScrollBar Text1.hwnd, ScrollBar_Mode, ScrollBar_Visable 


در تابع بالا منظور از ScrollBar_Mode حالت اسکرول بار مورد نظرتون هست که می تونه یکی مقادیر زیر باشه :

کد php:

Horizontal = 0
Vertical = 1
Both ( Vertical & Horizontal ) = 3 


همچنین مقدار ScrollBar_Visable می تواند True یا False باشد.

این هم سورس کد مثال بالاست.


  ScrollBar_With_API.zip (اندازه: 1.36 KB / تعداد دفعات دریافت: 72)

[HamedFaa]

ممنون لطف کردید. عالی بود