Sub Globals
Dim myTimer As Timer
Dim myWebView As WebView
End Sub
Sub Activity_Create(FirstTime As Boolean)
myTimer.Initialize("myTimer", 10000) ' alle 10 Sekunden neu laden
myTimer.Enabled = True
myWebView.Initialize("myWebView")
Activity.AddView(myWebView, 0, 0, 100%X, 100%Y)
End Sub
Sub myTimer_Tick
myTimer.Enabled = False
myWebView.LoadHtml("<html><body><img src='http://www.einslive.de/webcam/studio_a_1.jpg?rnd=" & DateTime.Now & "' style='width:100%;height:100%' /></body></html>")
End Sub
Sub myWebView_PageFinished (Url As String)
myTimer.Enabled = True
End Sub