Sub Globals
End Sub
Sub Activity_Create(FirstTime AsBoolean)
End Sub
Sub Button1_Click
End Sub
DimButton1AsButton : DimBitmapTempAsBitmap : PrivateImageView1AsImageView
End Sub
Sub Activity_Create(FirstTime AsBoolean)
Activity.LoadLayout("LayOutTest")
End Sub
Sub Button1_Click
For N = 1 To 6
BitmapTemp.Initialize(File.DirAssets, N & ".jpg")
ImageView1.Bitmap = BitmapTemp
Button1.Text= N
For t = 1 To 60000000 : Next ' Delaying ( Pause )
NextBitmapTemp.Initialize(File.DirAssets, N & ".jpg")
ImageView1.Bitmap = BitmapTemp
Button1.Text= N
For t = 1 To 60000000 : Next ' Delaying ( Pause )
End Sub
Attachments
Last edited: