چند تا دکمه با استفاده از حلقه فور درست کردم اما نمی دونم چطور باید به هر کدوم از دکمه ها یه دستور خاص داد
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
سوال
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
لینک ارسال
به اشتراک گذاری در سایت های دیگر
2 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.