Sub Globals
Dim CookieManager1 As CookieManager
Dim wv As WebView, wvs As WebViewSettings
Dim WebViewExtras1 As WebViewExtras
Dim WebChromeClient1 As DefaultWebChromeClient
Dim JavascriptInterface1 As DefaultJavascriptInterface
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("1")
WebViewExtras1.Initialize(wv)
WebViewExtras1.JavaScriptEnabled = True
JavascriptInterface1.Initialize
WebViewExtras1.AddJavascriptInterface(JavascriptInterface1, "B4A")
WebChromeClient1.Initialize("WebChromeClient1")
WebViewExtras1.SetWebChromeClient(WebChromeClient1)
wvs.setUseWideViewPort(wv, True)
wvs.setDisplayZoomControls(wv, False)
wvs.setLoadsImagesAutomatically(wv, True)