sp; cboAddress.AddItem brwWebBrowser.LocationURL, 0 ‘添加
cboAddress.ListIndex = 0
mbDontNavigateNow = False
End Sub
四、 菜单
WEBBROWSER控件和INTERNET EXPLORER AUTOMATION的EXECWB方法,提供了很多命令给用户执行,命令作用在OLE对象上。但有很多命令执行对WEBBROWSER控件无效,具体的方法参数请看MSDN。
Private Sub mnuEdigCut_Click()
brwWebBrowser.SetFocus
On Error Resume Next
brwWebBrowser.ExecWB OLECMDID_CUT, OLECMDEXECOPT_DODEFAULT
‘剪切
End Sub
Private Sub mnuEditCopy_Click()
On Error Resume Next
brwWebBrowser.SetFocus
brwWebBrowser.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT
‘复制
End Sub
Private Sub mnuEditFind_Click()
On Error Resume Next
brwWebBrowser.SetFocus
brwWebBrowser.ExecWB OLECMDID_FIND, OLECMDEXECOPT_DODEFAULT
‘查找,(无效)
End Sub
Private Sub mnuEditPaste_Click()
On Error Resume Next
brwWebBrowser.SetFocus
brwWebBrowser.ExecWB OLECMDID_PASTE, OLECMDEXECOPT_DODEFAULT
‘粘贴
End Sub
Private Sub mnuEditSelectedAll_Click()
brwWebBrowser.SetFocus
brwWebBrowser.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT
‘全选
End Sub
Private Sub mnuFileAttrib_Click()
Me.brwWebBrowser.SetFocus
On Error Resume Next
brwWebBrowser.ExecWB OLECMDID_PROPERTIES, OLECMDEXECOPT_DODEFAULT
‘显示网页的属性
End Sub
Private Sub mnuFileNew_Click()
Dim frmNew As New frmMainExploer ‘新建窗口
frmNew.Show
Set frmNew = Nothing
End Sub
Private Sub mnuFileOpen_Click()
'''' brwWebBrowser.SetFocus
'''' On Error Resume Next
'''' brwWebBrowser.ExecWB OLECMDID_OPEN, OLECMDEXECOPT_DODEFAULT
‘打开
‘以下是用原始的方式打开
Dim sFile As String
With dlgCommonDialog
.DialogTitle = "打开网页"
.CancelError = False
''''ToDo: 设置 common dialog 控件的标志和属性
.Filter = "HTML文件(*.html,*.htm)|*.html;*htm|文本文件(*.txt)|*.txt|Asp文件(*.asp)|*.asp" & _
"|图形文件(*.bmp;*.jpg;*.jpeg;*.gif)|*.bmp;*.jpg;*.jpeg;*.gif|所有文件(*.*)|*.*"
.ShowOpen
If Len(.filename) = 0 Then
Exit Sub
End If
sFile = .filename
End With
''''ToDo: 添加处理打开的文件的代码
brwWebBrowser.Navigate sFile
End Sub
Private Sub mnuFilePrint_Click()
brwWebBrowser.SetFocus
On Error Resume Next
brwWebBrowser.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT
‘打印
End Sub
Private Sub mnuFileSave_Click()
brwWebBrowser.SetFocus
On Error Resume Next
brwWebBrowser.ExecWB OLECMDID_SAVE, OLECMDEXECOPT_DODEFAULT
‘保存
‘以下是用原始的方式保存网页
'''' Dim sFile As String
''''
'''' With dlgCommonDialog
'''' .DialogTitle = "保存"
'''' .Filter = "HTML文件(*.html,*.htm)|*.html;*htm|文本文件(*.txt)|*.txt|Asp文件(*.asp)|*.asp" & _
'''' "|图形文件(*.bmp;*.jpg;*.jpeg;*.gif)|*.bmp;*.jpg;*.jpeg;*.gif|所有文件(*.*)|*.*"
'''' .ShowSave
'''' End With
End Sub
上一页 [1] [2] [3] 没有相关教程
|