اسکرول نشدن لیبل

[bahman2012 13]

سلام دوستان

من تو برنامم برای متن طولانی داستانها از لیبیل استفاده کردم حالا چیکار کنم اسکرول بشه؟؟ چون فقط به اندازه صفحه نمایش متن رو نشون میده (( برخلاف ایکلیپس که خودش اسکرول میکنه)

داستانها هر کدوم ارتفاع متفاوت دارند چطور ی اگه فرضا لیبل رو به اسکرول نسبت دادم ارتفاعشو خودکار خودش ست کنه

ممنون میشم اگه راهنمایی کنید

[مجید آرتا 5,874]

خب کتابخونه StringUtils رو فعال کن.

این کد میاد اولا لیبل رو هم اندازه متنت میکنه و بعد ارتفاع اسکرول ویو رو هم اندازه لیبل می کنه:

Dim su As StringUtils
Dim h As Int = su.MeasureMultilineTextHeight(lbl1,lbl1.text)
lbl1.height = h
sv1.Panel.height = h

[bahman2012 13]

دمت گرم

ولی ای کاش این مسائل پیش پا افتاده رو خودشون بدون کتابخونه حل میکردن