Sub Process_Globals
End Sub
Sub Globals
Dim WebView1 As WebView
End Sub
Sub Activity_Create(FirstTime As Boolean)
WebView1.Initialize("WebView1")
Dim WebViewExtras1 As WebViewExtras
WebViewExtras1.Initialize(WebView1)
Dim JavascriptInterface1 As DefaultJavascriptInterface
JavascriptInterface1.Initialize
WebViewExtras1.AddJavascriptInterface(JavascriptInterface1, "B4A")
WebViewExtras1.LoadUrl("file:///android_asset/mark35at.html")
Activity.AddView(WebView1, 0, 0, 100%x, 100%y)
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub HandleJavascript(Message As String)
' this Sub is called by the WebView javascript
Log("HandleJavascript: "&Message)
' you will need to parse the Message as a JSON object:
' {"height":270,"width":336,"src":"http://upload.wikimedia.org/wikipedia/commons/d/d8/Basic4android-Logo.jpg"}
End Sub