Sub mainpanel_click
Activity.LoadLayout("StalkScreen")
For LoopStopper = 1 To 1
camera1.Quality = C1Q
timer1.Initialize ("Timer1" , Speed)
timer1.Enabled = True
camera1.TakePicture
timer1.Enabled = True
Next
End Sub
Sub mainpanel_click
Activity.LoadLayout("StalkScreen")
'For LoopStopper = 1 To 1
'camera1.Quality = C1Q
timer1.Initialize ("Timer1" , Speed)
timer1.Enabled = True
'camera1.TakePicture
'timer1.Enabled = True
'Next
End Sub
...
Sub Timer1_Tick 'You don't have this routine in your code.
ToastMessageShow("Tick...", False)
End Sub
Ok, by looking at your code I see a problem, if you want different layouts you have to either put them on different activities or use panels, that's the problem you are having.
Sub chooser_Result (Success As Boolean, Dir As String, FileName As String)
If Success Then
bmp.Initialize(File.DirDefaultExternal, FileName)
Else
ToastMessageShow("No image selected", True)
End If
End Sub
Sub Activity_Create(FirstTime As Boolean)
PictureCounter = 0
If settings.bmp.IsInitialized Then
Camera1.Quality = settings.Q
Activity.LoadLayout("StalkScreen")
activity.SetBackgroundImage (settings.bmp)
stalkscreen.SetBackgroundImage (settings.bmp)
Camera1.Initialize(StalkScreen, "Camera1")
Timer1.Initialize ("Timer1", settings.timerinterval)
Timer1.Enabled = True
Else
Msgbox ("Please select an image" ,"")
StartActivity ("settings")
End If
End Sub