Sub Process_Globals
Public App As Application
Public NavControl As NavigationController
Private Page1 As Page
Private WKWebView1 As WKWebView
End Sub
Private Sub Application_Start (Nav As NavigationController)
'SetDebugAutoFlushLogs(True) 'Uncomment if program crashes before all logs are printed.
NavControl = Nav
Page1.Initialize("Page1")
NavControl.ShowPage(Page1)
Page1.RootPanel.Color = Colors.White
WKWebView1 = CreateWKWebView(Page1.RootPanel)
WKWebView1.LoadUrl("https://www.b4x.com/etp.html")
End Sub
Sub CreateWKWebView (pnl As Panel) As View
Dim conf As NativeObject
conf = conf.Initialize("WKWebViewConfiguration").RunMethod("new", Null)
conf.SetField("allowsInlineMediaPlayback", True)
Dim wk As NativeObject
Dim p As NativeObject = pnl
wk = wk.Initialize("WKWebView").RunMethod("alloc", Null)
wk.RunMethod("initWithFrame:configuration:", Array(p.RunMethod("frame", Null), conf))
pnl.AddView(wk, 0, 0, pnl.Width, pnl.Height)
Return wk
End Sub
Private Sub Page1_Resize(Width As Int, Height As Int)
Dim v As View = WKWebView1
v.SetLayoutAnimated(0, 1, 0, 0, Width, Height)
End Sub