WebBrowser 全解析.docVIP

WebBrowser 全解析 一些使用技巧 1.禁止右键 看到很多关于WebBrowser控件禁止右键的提问，回复的方法很多，其中有提到使用微软提供的Webbrowser扩展COM服务器对象（WBCustomizer.dll），但是该方法在我们想使用Webbrowser编辑网页（Webbrowser1.Document.execCommand editMode）的时候有很多弊端，比如不能显示选中的文本等。另有些方法也就不用一一列举了。这儿我想提到的是关于MSHTML.HTMLDocument引用Microsoft HTML OBject LibraryRem ＃窗体代码＃Dim WithEvents M_Dom As MSHTML.HTMLDocumentPrivate Function M_Dom_oncontextmenu() As Boolean???????? M_Dom_oncontextmenu = FalseEnd FunctionPrivate Sub Webbrowser1_DownloadComplete()?????? Set M_Dom = Webbrowser1.DocumentEnd SubRem 好了，右键菜单没有了========================================================================= 2、控件调用和获得收藏夹里面基本上用 specialfolder(6 ) 就可以得到收藏夹的路径, 然后你可以用dir去循环读入每个目录,然后dir里面的file, file的名字就是你要的收藏的名字, 路径可以自己根据从上面得到的路径去得到.如果你不用dir也可以用vb的dir控件.Private Type SHITEMID???? cb As Long???? abID As ByteEnd TypePublic Type ITEMIDLIST???? mkid As SHITEMIDEnd TypePublic Function SpecialFolder(ByRef CSIDL As Long) As String???? locate the favorites folder???? Dim R As Long???? Dim sPath As String???? Dim IDL As ITEMIDLIST???? Const NOERROR = 0???? Const MAX_LENGTH = 260???? R = SHGetSpecialFolderLocation(MDIMain.hwnd, CSIDL, IDL)???? If R = NOERROR Then???????? sPath = Space$(MAX_LENGTH)???????? R = SHGetPathFromIDList(ByVal IDL.mkid.cb, ByVal sPath)???????? If R Then???????????? SpecialFolder = Left$(sPath, InStr(sPath, vbNullChar) - 1)???????? End If???? End IfEnd Function==============================================＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝3、全屏 是的,webbrowser本生是一个控件, 你要它全屏,就是要它所在的窗体全屏, 可以用setwindowlong取消窗体的 title, 用Call ShowWindow(FindWindow(Shell_traywnd, ), 0) 隐藏tray,就是下边那个包含开始那一行. 用Call ShowWindow(FindWindow(Shell_traywnd, ), 9) 恢复. 够详细了吧.然后在form1.windowstate = 2 就可以了.================================================================================4、选择网页上的内容。Private Sub Command1_Click()请先选中一些内容Me.WebBrowser1.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULTMsgBox Clipboard.GetTextEnd Sub=========================================================