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

[arefhoot 91]

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

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

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

 

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

دوستان لطفا کمک کنید خیلی واجبه

 

[fatih 6]

سلام دوست گرامی بعد از تلاش های فراوان و استفاده از کد هایی و تغییر در آنها بالاخره موفق شدم . الان سورسش رو هم می ذارم تا همه استفاده کنن. ممنوووون.

                                                                                         دانلود سورس کد

[مهدی ایزدی 9,203]

درود

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

تجزیه و تحلیلش با خودتون

Sub Globals
	Private txtAddBlockText As EditText
	Private ScrollView1 As ScrollView
	Private lblPnlBlockText As Label
	Private btnDeleteBlockText As Button
	Private Panel1 As Panel
	Dim ph,p_h As Int
	Private btnAddBlockText As Button
	Dim cur2 As Cursor
	Dim sql2 As SQL
	Dim xxx As Int
	Dim bt As BitmapDrawable
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("lBlockText")
	bt.Initialize(LoadBitmap(File.DirAssets,"txtez.png"))
	txtAddBlockText.Background = bt
	txtAddBlockText.Hint = "مثال: شرکت در مسابقه"
	sql2.Initialize(File.DirInternal,"block.db",False)
	cur2 = sql2.ExecQuery("SELECT * FROM tbltxt")
	xxx = cur2.RowCount-1
	For i=0 To cur2.RowCount-1
		cur2.Position=xxx
		xxx=xxx-1
		Dim p1 As Panel
		p1.Initialize("")
		p1.LoadLayout("LScrollAddBlockText")
		lblPnlBlockText.Text= ""
		ScrollView1.Panel.AddView(p1,0,ph,100%x,110dip)
		p_h= 120dip
		p1.Height=p_h
		lblPnlBlockText.Text = cur2.GetString("txt")
		btnDeleteBlockText.Tag = cur2.GetString("id")
		Panel1.Height=p1.Height
		ph=ph+p_h+13dip
		ScrollView1.Panel.Height=ph
	Next
End Sub