关于web browser 控件

Question

各位大侠，可否指教一下如何将显示在VB web browser 控件中的页面内容存储起来以及如何显示本机的HTML文件，非常感谢！！！

Answer 1

调用webbrowser的另存为功能
Option Explicit
Enum OLECMDID
     OLECMDID_OPEN = 1
     OLECMDID_NEW = 2
     OLECMDID_SAVE = 3
     OLECMDID_SAVEAS = 4
     OLECMDID_SAVECOPYAS = 5
     OLECMDID_PRINT = 6
     OLECMDID_PRINTPREVIEW = 7
     OLECMDID_PAGESETUP = 8
     OLECMDID_SPELL = 9
     OLECMDID_PROPERTIES = 10
     OLECMDID_CUT = 11
     OLECMDID_COPY = 12
     OLECMDID_PASTE = 13
     OLECMDID_PASTESPECIAL = 14
     OLECMDID_UNDO = 15
     OLECMDID_REDO = 16
     OLECMDID_SELECTALL = 17
     OLECMDID_CLEARSELECTION = 18
     OLECMDID_ZOOM = 19
     OLECMDID_GETZOOMRANGE = 20
     OLECMDID_UPDATECOMMANDS = 21
     OLECMDID_REFRESH = 22
     OLECMDID_STOP = 23
     OLECMDID_HIDETOOLBARS = 24
     OLECMDID_SETPROGRESSMAX = 25
     OLECMDID_SETPROGRESSPOS = 26
     OLECMDID_SETPROGRESSTEXT = 27
     OLECMDID_SETTITLE = 28
     OLECMDID_SETDOWNLOADSTATE = 29
     OLECMDID_STOPDOWNLOAD = 30
     OLECMDID_ONTOOLBARACTIVATED = 31
     OLECMDID_FIND = 32
     OLECMDID_DELETE = 33
     OLECMDID_HTTPEQUIV = 34
     OLECMDID_HTTPEQUIV_DONE = 35
     OLECMDID_ENABLE_INTERACTION = 36
     OLECMDID_ONUNLOAD = 37
End EnumEnum OLECMDF
    OLECMDF_SUPPORTED = 1
    OLECMDF_ENABLED = 2
    OLECMDF_LATCHED = 4
    OLECMDF_NINCHED = 8
End EnumEnum OLECMDEXECOPT
    OLECMDEXECOPT_DODEFAULT = 0
    OLECMDEXECOPT_PROMPTUSER = 1
    OLECMDEXECOPT_DONTPROMPTUSER = 2
    OLECMDEXECOPT_SHOWHELP = 3
End EnumPrivate Sub brwSaveAs_Click()
    On Error Resume Next    Screen.MousePointer = vbHourglass
    DoEvents
    Web1(SSTab1.Tab).ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_PROMPTUSER
    If Err.Number <> 0 Then
        MsgBox "无法另存新文件！"
    End If
    Screen.MousePointer = vbDefault
End SubPrivate Sub brwPrint_Click()
    On Error Resume Next    Screen.MousePointer = vbHourglass
    DoEvents
    Web1(SSTab1.Tab).ExecWB OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER
    If Err.Number <> 0 Then
        MsgBox "无法开启打印机！"
    End If
    Screen.MousePointer = vbDefault
End SubPrivate Sub brwPrintPreView_Click()
    On Error Resume Next    Screen.MousePointer = vbHourglass
    DoEvents    Web1(SSTab1.Tab).ExecWB OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_PROMPTUSER
    If Err.Number <> 0 Then
        MsgBox "无法完成文件预览！"
    End If
    Screen.MousePointer = vbDefault
End Sub