Ciao Pako
Cosi le if e select sono ok
Sub Button1_Click
Activity.RemoveAllViews
Activity.LoadLayout("Provaz")
Imm_Rnd = Rnd(1 , 4)
Select Imm_Rnd
Case 1
ImageView1.Bitmap=LoadBitmap(File.DirAssets,"1.png ")
Button2.Text = "Prova"
Button3.Text = "Prova1"
Button4.Text = "Prova2"
Button5.Text = "Prova3"
If Button2 ( Cosa mettere per dire che il button2 è stato cliccato) Then
MsgBox("Ok" , "")
Else
MsgBox("No" , "")
end if
Case 2
ImageView1.Bitmap=LoadBitmap(File.DirAssets, "2.png")
Case 3
ImageView1.Bitmap=LoadBitmap(File.DirAssets, "3.gif")
End Select
End Sub
...verifica un cosa
1° nella riga ImageView1.Bitmap=LoadBitmap(File.DirAssets,"1.png ") c'e uno spazio dopo l'estensione 1.png corretto ???
ciaooo
Mamo