نمایش مقادیر 2 لیبل با تاچ کردن دکمه

[mashgholom 34]

سلام دوستان

دوستان من یه دیتابیس دارم که شامل 3 تا فیلد ( قیمت و اسم و ای دی) هست

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

cursor1 = db12.sql1.ExecQuery("select * from aboatash")
For i = 0 To cursor1.RowCount-1
 cursor1.Position = i

btn1.Initialize("btn1")
label1.Initialize("label1")
label2.Initialize("label1")


scr.Panel.AddView(btn1,2%x,ist,80%x,10%y)
scr.Panel.AddView(label1,40%x,ist,40%x,8%y)
scr.Panel.AddView(label2,19%x,ist,21%x,7.5%y)

ist = ist +15%y
scr.Panel.Height = ist+1%y




label1.Tag = cursor1.GetString("name")
label1.Text= cursor1.GetString("name")

label2.Tag = cursor1.GetString("gheymat")
label2.Text= cursor1.GetString("gheymat")

next

میخوام هر وقت روی btn1 تاچ میکنم مقادیر لیبل 1 با لیبل 2 رو نمایش بده درواقع میخوام ارسالش کنم به دیتابیس انلاین اما اگه شما بتونید راهنماییم کنید چطور میتونم هر دو مقدار رو نمایش بدم خودم میتونم به دیتابیس ارسال کنم

 

ممنون

[shahab.es 5,429]

سلام

میخواین مقدار 2 تا لیبل رو نشون بدید؟

بذارید توی کلیک دکمتون

dim str as string = lbl.text &"#"& lbl2.text
msgbox(str,"test")

[mashgholom 34]

اما این حلقست فکرنکنم تشخیص بده مقادیر کدوم لیبل ها رو نمایش بده میاد 2مقدار 2 تا لیبل اخر نمایش میده

[shahab.es 5,429]

خوب شما داری میگی تاچ باتن دیگه...

مسلما اخریا رو نشون میده

میتونی رویدادش رو صدا کنی

Sub Activity_Create(FirstTime As Boolean)
For i = 0 To 50
	lbl.text = "shahab " & i
	lbl2.text = "answer " & i & " Center.ir"
	btn1_Click
Next
End Sub
Sub btn1_Click
	Dim txt As String = lbl.text &"#"& lbl2.text
	Msgbox(txt,"")
	
End Sub

[mashgholom 34]

شهاب جان وقتی میخواد اسکرول کنه جواب میده اما وقتی به صورت دستی روی دکمه تاچ میکنه بازم مقادیر لیبل اخری رو نشون میده من میخوام روی دکمه ریدف مثلا 3 تاچ میکنم مقادر لیبل همون ردیف نشون بده

چیکار کنم کارم گیر کرده

[shahab.es 5,429]

یه سرچ کنید تگ و سندر و اموزش استاد ایزدیو ببینید... کمکتون میکنه مسلما...

[porya 959]

سلام با کمک از کد اقای اسکندری کدهاتونو به اینصورت بنویسید بنده تست نکردم ببینید جواب میگیرید...

cursor1 = db12.sql1.ExecQuery("select * from aboatash")
For i = 0 To cursor1.RowCount-1
 cursor1.Position = i

btn1.Initialize("btn1")
label1.Initialize("label1")
label2.Initialize("label1")


scr.Panel.AddView(btn1,2%x,ist,80%x,10%y)
scr.Panel.AddView(label1,40%x,ist,40%x,8%y)
scr.Panel.AddView(label2,19%x,ist,21%x,7.5%y)

ist = ist +15%y
scr.Panel.Height = ist+1%y




label1.Tag = cursor1.GetString("name")
label1.Text= cursor1.GetString("name")

label2.Tag = cursor1.GetString("gheymat")
label2.Text= cursor1.GetString("gheymat")

btn1.tag = i

next

و رویداد کلیک 

Sub btn1_Click

	Dim b As Button
	b = Sender
	
	Dim cursor2 As Cursor
	cursor2 = sql1.ExecQuery("select * from aboatash")
	For i = 0 To cursor2.RowCount-1
	cursor2.Position = b.Tag

label1.Text= cursor2.GetString("name")
label2.Text= cursor2.GetString("gheymat")

	Dim txt As String = label1.text &"#"& label2.text
	Msgbox(txt,"")

	Next

End Sub