/P>看到很多有关WebBrowserControl控件禁止右键提问回复思路方法很多其中有提到使用微软提供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 = False
End Function

Private Sub Webbrowser1_DownloadComplete
Set M_Dom = Webbrowser1.Document
End Sub

Rem 好了右键菜单没有了



=

Control控件和获得收藏夹里面

基本上用 specialfolder(6 ) 就可以得到收藏夹路径, 然后你可以用dir去循环读入每个目录,然后dir里面file, file名字就是你要收藏名字, 路径可以自己根据从上面得到路径去得到.
如果你不用dir也可以用vbdirControl控件.
Private Type SHITEMID
cb As Long
abID As Byte
End Type

Public Type ITEMIDLIST
mkid As SHITEMID
End Type
Public 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 If
End Function
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
全屏

是,webbrowser本生是个Control控件, 你要它全屏,就是要它所在窗体全屏, 可以用windowlong取消窗体 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_DODEFAULT
MsgBox Clipboard.GetText
End Sub


用IE来下载文件
Private Declare Function DoFileDownload Lib \"shdocvw.dll\" (ByVal lpszFile As String) As Long


Private Sub Command1_Click

Dim sDownload As String

sDownload = StrConv(Text1.Text, vbUnicode)
Call DoFileDownload(sDownload)

End Sub

Private Sub Form_Load
Text1.Text = \"\"
Form1.Caption = \"Audiograbber 1.62 Full\"
Text2.Text = \"\"
End Sub




我要动态加载和删除WebBrowserControl控件应该如何做？

Private Sub Command1_Click
Form1.Controls.Add \"shell.explorer.2\", \"NewWeb\", Form1
With Form1!NewWeb
.Visible = True
.Width = 10000
.Height = 10000
.Left = 0
.Top = 0
.Navigate2 \"\"
End With
End Sub

Private Sub Command2_Click
Controls.Remove Form1!web
End Sub

Form1.Controls.Add \"shell.explorer.2\", web(web.Count), Form1
With Form1!web(web.Count)
.Visible = True
.Width = 1000
.Height = 1000
.Left = web(web.Count - 1).Left + web(web.Count - 1).Width
.Top = 0
´.Navigate2 \"\"
End With
为什么他说我
Form1.Controls.Add \"shell.explorer.2\", web(web.Count), Form1
这行13 类型不匹配？
ps:我在form中已经有了个web(0)Control控件





先为个WebBrowser
Dim i As Integer
Private Sub AddWeb_Click
For i = 1 To 10
Load NewWeb(i)
NewWeb(i).Top = i * 100
NewWeb(i).Left = i * 100
NewWeb(i).Visible = True
Next i
End Sub

Private Sub DelWeb_Click
For i = 1 To 10
Unload NewWeb(i)
Next i
End Sub

=


个把页面保存为MHT(即MHTML)文件
1、

谢谢楼上几位大侠！我现在将 pcwak(书剑狂生[MS MVP]) 大侠提供资料贴出来以供大家参考:
我终于找到个把页面保存为MHT(即MHTML)文件思路方法了!
首先在工程中必须要引用个库:
Library CDO
D:\\WINNT\\32\\cdosys.dll
Microsoft CDO for Windows 2000 Library
其次需要Stream对应接口支持如果你时找不到就使用支持这个较新ADO就行了如
Library ADODB
D:\\Program Files\\Common Files\\system\\ado\\msado15.dll
Microsoft ActiveX Data Objects 2.5 Library
代码如下十分简单(同时由于流特点显示在实际应用中没必要象本例中那样把文件保存到磁盘上就可直接转换为串或字节什么处理

另对于Microsoft CDO for Windows 2000 Library这个库在WIN98中要如何使用还没试过感兴趣朋友可以试试并跟帖以丰富完善其内容:)

Private Sub Command1_Click
´ Reference to Microsoft ActiveX Data Objects 2.5 Library
´ Reference to Microsoft CDO for Windows 2000 Library
Dim iMsg As New CDO.Message
Dim iConf As New CDO.Configuration
Dim objStream As ADODB.Stream

With iMsg
.CreateMHTMLBody \"\";, , _
\"do\\username\", _
\"password\"
Set objStream = .GetStream
Call objStream.SaveToFile(\"f:\\test.mht\", adSaveCreateOverWrite)
End With
End Sub

2、


´首先加入对ADODB和CDO(Microsoft CDO for Windows 2000 Library对应文件名为CDOSYS.dll)引用
Private Sub Command1_Click
Dim message As New CDO.message
Dim Outstream As ADODB.Stream
_disibledevent=> Call Outstream.SaveToFile(\"c:\\test.mht\", ADODB.SaveOptionsEnum.adSaveCreateOverWrite)
MsgBox \"完成\"

Exit Sub
myerr1:
Set message = Nothing
Set Outstream = Nothing
End Sub

=




请问高手们怎样在WebBrowserControl控件收藏夹和在收藏夹里添加收藏
Option Explicit

Private Sub Command1_Click
Dim ObjSUH As New ShellUIHelper
ObjSUH.AddFavorite \"\", \"CSDN\"
Set ObjSUH = Nothing
End Sub

=