مچ شدن پنل و لیبل با متن

[amir00700 66]

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

یعنی متن بلند بود اون بلند بشه و متن کوتاه بود اون کوتاه بشه

ممنون میشم کمک کنید

نیازی بود نمونه سورس هم میزارم

[علی علایی 161]

اگه خواستی  سورستو پ خ کن تا برات تکمیلش کنم  

[amir00700 66]

اگه خواستی  سورستو پ خ کن تا برات تکمیلش کنم  

اکانت قبلیم خراب شده این اکانت جدیدمه برای پ.خ میگه تعداد پست کافی نیست

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

اگه خواستی  سورستو پ خ کن تا برات تکمیلش کنم  

پ خ چرا دوستم ؟

شاید مشکل همین دوستمون مشکل خیلیا باشه و خوبه که همینجا پاسخشون رو بدید تا بقیه هم مشکلی رو اگه از این بابت دارند حل بشه

ممنون

[amir00700 66]

این سورس

 

 

دانلود

[nany12 623]

این مشکل منم بود

تو انجمن خیلی زیاد بحث شده در مورد این موضوع ولی من به هیچ نتیجه ای نرسیدم

[amir00700 66]

خب لیبل رو ک میشهبا متن مچ کرد

راهی هست پنل هم همین اتفاق براش بیوفته و با لیبل مچ بشه اندازش؟

البته یکی نه

با حلقه فور

[حاج حسین 2,098]

با تکه کدی که میدم هر لیبلی که توپنل باشه کش میاد 

حالا میخاد متن کم یا زیاد باشه 

اول اینو تو هر لایوتی که میخای وارد کن ( کتابخونه رفلکشن فعال باشه)

Sub art(txt As String,leb As Label,font As Typeface,size As Int) As Float      
Dim before,after As Float
	Dim Obj1 As Reflector
		leb.text=txt
		leb.TextSize=size
		leb.Gravity=Gravity.CENTER
		leb.Left=leb.Left
		leb.Typeface=font
	ht = StrUtil.MeasureMultilineTextHeight(leb , txt)
            Obj1.Target = leb  
            before = Obj1.RunMethod("getLineHeight")    'Get the height of line BEFORE you change it
            Obj1.Target = leb 
            Obj1.RunMethod3("setLineSpacing", .10, "java.lang.float", 1.5, "java.lang.float")  'Change the space between lines
            Obj1.Target = leb 
            after = Obj1.RunMethod("getLineHeight")    'Get the height of line AFTER  you change it
            ht = ((after * ht)/before)
		leb.Height = ht
Return  ht

End Sub

بعد اینو تو حلقه پنلت بزار

ht=art(text,Label1,myfont,20)

تکس: همون متنی که تو پنلته (مثلا sms )

لیبل1: لیبلی که تو پنل آوردی 

مای فونت: 

myfont = Typeface.LoadFromAssets("byekan.ttf")

20 که سایزشه 

تمام