'******************************************************
'INIT BROWSER
'******************************************************
Private Sub InitBrowser
'INITIALIZING ALL WEVIEWCLIENT COMPONENTS
WebChromeClient.Initialize("WebChromeClient")
JavascriptInterface.Initialize
'ADDING JAVASCRIPT SUPPORT
MyWebViewExtras.Initialize(WebView1)
MyWebViewExtras.SetWebChromeClient(WebChromeClient)
MyWebViewExtras.AddJavascriptInterface(JavascriptInterface,"PBrowser")
'CREATE WEBVIEW-CLIENT
MyWebViewClient.Initialize("MyWebViewClient")
MyWebViewExtras.SetWebViewClient(MyWebViewClient)
'ADDING JAVASCRIPT ENABLE AND ZOOM FALSE
MyWebViewExtras.JavaScriptEnabled=True
MyWebViewExtras.ZoomEnabled=False
setScrollBarEnabled(MyWebViewExtras,False,False)
'SET BROWSER TO RESTORE STATE - FOR HISTORY
If Bundle.IsInitialized Then
Dim jo As JavaObject = MyWebViewExtras
jo.RunMethod("restoreState", Array(Bundle))
Else
Comp_InitWeb_View("310","P")
End If
End Sub