تنظیم خودکار ارتفاع دو لیبل پشت سر هم در یک پنل از طریق ScrollView

[jmfnima 7]

با سلام به همه دوستان

من دو فیلد آیه و ترجمه آیه در داخل دیتابیس دارم که می خوام هر آیه با ترجمه مربوطه در داخل دو لیبل پشت سر هم در داخل یک پنل و از طریق اسکرول ویو نمایش داده بشه حالا با توجه به اینکه امکان کوچک بودن و طولانی بودن آیه با ترجمه مربوط به آن ، وجود دارد لیبل های مربوطه پشت سر هم به صورت خودکار ارتفاعشون تغییر کنه .

[Mohsen27 199]

سلام دوست عزیز.

شما میای با کتابخونه stringutils که کارش گرفتن height لیبل هست  height هر دو لیبل رو با این کتابخونه میگیری و و به اسکرول میگی که hright هر دو رو با هم جمع کنه و نمایش بده.

اینم کدش:

Dim stringutils As StringUtils
aye.height=stringutils.MeasureMultilineTextHeight(aye,aye.text)'aye  hamoon labeli ke aye toosh hast
tajome.height=stringutils.MeasureMultilineTextHeight(tarjome,tarjome.text)
scrollview1.panel.height=aye.height+tajome.height

موفق باشی