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

سوال

سلام

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

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

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

در حال بررسی 0
, 2019-08-18T22:20:05+03:30 1 پاسخ ها کاربر تازه 0

پاسخ ها ( 1 )

  1. morteza
    0
    2019-08-20T23:44:14+03:30
    پاسخ

    سلام.

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

    • دولوپر
      0
      2019-08-21T05:32:07+03:30
      پاسخ

      سلام

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

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

      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 = 3%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 = 0 To cur.RowCount-1
	cur.Position = i		
	p.Initialize("p")
	p.LoadLayout("matn")
	p.Color=Colors.Green
	Sclmatn.Panel.AddView(p,0,s,100%x,100%y)
    LblArabic.Text = cur.GetString("MatnArabi")		
		Log(LblArabic.Text)		
			LblArabic.Height = StrUtil.MeasureMultilineTextHeight(LblArabic,LblArabic.Text)	
			plus.Tag=1
			plus.Tag=2
			plus.Tag=3
	    Lblfarsi.Text = cur.GetString("MatnFarsi")
		Lblfarsi.Top=LblArabic.Height+LblArabic.Top+3%y
			Lblfarsi.Height = StrUtil.MeasureMultilineTextHeight(Lblfarsi,Lblfarsi.Text)
		Log(Lblfarsi.Text)			
		Lbltozih.Text = cur.GetString("Tozihat")
		Lbltozih.Top=Lblfarsi.Height+Lblfarsi.Top+3%y
			Lbltozih.Height = StrUtil.MeasureMultilineTextHeight(Lbltozih,Lbltozih.Text)
		Log(Lbltozih.Text)		
p.Height=Btnshare.Height+LblArabic.Height+Lblfarsi.Height+Lbltozih.Height+9%y
		Pnlmatn.Height=Btnshare.Height+LblArabic.Height+Lblfarsi.Height+Lbltozih.Height+10%y
			s = s +Btnshare.Height+LblArabic.Height+Lblfarsi.Height+Lbltozih.Height+10%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+1
			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

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

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

ارسال یک پاسخ