60+ VBA WebView2 Events — Navigation, DOM, Downloads, Auth & More _DLiteView2CtrlEvents dispinterface — all events fired by the LiteView2 OCX control

Per-Event Usage

' PrintToPdfCompleted � PDF generation finished
Private Sub LiteView2Ctrl1_PrintToPdfCompleted(ByVal filePath As String, ByVal success As Boolean)
    If success Then
        lblStatus.Caption = "PDF: " & filePath
    Else
        lblStatus.Caption = "PDF generation failed."
    End If
End Sub

' CaptureScreenshotCompleted � screenshot saved
Private Sub LiteView2Ctrl1_CaptureScreenshotCompleted(ByVal filePath As String, ByVal success As Boolean)
    If success Then Shell "explorer """ & filePath & """", vbNormalFocus
End Sub

Per-Event Usage

Lifecycle: NavigationStarting → SourceChanged → ContentLoading → HistoryChanged → DOMContentLoaded → DocumentTitleChanged → NavigationCompleted

' DOMContentLoaded � DOM ready (before images/stylesheets finish)
Private Sub LiteView2Ctrl1_DOMContentLoaded(ByVal navigationId As String)
    Debug.Print "DOM ready, navId=" & navigationId
End Sub

' ContentLoading � content starting to load
Private Sub LiteView2Ctrl1_ContentLoading(ByVal navigationId As String, _
        ByVal isErrorPage As Boolean)
    If isErrorPage Then Debug.Print "Loading error page"
End Sub

' HistoryChanged � back/forward availability changed
Private Sub LiteView2Ctrl1_HistoryChanged()
    btnBack.Enabled = m_lv.CanGoBack
    btnFwd.Enabled = m_lv.CanGoForward
End Sub

Per-Event Usage

' NewWindowRequested � popup requested (cancelable)
Private Sub LiteView2Ctrl1_NewWindowRequested(ByVal url As String, Cancel As Boolean)
    Cancel = True       ' block popup
    m_lv.Navigate url  ' load in same window instead
End Sub

' WindowCloseRequested � window.close() called from JS
Private Sub LiteView2Ctrl1_WindowCloseRequested()
    DoCmd.Close acForm, Me.Name
End Sub

' ScriptDialogOpening � alert/confirm/prompt (type: 0=alert,1=confirm,2=prompt)
Private Sub LiteView2Ctrl1_ScriptDialogOpening(ByVal message As String, _
        ByVal dialogType As Long)
    Debug.Print "Dialog type " & dialogType & ": " & message
End Sub

' ContainsFullScreenElementChanged � fullscreen video etc.
Private Sub LiteView2Ctrl1_ContainsFullScreenElementChanged( _
        ByVal containsFullScreenElement As Boolean)
    Debug.Print "Fullscreen: " & containsFullScreenElement
End Sub

' StatusBarTextChanged � hover link text
Private Sub LiteView2Ctrl1_StatusBarTextChanged(ByVal statusText As String)
    lblStatus.Caption = statusText
End Sub

' ZoomFactorChanged � zoom level changed
Private Sub LiteView2Ctrl1_ZoomFactorChanged(ByVal newZoomFactor As Double)
    lblZoom.Caption = Format(newZoomFactor * 100, "0") & "%"
End Sub

' FaviconChanged � page favicon updated
Private Sub LiteView2Ctrl1_FaviconChanged(ByVal faviconUri As String)
    Debug.Print "Favicon: " & faviconUri
End Sub

Per-Event Usage

' DownloadStarting � download about to begin (cancelable)
Private Sub LiteView2Ctrl1_DownloadStarting(ByVal url As String, _
        ByVal suggestedFileName As String, ByVal totalBytes As Long, _
        ByVal mimeType As String, Cancel As Boolean, resultFilePath As String)
    Debug.Print suggestedFileName & " (" & totalBytes & " bytes, " & mimeType & ")"
    ' Cancel = True to block; set resultFilePath to redirect save location
End Sub

' DownloadProgressChanged � progress update (state: 0=InProgress,1=Interrupted,2=Completed)
Private Sub LiteView2Ctrl1_DownloadProgressChanged(ByVal downloadId As Long, _
        ByVal bytesReceived As Long, ByVal totalBytes As Long, ByVal state As Long)
    If totalBytes > 0 Then
        lblProgress.Caption = Format(bytesReceived / totalBytes * 100, "0") & "%"
    End If
End Sub

' DownloadCompleted � download finished
Private Sub LiteView2Ctrl1_DownloadCompleted(ByVal downloadId As Long, _
        ByVal resultFilePath As String, ByVal success As Boolean, _
        ByVal interruptReason As Long)
    If success Then Debug.Print "Saved: " & resultFilePath
End Sub

' IsDefaultDownloadDialogOpenChanged � download dialog toggled
Private Sub LiteView2Ctrl1_IsDefaultDownloadDialogOpenChanged()
    Debug.Print "Dialog open: " & m_lv.IsDownloadDialogOpen
End Sub

' SaveAsUIShowing � Save As dialog about to show (cancelable)
Private Sub LiteView2Ctrl1_SaveAsUIShowing(Cancel As Boolean)
    Cancel = True  ' suppress Save As dialog
End Sub

Per-Event Usage

' BasicAuthenticationRequested � HTTP Basic Auth challenge
Private Sub LiteView2Ctrl1_BasicAuthenticationRequested(ByVal uri As String, _
        ByVal challenge As String, username As String, _
        password As String, handled As Boolean)
    username = "admin": password = "secret": handled = True
End Sub

' ClientCertificateRequested � client certificate needed
Private Sub LiteView2Ctrl1_ClientCertificateRequested(ByVal uri As String, _
        handled As Boolean)
    Debug.Print "Client cert requested for: " & uri
End Sub

' ServerCertificateErrorDetected � SSL/TLS error (action: 0=Default, 1=AlwaysAllow)
Private Sub LiteView2Ctrl1_ServerCertificateErrorDetected(ByVal uri As String, _
        ByVal errorStatus As Long, ByVal certificateSubject As String, _
        action As Long)
    Debug.Print "SSL error " & errorStatus & " for " & certificateSubject
    action = 1  ' allow (for dev/testing only)
End Sub

Per-Event Usage

' ProcessFailed � browser crashed or exited unexpectedly
Private Sub LiteView2Ctrl1_ProcessFailed(ByVal processKind As Long, _
        ByVal reason As Long, ByVal exitCode As Long, _
        ByVal reasonMessage As String, ByVal frameInfo As String)
    MsgBox "Process crashed: " & reasonMessage, vbCritical
End Sub

' BrowserProcessExited � browser process terminated
Private Sub LiteView2Ctrl1_BrowserProcessExited(ByVal exitKind As Long, _
        ByVal processId As Long)
    Debug.Print "Process " & processId & " exited (kind=" & exitKind & ")"
End Sub

Per-Event Usage

' WebResourceRequested � intercepted request (cancelable)
' Requires AddWebResourceRequestedFilter to be called first
Private Sub LiteView2Ctrl1_WebResourceRequested(ByVal uri As String, _
        ByVal method As String, ByVal resourceContext As Long, _
        Cancel As Boolean)
    If InStr(uri, "tracking.js") > 0 Then Cancel = True
End Sub

' WebResourceResponseReceived � response info for tracked request
Private Sub LiteView2Ctrl1_WebResourceResponseReceived(ByVal uri As String, _
        ByVal statusCode As Long, ByVal reasonPhrase As String)
    If statusCode >= 400 Then Debug.Print "HTTP " & statusCode & ": " & uri
End Sub

Per-Event Usage

' FindMatchCountChanged � total match count updated
Private Sub LiteView2Ctrl1_FindMatchCountChanged(ByVal matchCount As Long)
    lblMatchCount.Caption = m_lv.FindActiveMatchIndex & " of " & matchCount
End Sub

' FindActiveMatchChanged � current highlighted match changed
Private Sub LiteView2Ctrl1_FindActiveMatchChanged(ByVal activeMatchIndex As Long)
    lblMatchCount.Caption = activeMatchIndex & " of " & m_lv.FindMatchCount
End Sub

' FindCompleted � find session finished
Private Sub LiteView2Ctrl1_FindCompleted(ByVal matchCount As Long)
    If matchCount = 0 Then lblStatus.Caption = "No matches."
End Sub

Per-Event Usage

' FrameCreated � new iFrame created
Private Sub LiteView2Ctrl1_FrameCreated(ByVal frameName As String, _
        ByVal frameId As String)
    Debug.Print "Frame created: " & frameName & " (id=" & frameId & ")"
End Sub

' FrameNavigationStarting � iFrame navigating (cancelable)
Private Sub LiteView2Ctrl1_FrameNavigationStarting(ByVal frameId As String, _
        ByVal uri As String, ByVal isRedirected As Boolean, Cancel As Boolean)
    If InStr(uri, "ads.example.com") > 0 Then Cancel = True
End Sub

' FrameNavigationCompleted � iFrame finished loading
Private Sub LiteView2Ctrl1_FrameNavigationCompleted(ByVal frameId As String, _
        ByVal uri As String, ByVal success As Boolean, _
        ByVal webErrorStatus As Long)
    If Not success Then Debug.Print "Frame failed: " & uri
End Sub

' FrameDestroyed � iFrame removed
Private Sub LiteView2Ctrl1_FrameDestroyed(ByVal frameId As String)
    Debug.Print "Frame destroyed: " & frameId
End Sub

Per-Event Usage

' Click / DblClick � control mouse events
Private Sub LiteView2Ctrl1_Click()
    Debug.Print "Click"
End Sub

Private Sub LiteView2Ctrl1_DblClick()
    Debug.Print "Double-click"
End Sub

' KeyPress � key pressed while control has focus
Private Sub LiteView2Ctrl1_KeyPress(ByVal keyCode As Long)
    Debug.Print "Key: " & keyCode & " (" & Chr(keyCode) & ")"
End Sub

' MouseEnter / MouseLeave � mouse hover tracking
Private Sub LiteView2Ctrl1_MouseEnter()
    Me.LiteView2Ctrl1.BorderColor = vbBlue
End Sub

Private Sub LiteView2Ctrl1_MouseLeave()
    Me.LiteView2Ctrl1.BorderColor = vbBlack
End Sub

' GotFocus / LostFocus � focus tracking
Private Sub LiteView2Ctrl1_GotFocus()
    Debug.Print "WebView got focus"
End Sub

Private Sub LiteView2Ctrl1_LostFocus()
    Debug.Print "WebView lost focus"
End Sub

' AcceleratorKeyPressed � keyboard shortcut (handled=True to consume)
Private Sub LiteView2Ctrl1_AcceleratorKeyPressed(ByVal keyEventKind As Long, _
        ByVal virtualKey As Long, ByVal keyEventLParam As Long, _
        handled As Boolean)
    If virtualKey = 116 Then handled = True  ' block F5 refresh
End Sub

' MoveFocusRequested � Tab/Shift+Tab out of WebView
Private Sub LiteView2Ctrl1_MoveFocusRequested(ByVal reason As Long, _
        Handled As Boolean)
    ' reason: 0=Next, 1=Previous
    Handled = True  ' keep focus in WebView
End Sub

Per-Event Usage

' PermissionRequested � camera, mic, location, etc.
Private Sub LiteView2Ctrl1_PermissionRequested(ByVal uri As String, _
        ByVal permissionKind As Long, ByVal isUserInitiated As Boolean, _
        state As Long)
    ' state: 0=Default, 1=Allow, 2=Deny
    state = 2  ' deny all permissions
End Sub

' ContextMenuRequested � right-click menu
Private Sub LiteView2Ctrl1_ContextMenuRequested(ByVal args As Object)
    Debug.Print "Right-click at " & args.LocationX & "," & args.LocationY
    args.Handled = True  ' suppress default menu
End Sub

' LaunchingExternalUriScheme � mailto:, tel:, etc. (cancelable)
Private Sub LiteView2Ctrl1_LaunchingExternalUriScheme(ByVal uri As String, _
        Cancel As Boolean)
    If Left(uri, 4) <> "tel:" Then Cancel = True  ' only allow tel: links
End Sub

' NotificationReceived � browser notification
Private Sub LiteView2Ctrl1_NotificationReceived(ByVal notification As String)
    Debug.Print "Notification: " & notification
End Sub

' ScreenCaptureStarting � screen capture about to start (cancelable)
Private Sub LiteView2Ctrl1_ScreenCaptureStarting(Cancel As Boolean)
    Cancel = True  ' block screen sharing
End Sub

' SaveFileSecurityCheckStarting � file save security check (cancelable)
Private Sub LiteView2Ctrl1_SaveFileSecurityCheckStarting(ByVal filePath As String, _
        Cancel As Boolean)
    If Right(filePath, 4) = ".exe" Then Cancel = True  ' block exe downloads
End Sub

Per-Event Usage

' IsMutedChanged � mute state toggled
Private Sub LiteView2Ctrl1_IsMutedChanged(ByVal isMuted As Boolean)
    btnMute.Caption = IIf(isMuted, "Unmute", "Mute")
End Sub

' IsDocumentPlayingAudioChanged � audio playback started/stopped
Private Sub LiteView2Ctrl1_IsDocumentPlayingAudioChanged(ByVal isPlayingAudio As Boolean)
    lblAudio.Visible = isPlayingAudio
End Sub

Per-Event Usage

' CaptchaDetected � CAPTCHA found on page
Private Sub LiteView2Ctrl1_CaptchaDetected(ByVal captchaType As String, _
        ByVal siteKey As String, ByVal pageUrl As String)
    Debug.Print captchaType & " detected on " & pageUrl
    m_lv.SolveCaptcha 30000  ' auto-solve with 30s timeout
End Sub

' CaptchaSolved � CAPTCHA resolution completed
Private Sub LiteView2Ctrl1_CaptchaSolved(ByVal token As String, _
        ByVal success As Boolean)
    If success Then m_lv.SubmitCaptchaToken token
End Sub

VB6/Hex Usage

' Enable hex mode BEFORE WebView2 init (Pre-Init property)
m_lv.EventsUseHexadecimal = True

' NavigationCompletedHex � NavigationId as hex string instead of Long
Private Sub LiteView2Ctrl1_NavigationCompletedHex(ByVal NavigationId As String)
    Debug.Print "NavId (hex): " & NavigationId  ' e.g. "0x1A2B3C"
End Sub

' ContentLoadingHex � same pattern
' DownloadStartingHex � totalBytes as hex BSTR
' DownloadProgressChangedHex � downloadId/bytes as hex BSTR
' DownloadCompletedHex � downloadId as hex BSTR
' All fire INSTEAD OF their standard counterparts when hex mode is on