_DLiteView2CtrlEvents 60+ 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