有没有WebBrowser控件的用法（详细）

Question

如题
请高手指点！谢谢！

Answer 1

关于使用 WebBrowser 控件的详细信息请参阅 MSDN Library CD 上的 Internet Client SDK，在 SDK Documentation 标头下

Answer 2

你可以VB的"对像浏览器"来查看一下,下面几个函数就是在"对像浏览器"找到的,当然还有更多,自己去找吧(比如整理收藏夹等都在里面的).
'-------------------------------
'使用OLECMD进行粘贴
'-------------------------------
Private Sub mnuEditPaste_Click()
  On Error Resume Next
  ActiveForm.brwWebBrowser.SetFocus
     ActiveForm.brwWebBrowser.ExecWB OLECMDID_PASTE, OLECMDEXECOPT_DODEFAULT
End Sub
'-------------------------------
'使用OLECMD进行复制
'-------------------------------
Private Sub mnuEditCopy_Click()
  On Error Resume Next
    ActiveForm.brwWebBrowser.SetFocus
   ActiveForm.brwWebBrowser.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULTEnd Sub'-------------------------------
'使用OLECMD进行打印
'-------------------------------
Private Sub mnuFilePrint_Click()
    On Error Resume Next
    ActiveForm.brwWebBrowser.SetFocus
 ActiveForm.brwWebBrowser.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULTEnd Sub
'-------------------------------
'使用OLECMD进行打印预览
'-------------------------------
Private Sub mnuFilePrintPreview_Click()
    On Error Resume Next
    ActiveForm.brwWebBrowser.SetFocus
 ActiveForm.brwWebBrowser.ExecWB OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_DODEFAULT
End Sub
'-------------------------------
'使用OLECMD进行打印页面设置
'-------------------------------
Private Sub mnuFilePageSetup_Click()
    On Error Resume Next
    ActiveForm.brwWebBrowser.SetFocus
ActiveForm.brwWebBrowser.ExecWB OLECMDID_PAGESETUP, OLECMDEXECOPT_DODEFAULT
End Sub
'-------------------------------
'使用OLECMD查看页面属性
'-------------------------------
Private Sub mnuFileProperties_Click()
      On Error Resume Next
    ActiveForm.brwWebBrowser.SetFocus
 ActiveForm.brwWebBrowser.ExecWB OLECMDID_PROPERTIES, OLECMDEXECOPT_DODEFAULT
End Sub'-------------------------------
'使用OLECMD进行保存页面(仅在浏览本地网页时有效)
'-------------------------------Private Sub mnuFileSaveAs_Click()
   On Error Resume Next
    ActiveForm.brwWebBrowser.SetFocus
ActiveForm.brwWebBrowser.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT
End Sub
'-------------------------------
'使用OLECMD进行页面另存为
'-------------------------------
Private Sub mnuFileSave_Click()
On Error Resume Next
    ActiveForm.brwWebBrowser.SetFocus
ActiveForm.brwWebBrowser.ExecWB OLECMDID_SAVE, OLECMDEXECOPT_DODEFAULT
End Sub
'-------------------------------
'使用OLECMD设置页面文字为较大
'-------------------------------
Private Sub mnuViewFontsizeLager_Click()
  On Error Resume Next
  Dim vFontSize As Variant
  vFontSize = 3
mnuViewFontsizeLager.Checked = True
ActiveForm.brwWebBrowser.SetFocus
ActiveForm.brwWebBrowser.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DODEFAULT, CLng(vFontSize)
End Sub
'-------------------------------
'使用OLECMD设置页面文字为最大
'-------------------------------
Private Sub mnuViewFontsizeLagerest_Click()
  On Error Resume Next
Dim vFontSize As Variant
vFontSize = 4
mnuViewFontsizeLagerest.Checked = True
ActiveForm.brwWebBrowser.SetFocus
ActiveForm.brwWebBrowser.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DODEFAULT, CLng(vFontSize)
End Sub
'-------------------------------
'使用OLECMD设置页面文字为中等
'-------------------------------
Private Sub mnuViewFontsizeMiddel_Click()
  On Error Resume Next
Dim vFontSize As Variant
vFontSize = 2
mnuViewFontsizeMiddel.Checked = True
ActiveForm.brwWebBrowser.SetFocus
ActiveForm.brwWebBrowser.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DODEFAULT, CLng(vFontSize)
End Sub
'-------------------------------
'使用OLECMD设置页面文字为较小
'-------------------------------
Private Sub mnuViewFontsizeSmall_Click()
  On Error Resume Next
  Dim vFontSize As Variant
  vFontSize = 1
mnuViewFontsizeSmall.Checked = True
ActiveForm.brwWebBrowser.SetFocus
ActiveForm.brwWebBrowser.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DODEFAULT, CLng(vFontSize)
End Sub
'-------------------------------
'使用OLECMD设置页面文字为最小
'-------------------------------
Private Sub mnuViewFontsizeSmallest_Click()
  On Error Resume Next
  Dim vFontSize As Variant
  vFontSize = 0
mnuViewFontsizeSmallest.Checked = True
ActiveForm.brwWebBrowser.SetFocus
ActiveForm.brwWebBrowser.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DODEFAULT, CLng(vFontSize)
End Sub