تعیین اندازه چند لیبل در مولتی پنل باتگ b4a

سوال

سلام

سه تا لیبل دارم در مولتی پنل میخوام بگم لیبلی که تگش برابر با۲ هست تاپش برابر باشه با اندازه لیبلی که تگش برابر با۱ هست درحالت عادی بدون تگ وسندر به این شکله

lbl2.top=lbl1.heigh+lbl1.top+3%y

لطفا یکی با کد راهنمایی کنه🙏

در حال بررسی 0
, ۱۳۹۸/۵/۲۷ ۲۲:۲۰:۰۵ 1 پاسخ ها کاربر تازه 0

پاسخ ها ( 1 )

  1. morteza
    0
    ۱۳۹۸/۵/۲۹ ۲۳:۴۴:۱۴
    پاسخ

    سلام.

    این سه تا لیبل، در هربار اجرای برنامه، تگشون تغییر میکنه یا ثابته؟

    • دولوپر
      0
      ۱۳۹۸/۵/۳۰ ۵:۳۲:۰۷
      پاسخ

      سلام

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

      ببینید من زیر اسکرول ویو در مولتی پنل یک باتن گذاشتم برای بزرگتر کردن سایز متن همه چی درسته فقط سایز متن بزرگ که میشه اوضاع قمردرعقرب میشه الان کدهامو میذارم شما لطف کنید ملاحظه بفرمایید

      ۱
      ۲
      ۳
      ۴
      ۵
      ۶
      ۷
      ۸
      ۹
      ۱۰
      ۱۱
      ۱۲
      ۱۳
      ۱۴
      ۱۵
      ۱۶
      ۱۷
      ۱۸
      ۱۹
      ۲۰
      ۲۱
      ۲۲
      ۲۳
      ۲۴
      ۲۵
      ۲۶
      ۲۷
      ۲۸
      ۲۹
      ۳۰
      ۳۱
      ۳۲
      ۳۳
      ۳۴
      ۳۵
      ۳۶
      ۳۷
      ۳۸
      ۳۹
      ۴۰
      ۴۱
      ۴۲
      ۴۳
      ۴۴
      ۴۵
      ۴۶
      ۴۷
      ۴۸
      ۴۹
      ۵۰
      ۵۱
      ۵۲
      ۵۳
      ۵۴
      ۵۵
      ۵۶
      ۵۷
      ۵۸
      ۵۹
      ۶۰
      ۶۱
      ۶۲
      ۶۳
      ۶۴
      ۶۵
      ۶۶
      ۶۷
      ۶۸
      <span class="pln">Sub Globals
      Dim p As Panel
      Dim StrUtil As StringUtils
      Private Sclmatn As ScrollView
      Private Pnlmatn As Panel
      Private LblArabic As Label
      Private Lblfarsi As Label
      Private Lbltozih As Label
      Dim s As Int = ۳%y
      Private Btnshare As Button
      Private Btnlike As Button
      Private plus As Button
      End Sub
       
      Sub Activity_Create(FirstTime As Boolean)
      Activity.LoadLayout("scrollmatn")
      Sql2.Initialize(File.DirInternal,"data.db",True)
      cur = Sql2.ExecQuery2("SELECT * FROM TblMatn1 WHERE FehID = ?", Array As String(meghdar))
      For i = ۰ To cur.RowCount-۱
      cur.Position = i
      p.Initialize("p")
      p.LoadLayout("matn")
      p.Color=Colors.Green
      Sclmatn.Panel.AddView(p,۰,s,۱۰۰%x,۱۰۰%y)
          LblArabic.Text = cur.GetString("MatnArabi")
      Log(LblArabic.Text)
      LblArabic.Height = StrUtil.MeasureMultilineTextHeight(LblArabic,LblArabic.Text)
      plus.Tag=۱
      plus.Tag=۲
      plus.Tag=۳
          Lblfarsi.Text = cur.GetString("MatnFarsi")
      Lblfarsi.Top=LblArabic.Height+LblArabic.Top+۳%y
      Lblfarsi.Height = StrUtil.MeasureMultilineTextHeight(Lblfarsi,Lblfarsi.Text)
      Log(Lblfarsi.Text)
      Lbltozih.Text = cur.GetString("Tozihat")
      Lbltozih.Top=Lblfarsi.Height+Lblfarsi.Top+۳%y
      Lbltozih.Height = StrUtil.MeasureMultilineTextHeight(Lbltozih,Lbltozih.Text)
      Log(Lbltozih.Text)
      p.Height=Btnshare.Height+LblArabic.Height+Lblfarsi.Height+Lbltozih.Height+۹%y
      Pnlmatn.Height=Btnshare.Height+LblArabic.Height+Lblfarsi.Height+Lbltozih.Height+۱۰%y
      s = s +Btnshare.Height+LblArabic.Height+Lblfarsi.Height+Lbltozih.Height+۱۰%y
      Sclmatn.Panel.Height = s
      Btnshare.Tag=cur.GetString("MatnArabi")&cur.GetString("MatnFarsi")
      Next
      End Sub
       
      Sub plus_Click
      Dim tag As Int
      Dim Mybtn As Button
      Mybtn = Sender
      tag = Mybtn.Tag
      Log(tag)
      For Each v As View In Sclmatn.Panel.GetAllViewsRecursive
      If v Is Label Then
      Dim myLabel As Label = v
      myLabel.TextSize=myLabel.TextSize+۱
      myLabel.Height = StrUtil.MeasureMultilineTextHeight(myLabel,myLabel.Text)
      '---------------------------
      Lblfarsi.Top=LblArabic.Height+LblArabic.Top+3%y
      Lbltozih.Top=Lblfarsi.Height+Lblfarsi.Top+3%y
      Pnlmatn.Height=Btnshare.Height+LblArabic.Height+Lblfarsi.Height+Lbltozih.Height+10%y
      p.Height=Btnshare.Height+LblArabic.Height+Lblfarsi.Height+Lbltozih.Height+9%y
      Sclmatn.Panel.Height=Pnlmatn.Height+10%y
      '---------------------------
      End If
      Next
      End Sub</span>

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

      لطفا درصورت امکان باکدراهنمایی کنید❤️

ارسال یک پاسخ