wve.Initialize(webv)
Dim WebChromeClient1 As DefaultWebChromeClient
WebChromeClient1.Initialize("WebChromeClient1")
wve.SetWebChromeClient(WebChromeClient1)
wve.AddJavascriptInterface(webv, "B4A")
webv.LoadUrl(Address)
private Sub webv_PageFinished (Url As String)
' these three ways not work too
wve.ExecuteJavascript("B4A.CallSub('clicked',true);")
wve.ExecuteJavascript("document.querySelector('.nav-bar').addEventListener('click', event => {B4A.CallSub('clicked',true)});")
wve.ExecuteJavascript("document.querySelector('.nav-bar').addEventListener('click',function(){B4A.CallSub('clicked',true);});")
End Sub
Sub clicked()
ToastMessageShow("test",False)
End Sub