Sub refresh_Click
#If B4a
paginacaricata= paginaweb.Url
paginaweb.LoadUrl(paginacaricata)
#else B4i
' Dim sf As Object = paginaweb.EvaluateJavaScript("window.location.reload();")
' Wait For (sf) paginaweb_JSComplete (Success As Boolean, Result As String)
RunJavaScript("window.location.reload();")
'Dim no As NativeObject= paginaweb
'no.RunMethod("stringByEvaluatingJavaScriptFromString:", Array("window.location.reload();"))
#end if
' paginacaricata= paginaweb.Url
' paginaweb.LoadUrl(paginacaricata)
End Sub
Private Sub Indietro_Click
#If B4a
paginaweb.Back
#else B4i
paginaweb.GoBack
#end if
'paginaweb.Back
End Sub
Private Sub social_Click
paginaweb.LoadUrl ("https://miosito.it/contact/")
End Sub
Private Sub RunJavaScript (js As String) As ResumableSub
#if B4A
WebViewExtras1.executeJavascript(WebView1, $"B4A.CallSub('Process_HTML', true, ${js})"$)
Wait For Process_Html(html As String)
Return html
#Else If B4J
Return WebView1.As(JavaObject).RunMethodJO("getEngine", Null).RunMethod("executeScript", Array(js))
#Else If B4i
Dim sf As Object = paginaweb.EvaluateJavaScript(js)
sf= paginaweb.Top
Wait For (sf) WebView1_JSComplete (Success As Boolean, Result As String)
sf= paginaweb.Top
Return Result
#end if
End Sub