WEBBROWSER 技巧.doc

看到很多关于WebBrowser控件禁止右键的提问，回复的方法很多，其中有提到使用微软提供的Webbrowser扩展COM服务器对象（WBCustomizer.dll），但是该方法在我们想使用Webbrowser编辑网页（Webbrowser1.Document.execCommand editMode）的时候有很多弊端，比如不能显示选中的文本等。另有些方法也就不用一一列举了。 这儿我想提到的是关于MSHTML.HTMLDocument 引用Microsoft HTML OBject Library Rem ＃窗体代码＃ Dim WithEvents M_Dom As MSHTML.HTMLDocument Private Function M_Dom_oncontextmenu() As Boolean??????? M_Dom_oncontextmenu = FalseEnd Function ?Private Sub Webbrowser1_DownloadComplete()????? Set M_Dom = Webbrowser1.Document?End Sub Rem 好了，右键菜单没有了 ? =============================================================================== 控件调用和获得收藏夹里面 基本上用 specialfolder(6 ) 就可以得到收藏夹的路径, 然后你可以用dir去循环读入每个目录,然后dir里面的file, file的名字就是你要的收藏的名字, 路径可以自己根据从上面得到的路径去得到.如果你不用dir也可以用vb的dir控件.Private Type SHITEMID??? cb As Long??? abID As ByteEnd Type Public 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====================================================================================＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝全屏 是的,webbrowser本生是一个控件, 你要它全屏,就是要它所在的窗体全屏, 可以用setwindowlong取消窗体的 title, 用Call ShowWindow(FindWindow(Shell_traywnd, ), 0) 隐藏tray,就是下边那个包含开始那一行. 用Call ShowWindow(FindWindow(Shell_traywnd, ), 9) 恢复. 够详细了吧. 然后在form1.windowstate = 2 就可以了. ==============================================================================================================选择网页上的内容。Private Sub Command1_Click()请先选中一些内容Me.WebBrowser1.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULTMsgBox Clipboard.GetTextEnd Sub =================================