Control web Inherits WebView2ControlMBS
ControlInstance web Inherits WebView2ControlMBS
EventHandler Sub AddScriptToExecuteOnDocumentCreatedCompleted(JavaScript as String, ErrorCode as Integer, ID as String, Tag as Variant)
System.DebugLog CurrentMethodName+" "+ID
End EventHandler
EventHandler Sub CapturePreviewCompleted(ImageFormat as Integer, ErrorCode as Integer, PictureData as String)
If PictureData.Length > 0 Then
Dim file As FolderItem = SpecialFolder.Desktop.Child("webview.png")
Dim b As BinaryStream = BinaryStream.Create(file, True)
b.Write PictureData
b.Close
file.Launch
End If
End EventHandler
EventHandler Sub Close()
System.DebugLog CurrentMethodName
End EventHandler
EventHandler Sub Configure()
System.DebugLog CurrentMethodName
Dim folder As FolderItem = SpecialFolder.ApplicationData.Child("MyApp")
folder.CreateAsFolder
Me.UserDataFolder = folder.NativePath
End EventHandler
EventHandler Sub ContentLoading(isErrorPage as Boolean, NavigationID as UInt64)
System.DebugLog CurrentMethodName
End EventHandler
EventHandler Sub DocumentTitleChanged()
System.DebugLog CurrentMethodName
End EventHandler
EventHandler Sub ExecuteScriptCompleted(JavaScript as String, ErrorCode as Integer, resultObjectAsJson as String, Tag as Variant)
System.DebugLog CurrentMethodName
End EventHandler
EventHandler Sub HistoryChanged()
System.DebugLog CurrentMethodName
End EventHandler
EventHandler Sub NavigationCompleted(isSuccess as Boolean, ErrorStatus as Integer, NavigationID as UInt64)
System.DebugLog CurrentMethodName
End EventHandler
EventHandler Function NavigationStarting(URL as String, IsUserInitiated as Boolean, IsRedirected as Boolean, NavigationID as UInt64) As Boolean
System.DebugLog CurrentMethodName+": "+URL
End EventHandler
EventHandler Sub Open()
System.DebugLog CurrentMethodName
End EventHandler
EventHandler Sub Opened()
System.DebugLog CurrentMethodName
// enable transparent background
web.DefaultBackgroundColor = &cFFFFFFFF
End EventHandler
EventHandler Sub PermissionRequested(URL as String, PermissionKind as Integer, IsUserInitiated as Boolean, byref State as Integer)
System.DebugLog CurrentMethodName
End EventHandler
EventHandler Sub ProcessFailed(processFailedKind as Integer)
System.DebugLog CurrentMethodName
End EventHandler
EventHandler Sub SourceChanged(isNewDocument as Boolean)
System.DebugLog CurrentMethodName
End EventHandler
EventHandler Sub WebMessageReceived(Source as String, webMessageAsJson as String, webMessageAsString as String)
System.DebugLog CurrentMethodName
End EventHandler
EventHandler Sub WindowCloseRequested()
System.DebugLog CurrentMethodName
End EventHandler
End Control