فرمان دادن به چند دکمه در حلقه

[jovad 3]

بازم سلام خدمت اساتید گرامی

چند تا دکمه با استفاده از حلقه فور درست کردم  اما نمی دونم چطور باید به هر کدوم از دکمه ها یه دستور خاص داد

Dim btn(20) As Button
Dim fasle2 As Int=10%x

	For i = 1 To 10
		btn(i).initialize("")
		btn(i).text = "لیبل شماره : " & i
		ScrollView1.Panel.AddView( btn(i),0,fasle2,50%x,10%x)
	
		fasle2=fasle2+50%y
Next

منظورم اینه که هر کدوم رو داخل یک ساب کلیک گذاشت مثلا

Sub btn1_Click
Msgbox("hi","")


End Sub

Sub btn2_Click
Msgbox("hi1","")


End Sub

Sub btn3_Click
Msgbox("hi2","")


End Sub

 

[پژمان نیکروان 6,055]

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

Dim fasle2 As Int=10%x

	For i = 1 To 10
		Dim btn As Button
		btn.initialize("btn")
		btn.tag=i
		btn.text = "لیبل شماره : " & i
		ScrollView1.Panel.AddView( btn,0,fasle2,50%x,10%x)
	
		fasle2=fasle2+50%y
Next


Sub btn_Click
dim b as button=sender
select case b
case 1
'باتن اول کلیک شد'
case 2
'باتن دوم کلیک شد'
case 3
'باتن سوم کلیک شد'
و الی آخر...
end select
End Sub

 

[jovad 3]

ممنون اما این خطا رو داد به نظرتون مال چیه

Select Case b
javac 1.8.0_131
src\b4a\example\main.java:445: error: incompatible types: int cannot be converted to Button
switch (BA.switchObjectToInt(_b,(android.widget.Button)(1),(android.widget.Button)(2),(android.widget.Button)(3))) {
                                                       ^
1 error