Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("splashlayout")
timer1.Initialize("timer1", 5000)
timer1.Enabled = True
myimage.Initialize(File.DirAssets, "welcome.png")
ImageView1.SetBackgroundImage(myimage)
ImageView1.Visible = True
ImageView1.BringToFront
ImageView_quintana.Initialize(ImageView_quintana)
PicRotationtimer.Initialize("PicRotationTimer", 4000)
PicRotationtimer.Enabled = True '4 seconds delay
Pics = Array As String("quintana1.jpg", "quintana2.jpg", "quintana3.jpg", "quintana4.jpg", "quintana5.jpg")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub PicRotationTimer_Tick
ImageView_quintana.SetBackgroundImage(LoadBitmap(File.DirAssets, Pics(Counter)))
Counter = Counter + 1
If Counter > 4 Then Counter = 0
End Sub
Sub timer1_Tick
ImageView1.Visible = False
timer1.Enabled = False
drawer.Initialize(Me, "Drawer", Activity, 300dip)
drawer.CenterPanel.LoadLayout("MainLayout")
drawer.LeftPanel.LoadLayout("LeftMenu")
End Sub
Sub label_menu_Click
drawer.LeftOpen = True
End Sub
Sub Activity_Keypress (KeyCode As Int) As Boolean
If KeyCode = KeyCodes.KEYCODE_BACK Then
Activity.RemoveAllViews
drawer.Initialize(Me, "Drawer", Activity, 300dip)
drawer.CenterPanel.LoadLayout("MainLayout")
drawer.LeftPanel.LoadLayout("LeftMenu")
Return True
End If
Return False
End Sub
Sub ListView1_ItemClick (Position As Int, Value As Object)
Log("Position: "&Position)
Log("Value: "&Value)
End Sub