ایجاد کاراکتر اضافی در تنظیم ارتفاع لیبل مولتی پنل

[iraj_astara 97]

سلام

وقتی کد اندازه لیبل رو داخل حلقه For میزارم کد های کاراکتر چیدمان رو هم با خودش  load میکنه ، اندازه label بخوبی auto میشه ولی این کد ها نمیدونم از کجا میان ، از کد stu.MeasureMultilineTextHeight هم برای تنظیم ارتفاع استفاده میکنم     ، وقتی هم از حلقه بیرون میزارم ، پنل آخری رو بدون این کد ها نشون میده

این هم عکس

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

 

[Nemesis 1,846]

فکر کنم ابتدای پنلت رو مساوی با textview گذاشتی چون این پیغام لاگ یه وییو هست

[iraj_astara 97]

تو حالت معمولی بدون تنظیم ارتفاع همچین لوگی نمیده ، از این متد هم استفاده کردم واسه تنظیمش با چند تا متد دیگه هم تست کردم همین بود

آخه از حلقه بیرون میارم این کد رو SetTextSize(lblBody, lblBody) ،ارتفاع  پنل آخری رو باید تنظیم کن دیگه ، تو پنل آخری همچین لوگی نمی افته

SetTextSize(lblBody, lblBody)



	Sub SetTextSize(lbl As Label, txt As String)
  Dim dt As Float
  Dim limit = 10 As Float
  Dim h As Int

  lbl.Text = txt
  lbl.TextSize = 14
  dt = lbl.TextSize
  h = stu.MeasureMultilineTextHeight(lbl, txt)
  Do While dt > limit Or h > lbl.Height
    dt = dt / 2
    h = stu.MeasureMultilineTextHeight(lbl, txt)
    If h > lbl.Height Then
      lbl.TextSize = lbl.TextSize - dt
    Else
      lbl.TextSize = lbl.TextSize + dt
    End If
  Loop