حالا میخوام به باتن ها دسترسی داشته باشم و برای یک باتن دلخواه دستورات رو بنویسم که چه کاری رو انجام بده ولی نمیتونم به اونها دسترسی پیدا کنم ...
من تازه کار هستم و این کدیه که نوشتم
لطفا راهنمایی کنید ...
For i = 0 To 3
For j = 0 To 7
Dim B As Button
B.Initialize("")
If i = 0 Then
B.Text = i + j + 1
Else If i = 1 Then
B.Text = i+j+8
Else If i = 2 Then
B.Text = i+j+15
Else If i = 3 Then
B.Text = i+j+22
End If
B.SetBackgroundImage(LoadBitmap(File.DirAssets,"key.png"))
B.TextColor = Colors.Red
Activity.AddView(B,Offsetx,Offsety,10%x,10%y)
' Arr(i,j) = B
Offsetx = Offsetx + 12%x
Next
Offsety = Offsety + 12%y
Offsetx = 3%x
Next
سوال
amoramante 2
سلام دوستان
من یک حلقه تو در تو با 32 باتن ایجاد کردم .
حالا میخوام به باتن ها دسترسی داشته باشم و برای یک باتن دلخواه دستورات رو بنویسم که چه کاری رو انجام بده ولی نمیتونم به اونها دسترسی پیدا کنم ...
من تازه کار هستم و این کدیه که نوشتم
لطفا راهنمایی کنید ...
For i = 0 To 3
For j = 0 To 7
Dim B As Button
B.Initialize("")
If i = 0 Then
B.Text = i + j + 1
Else If i = 1 Then
B.Text = i+j+8
Else If i = 2 Then
B.Text = i+j+15
Else If i = 3 Then
B.Text = i+j+22
End If
B.SetBackgroundImage(LoadBitmap(File.DirAssets,"key.png"))
B.TextColor = Colors.Red
Activity.AddView(B,Offsetx,Offsety,10%x,10%y)
' Arr(i,j) = B
Offsetx = Offsetx + 12%x
Next
Offsety = Offsety + 12%y
Offsetx = 3%x
Next
لینک ارسال
به اشتراک گذاری در سایت های دیگر
4 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.