Sub Process_Globals
End Sub
Sub Globals
Dim WebView1 As WebView
End Sub
Sub Activity_Create(FirstTime As Boolean)
WebView1.Initialize("")
Activity.AddView(WebView1, 0, 0, 100%x, 100%y)
Dim WebViewExtras1 As WebViewExtras
WebViewExtras1.addWebChromeClient(WebView1, "WebViewExtras1")
WebView1.LoadUrl("http://www.b4x.com/forum/basic4android-updates-questions/30863-how-know-loading-progress-webview.html")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub WebViewExtras1_ProgressChanged(NewProgress As Int)
Log("WebView1 loading progress: "&NewProgress&"%")
End Sub