Sub Globals
Private imvTest As ImageView
Private IndexImage = 0 As Int
Private NomFichier(4) As String
End Sub
Sub Activity_Create(FirstTime As Boolean)
NomFichier = Array As String ("edelweiss.jpg", "gentiane.jpg", "lys_martagon.jpg", "rose.jpg")
Activity.LoadLayout("Main")
imvTest.Bitmap = LoadBitmap(File.DirAssets, NomFichier(IndexImage))
End Sub
Private Sub imvTest_Click
IndexImage = Rnd(0, NomFichier.Length)
Log(NomFichier(IndexImage))
imvTest.Bitmap = LoadBitmap(File.DirAssets, NomFichier(IndexImage))
End Sub