Sub Process_Globals
Private WebView1 As WebView
Private WebViewExtras1 As WebViewExtras
End Sub
Sub Activity_Create(FirstTime As Boolean)
WebView1.Initialize("WebView1")
Activity.AddView(WebView1, 0, 0, 100%x, 100%y)
WebViewExtras1.Initialize(WebView1)
WebViewExtras1.LoadHtml("<html><body><h1 id='myHeading'>Hello World!</h1><button onclick='changeText()'>Click me</button><script>function changeText() {document.getElementById('myHeading').innerText = 'Hello B4A!';}</script></body></html>", "")
End Sub
Sub WebView1_PageFinished (Url As String)
WebViewExtras1.ExecuteJavascript("alert('Page finished loading.');")
End Sub