Enum OLECMDF
    OLECMDF_SUPPORTED = 1
    OLECMDF_ENABLED = 2
    OLECMDF_LATCHED = 4
    OLECMDF_NINCHED = 8
End Enum

Enum OLECMDEXECOPT
    OLECMDEXECOPT_DODEFAULT = 0
    OLECMDEXECOPT_PROMPTUSER = 1
    OLECMDEXECOPT_DONTPROMPTUSER = 2
    OLECMDEXECOPT_SHOWHELP = 3
End Enum

Private Sub brwSaveAs_Click()
    On Error Resume Next

    Screen.MousePointer = vbHourglass
    DoEvents
    Web1(SSTab1.Tab).ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DONTPROMPTUSER, "aa", "(*.txt)"
    If Err.Number <> 0 Then
        MsgBox "无法另存新文件！"
    End If
    Screen.MousePointer = vbDefault
End Sub

帮不了你了，这是webbrowser相关的一些资料，希望对你有用
=========================================================================================================
把WEBBROWSER1装到PICTURE里面

Set Me.WebBrowser1.Container = Me.Picture1

上一页  [1] [2] [3] [4]