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

[rbageherih 0]

سلام

Activity.LoadLayout("l2")
    Dim sss As String
    Dim i As Int
    Dim s() As ImageView
For i=1 To 5
        Dim s(i) As ImageView
    
Next
For i=0 To 4
    
    sss="b"&(i+1)
    s(i).Initialize(sss)
        Activity.AddView(s(i),1%x,(i)*12%y,25%x,10%y)
s(i).Bitmap=LoadBitmap(File.DirAssets,"images.png")
s(i).Gravity=Gravity.FILL
Next

 

کد بالا چند تا ایمیج ویو درست می کنه که نام گذاریشون توی متغیر هست که به صورت

sss="b"&(i+1)

s(i).Initialize(sss)

هست حالا اگه بخوایم تعیین کنیم که روی هر کدوم که کلیک کردیم کد مربوط به همون اجرا بشه باید چیکار کنیم دونه دونه میشه تعیین کرد ولی اگه زیاد باشه و نامعلوم چه چوری باید خصوصیت کلیک را تعریف کرد ؟

[M-CAP7AIN 537]

روش درستی نیست!

ساخت ایمیج ویو:

	For i = 0 To 10 
		Dim imgView As ImageView
		imgView.Initialize("imgView")
		imgView.Tag = i
		Activity.AddView(imgView , ......)
	Next

رویداد:

Sub imgView_Click
	Dim imgv As ImageView = Sender
	imgv.Color = Colors.Red
End Sub

 

 

برای اطلاعات بیشتر ( tag , sender ) رو سرچ کنید.