مشکل در مولتی پنل

[حسینh 50]

با سلام خدمت دوستان من قبلا از لیست ویو استفاده میکردم ولی به پیشنهاد یکی از دوستان از مولتی پنل استفاده کرد ولی در لیست ویو قسمتی به نام کلیک ایتم وجود داست که من کدهایی برای ان گذاشته بودم حالا اگر بخواهم برای مولتی پنل نیز گزینه ای بزارم که اگه روی هر دکمه کلیک شد این کدها را انجام دهد چه کار کنم (توضیح دهید )

ListView2_ItemClick (Position As Int, Value As Object)
Dim cur As Cursor

cur=sq.ExecQuery("Select * FROM Tbl WHERE id=" &Value)
cur.Position=0
	StartActivity(N1)
	For i=0 To 3
	 If cur.GetString("aks"&i) <> Null Then
	 bitmap1(i).InitializeSample(File.DirAssets,cur.GetString("aks"&i)&".jpg",Activity.Height,Activity.Width)
	 End If
	 fasl=Value
	 Next
End Sub

[علی علایی 161]

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

و حدودا 20تاپیک اول اونهارو ببین بعد بیا تاپیک بزن (میگم ببین به خاطر اینکه کار خودت زودتر راه بیفته )

من قبلا یه تاپیک زده بودم راجع به مولتی پنل با عکس سرچ کنی میاد بالا ببین به کارت میاد 

[حسینh 50]

جستجو کردم پیداکردم ولی اینی که من گفتم نبود اگه همینی که من گفتم هست لینک ان را قرار دهید

[علی علایی 161]

سرچ کردم نبود ولی خب شما دستور تگ سندر تو مولتی پنل بلد باشی حله 

چه طور 

الان شما میخای با کلیک روی یکی از اجزای مولتی پنل بری صفحه متن (اینجوری من فهمیدم) 

تو حلقه مولتی پنل مقدار تگشو برابر i بزار و تو رویداش سندر رو بگیر اگر متوجه نشدی 

اینو ببین 

استفاده از Tag و Sender در Multi Panel

 

[حسینh 50]

دوستان من ار این کدهاهم استفاده کردم ولی این اررور را میده

ScrollView1.Initialize(2000dip)
Activity.Title="Basic4android.org"
Activity.AddView(ScrollView1,0,0,100%x,100%y)
	If File.Exists(File.DirInternal,"1.db")=False Then
	File.Copy(File.DirAssets,"a.db",File.DirInternal,"a.db")
	End If
sql1.Initialize(File.DirInternal,"a.db",False)
Cur1=sql1.ExecQuery("SELECT * From Tbl")
For i=0 To Cur1.RowCount-1
Cur1.Position=i
Dim p As Panel
p.Initialize("p")
ScrollView1.Panel.AddView(p,0,Stopint,100%x,100%Y)
Stopint=Stopint+150dip
p.LoadLayout("l")
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Panel1.Tag=i                           
If (i Mod 2)=1 Then						
			Panel1.Color=Colors.Red		
		Else							
			Panel1.Color=Colors.Blue	
		End If							
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Label1.Text="fasl: "&Cur1.GetString("id")&"  "&Cur1.GetString("fasl")

ScrollView1.Panel.Height=Stopint
Next
End Sub

Sub Button1_Click(Position As Int, Value As Object)
	Dim b As Button
	b=Sender
	
	Dim cur As Cursor

cur=sq.ExecQuery("Select * FROM Tbl WHERE id=" &Value)
cur.Position=0
	StartActivity(N1)
	For i=0 To 3
	 If cur.GetString("aks"&i) <> Null Then
	 bitmap1(i).InitializeSample(File.DirAssets,cur.GetString("aks"&i)&".jpg",Activity.Height,Activity.Width)
	 End If
	 fasl=Value
	 Next
End Sub

لطفا کمک کنین لازم دارم

[Farzad Musavi 576]

اینو از کجا نوشتی؟

Sub Button1_Click(Position As Int, Value As Object)

آموزش tag ,sender رو درست ببین میفهمی مشکلتو

[حسینh 50]

میشه مشکل این کد رو رفع کنید لطفا

[Farzad Musavi 576]

میشه مشکل این کد رو رفع کنید لطفا

من نمیدونم میخوای چیکار کنی کدهاتم چیزی سر درنیاوردم این آموزشو ببین راحت به آیتمت تگ بده بعد بخون مث لیست ویو که value داره

http://answercenter.ir/topic/2807-%D8%A7%D8%B3%D8%AA%D9%81%D8%A7%D8%AF%D9%87-%D8%A7%D8%B2-tag-%D9%88-sender-%D8%AF%D8%B1-multi-panel/

[alirezakazemizaroomi 437]

سلام

تو این تاپیک جواب دادم

گرفتن عنوان مولتی پنل

 ذخیره کردن