ايران ويج

ايران ويج > برنامه نویسی > ويژوال بيسيك > اسکرول تکست باکس
نسخه‌ی کامل: اسکرول تکست باکس
شما در حال مشاهده‌ی نسخه‌ی متنی این صفحه می‌باشید. مشاهده‌ی نسخه‌ی کامل با قالب بندی مناسب.

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 باشد.

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

[attachment=6691]

HamedFaa

۱۳-شهریور-۱۳۹۰, ۱۱:۰۶:۱۵
ممنون لطف کردید. عالی بود
ايران ويج > برنامه نویسی > ويژوال بيسيك > اسکرول تکست باکس