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]