رفتن به مطلب
  • 0

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


amir00700

سوال

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

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

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

7 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

پ خ چرا دوستم ؟

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

ممنون

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

البته یکی نه

با حلقه فور

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

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

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 که سایزشه 

تمام 

:ok:

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...