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.
(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
A list of advanced features using the webbrowser control. Comments
No comments yet — be the first to post one!
Post a Comment