webbrowser 技巧2　（收藏）

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] 

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18