• Home
 · 
• Internet/HTML
 · 
• A list of advanced features using the webbrowser control.

A list of advanced features using the webbrowser control.

A list of advanced features using the webbrowser control.

Rate A list of advanced features using the webbrowser control.

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'Note, if you want the view source form to be modal, make it modal after changing the text.
frmsource.text1.text=webbrowser1.document.documentelement.innerhtml
'modal
frmsource.show vbmodal

'Print Page
On Error Resume Next  'Incase the user cancels
Browser.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT  'Bring up Print Dialog

'Save Webpage and All graphics
browser.ExecWB OLECMDID_SAVE,OLECMDEXECOPT_DODEFAULT

'Perfect Statusbar
Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
On Error Resume Next
If Progress = -1 Then ProgressBar1.Value = 100
If Progress > 0 And ProgressMax > 0 Then
    ProgressBar1.Value = Progress * 100 / ProgressMax
    End If
    Exit Sub
End Sub

(The rest only work with Version 6.0 of webbrowser control.)


'Display an icon if the page is secure 
Private Sub WebBrowser1_SetSecureLockIcon(ByVal SecureLockIcon As Long)
  If SecureLockIcon <> 0 Then
    imgSecure.Picture = path to secure icon
  Else
    imgSecure.Picture = path to unsecure icon
  End If
End Sub

Custom Close Window Alert
Private Sub WebBrowser1_WindowClosing(ByVal IsChildWindow As Boolean, Cancel As Boolean)
  If MsgBox("This webpage is trying to close your browser window." & vbCrLf & vbCrLf & "Are you sure you want to close it?", vbYesNo, "BAPNet") = vbYes Then
    Unload Me
    Cancel = True
  ElseIf vbNo Then
    Cancel = True
  End If
End Sub