📄 2196.htm
字号:
<P>Rem ＃窗体代码＃</P>
<P>Dim WithEvents M_Dom As MSHTML.HTMLDocument <BR>Private Function M_Dom_oncontextmenu() As Boolean<BR> M_Dom_oncontextmenu = False<BR>End Function</P>
<P> Private Sub Webbrowser1_DownloadComplete()<BR> Set M_Dom = Webbrowser1.Document<BR> End Sub</P>
<P>Rem 好了，右键菜单没有了</P>
<P> </P>
<P>===============================================================================</P>
<P>控件调用和获得收藏夹里面</P>
<P>基本上用 specialfolder(6 ) 就可以得到收藏夹的路径, 然后你可以用dir去循环读入每个目录,然后dir里面的file, file的名字就是你要的收藏的名字, 路径可以自己根据从上面得到的路径去得到.<BR>如果你不用dir也可以用vb的dir控件.<BR>Private Type SHITEMID<BR> cb As Long<BR> abID As Byte<BR>End Type</P>
<P>Public Type ITEMIDLIST<BR> mkid As SHITEMID<BR>End Type<BR>Public Function SpecialFolder(ByRef CSIDL As Long) As String<BR> 'locate the favorites folder<BR> Dim R As Long<BR> Dim sPath As String<BR> Dim IDL As ITEMIDLIST<BR> Const NOERROR = 0<BR> Const MAX_LENGTH = 260<BR> R = SHGetSpecialFolderLocation(MDIMain.hwnd, CSIDL, IDL)<BR> If R = NOERROR Then<BR> sPath = Space$(MAX_LENGTH)<BR> R = SHGetPathFromIDList(ByVal IDL.mkid.cb, ByVal sPath)<BR> If R Then<BR> SpecialFolder = Left$(sPath, InStr(sPath, vbNullChar) - 1)<BR> End If<BR> End If<BR>End Function<BR>====================================================================================＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝<BR>全屏</P>
<P>是的,webbrowser本生是一个控件, 你要它全屏,就是要它所在的窗体全屏, 可以用setwindowlong取消窗体的 title, 用Call ShowWindow(FindWindow("Shell_traywnd", ""), 0) 隐藏tray,就是下边那个包含开始那一行. 用Call ShowWindow(FindWindow("Shell_traywnd", ""), 9) 恢复. 够详细了吧.</P>
<P>然后在form1.windowstate = 2 就可以了.</P>
<P>==============================================================================================================<BR>选择网页上的内容。<BR>Private Sub Command1_Click()<BR>'请先选中一些内容<BR>Me.WebBrowser1.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT<BR>MsgBox Clipboard.GetText<BR>End Sub</P>
<P>==============================================================================================================<BR>用IE来下载文件<BR>Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long</P>
<P><BR>Private Sub Command1_Click()<BR> <BR> Dim sDownload As String<BR> <BR> sDownload = StrConv(Text1.Text, vbUnicode)<BR> Call DoFileDownload(sDownload)<BR> <BR>End Sub</P>
<P>Private Sub Form_Load()<BR>Text1.Text = "<A href="http://www.chat.ru/~softdaily/fo-ag162.zip">http://www.chat.ru/~softdaily/fo-ag162.zip</A>"<BR>Form1.Caption = "Audiograbber 1.62 Full"<BR>Text2.Text = "<A href="http://www6.50megs.com/audiograbber/demos/cr-ag161.zip">http://www6.50megs.com/audiograbber/demos/cr-ag161.zip</A>"<BR>End Sub</P>
<P><BR>================================================================================================================</P>
<P>我要动态加载和删除WebBrowser控件应该怎么做？</P>
<P>Private Sub Command1_Click()<BR> Form1.Controls.Add "shell.explorer.2", "NewWeb", Form1<BR> With Form1!NewWeb<BR> .Visible = True<BR> .Width = 10000<BR> .Height = 10000<BR> .Left = 0<BR> .Top = 0<BR> .Navigate2 "<A href="http://www.csdn.net/">www.csdn.net</A>"<BR> End With<BR>End Sub</P>
<P>Private Sub Command2_Click()<BR> Controls.Remove Form1!newweb<BR>End Sub</P>
<P>Form1.Controls.Add "shell.explorer.2", newweb(newweb.Count), Form1<BR> With Form1!newweb(newweb.Count)<BR> .Visible = True<BR> .Width = 1000<BR> .Height = 1000<BR> .Left = newweb(newweb.Count - 1).Left + newweb(newweb.Count - 1).Width<BR> .Top = 0<BR> '.Navigate2 "<A href="http://www.csdn.net/">www.csdn.net</A>"<BR> End With<BR>为什么他说我<BR>Form1.Controls.Add "shell.explorer.2", newweb(newweb.Count), Form1<BR>这一行错误13 类型不匹配？<BR>ps：我在form中已经有了一个newweb(0)控件</P>
<P> </P>
<P>先为一个WebBrowser<BR>Dim i As Integer<BR>Private Sub AddWeb_Click()<BR> For i = 1 To 10<BR> Load NewWeb(i)<BR> NewWeb(i).Top = i * 100<BR> NewWeb(i).Left = i * 100<BR> NewWeb(i).Visible = True<BR> Next i<BR>End Sub</P>
<P>Private Sub DelWeb_Click()<BR> For i = 1 To 10<BR> Unload NewWeb(i)<BR> Next i<BR>End Sub</P>
<P>=============================================================================================================</P>
<P><BR>一个把页面保存为MHT(即MHTML)文件<BR>1、</P>
<P>谢谢楼上几位大侠！我现在将 pcwak(书剑狂生[MS MVP]) 大侠提供的资料贴出来，以供大家参考：<BR> 我终于找到一个把页面保存为MHT(即MHTML)文件的方法了!<BR>首先，在工程中必须要引用一个库：<BR>Library CDO<BR>D:\WINNT\System32\cdosys.dll<BR>Microsoft CDO for Windows 2000 Library<BR>其次，需要Stream对应的接口的支持，如果你一时找不到就使用支持这个的较新的ADO就行了，如<BR>Library ADODB<BR>D:\Program Files\Common Files\system\ado\msado15.dll<BR>Microsoft ActiveX Data Objects 2.5 Library<BR>代码如下，十分简单(同时由于流的特点，显示在实际应用中没必要象本例中那样把文件保存到磁盘上就可直接转换为字符串或字节数组什么的处理的。</P>
<P>另，对于Microsoft CDO for Windows 2000 Library这个库，在WIN98中要怎么使用还没试过，感兴趣的朋友可以试试并跟帖，以丰富完善其内容：)</P>
<P>Private Sub Command1_Click()<BR>' Reference to Microsoft ActiveX Data Objects 2.5 Library<BR>' Reference to Microsoft CDO for Windows 2000 Library<BR>Dim iMsg As New CDO.Message<BR>Dim iConf As New CDO.Configuration<BR>Dim objStream As ADODB.Stream</P>
<P>With iMsg<BR>.CreateMHTMLBody "<A href="http://www.163.com/">http://www.163.com/</A>";, , _<BR>"domain\username", _<BR>"password"<BR>Set objStream = .GetStream<BR>Call objStream.SaveToFile("f:\test.mht", adSaveCreateOverWrite)<BR>End With<BR>End Sub</P>
<P>2、</P>
<P><BR>'首先加入对ADODB和CDO（Microsoft CDO for Windows 2000 Library，对应文件名为CDOSYS.dll）的引用<BR>Private Sub Command1_Click()<BR> Dim message As New CDO.message<BR> Dim Outstream As ADODB.Stream<BR> On Error GoTo myerr1<BR> Call message.CreateMHTMLBody("<A href="http://www.csdn.net/">http://www.csdn.net</A>", CDO.CdoMHTMLFlags.cdoSuppressNone, "", "")<BR> Set Outstream = message.GetStream<BR> Call Outstream.SaveToFile("c:\test.mht", ADODB.SaveOptionsEnum.adSaveCreateOverWrite)<BR> MsgBox "完成"<BR> <BR> Exit Sub<BR>myerr1:<BR> Set message = Nothing<BR> Set Outstream = Nothing<BR>End Sub</P>
<P>=================================================================================================================</P>
<P> </P>
<P><BR>请问高手们怎样在WebBrowser控件调用收藏夹和在收藏夹里添加收藏<BR>Option Explicit</P>
<P>Private Sub Command1_Click()<BR> Dim ObjSUH As New ShellUIHelper<BR> ObjSUH.AddFavorite "<A href="http://www.csdn.net/">http://www.csdn.net</A>", "CSDN"<BR> Set ObjSUH = Nothing<BR>End Sub</P>
<P>=================================================================================================================</P> <center></center>
</td>
</tr>
<tr><td height="6"></td></tr>
<tr><td height="25" align="right">文章录入：admin 责任编辑：admin </td></tr>
<tr><td height="1" background="/skin/mzstory/mz_line.gif"></td></tr>
<tr><td height="3"></td></tr>
<tr><td height="25" align="center">【字体：<a href="javascript:fontZoomA();" class="top_UserLogin">小</a> <a href="javascript:fontZoomB();" class="top_UserLogin">大</a>】【<a href="/Article/Comment.asp?ArticleID=2196" target="_blank">发表评论</a>】【<a href="/User/User_Favorite.asp?Action=Add&ChannelID=1&InfoID=2196" target="_blank">加入收藏</a>】【<a href="/Article/SendMail.asp?ArticleID=2196" target="_blank">告诉好友</a>】【<a href="/Article/Print.asp?ArticleID=2196" target="_blank">打印此文</a>】【<a href="javascript:window.close();">关闭窗口</a>】</td></tr>
<tr><td height="5"></td></tr>
<tr><td><li>上一篇文章： <a class='LinkPrevArticle' href='/Article/wlbc/ProgramOther/200606/2195.html' title='文章标题：获取webbrowser控件 网页的源码
作 者：佚名
更新时间：2006-6-3 18:51:53'>获取webbrowser控件 网页的源码</a></li><br><li>下一篇文章： <a class='LinkNextArticle' href='/Article/wlbc/ProgramOther/200606/2197.html' title='文章标题：应用MapX编程两例
作 者：佚名
更新时间：2006-6-3 18:52:02'>应用MapX编程两例</a></li></td></tr>
<tr><td height="5"></td></tr>
<tr><td height="1" background="/skin/mzstory/mz_line.gif"></td></tr>
<tr><td height="5"></td></tr>
<tr><td>
<table width="96%" align="center" cellpadding="0" cellspacing="0" border="0">
<tr><td width="4" height="4"><img src="/skin/mzstory/lm06_l.gif"></td>
<td background="/skin/mzstory/lm06_bg.gif"><img src="/skin/mzstory/mz_space.gif"></td>
<td width="4"><img src="/skin/mzstory/lm06_r.gif"></td>
</tr>
</table>
<table width="96%" align="center" cellpadding="0" cellspacing="0" border="0">
<tr><td width="1" background="/skin/mzstory/mz_line2.gif"></td>
<td>
<table width="99%" align="center" cellpadding="0" cellspacing="0" border="0">
<tr><td height="4" colspan="3"><img src="/skin/mzstory/mz_space.gif"></td></tr>
<tr><td width="6" height="26"><img src="/skin/mzstory/blm02_l.gif"></td>
<td width="20" align="center" bgcolor="#0D96BB"><img src="/skin/mzstory/mz_icon03.gif"></td>
<td bgcolor="#0D96BB"><img src="/Images/TEAM.gif" align="absmiddle"> <b>网友评论：</b>（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）</td> </td>
<td width="6"><img src="/skin/mzstory/blm02_r.gif"></td>
</tr>
</table>
<table width="99%" align="center" cellpadding="0" cellspacing="0" border="0">
<tr><td height="5"></td></tr>
<tr><td><script language='javascript' src='/Article/Comment.asp?Action=JS&CommentNum=10&ArticleID=2196'></script></td></tr>
</table>
</td>
<td width="1" background="/skin/mzstory/mz_line2.gif"></td>
</tr>
</table>
<table width="96%" align="center" cellpadding="0" cellspacing="0" border="0">
<tr><td width="4" height="4"><img src="/skin/mzstory/lm06_r.gif"></td>
<td background="/skin/mzstory/lm06_bg1.gif"><img src="/skin/mzstory/mz_space.gif"></td>
<td width="4" height="4"><img src="/skin/mzstory/lm06_l.gif"></td>
</tr>
<tr><td colspan="3" height="5"><img src="/skin/mzstory/mz_space.gif"></td></tr>
</table>
</td>
</tr>
</table>
</td>
<td width="5"></td>
</tr>
</table>
</td>
</tr>
</table>
<table width="100%" align="center" cellpadding="0" cellspacing="0" border="0">
<tr><td width="6" height="8"><img src="/skin/mzstory/right_04l.gif"></td>
<td background="/skin/mzstory/right_04bg.gif"><img src="/skin/mzstory/mz_space.gif"></td>
<td width="56"><img src="/skin/mzstory/right_04r.gif"></td>
</tr>
<tr><td height="1" colspan="3"></td></tr>
</table>
</td>
<td width="5"></td>
<td width="3" background="/skin/mzstory/bg_right.gif"></td>
</tr>
</table>
<table width="778" align="center" cellpadding="0" cellspacing="0" border="0" bgcolor="#FFFFFF">
<tr><td width="3" background="/skin/mzstory/bg_left.gif"></td>
<td height="1" align="center"><img src="/skin/mzstory/mz_space.gif"></td>
<td width="3" background="/skin/mzstory/bg_right.gif"></td>
</tr>
</table>
<table cellSpacing=0 cellPadding=0 width=778 align=center bgColor=#ffffff border=0>
<tr>
<td width=3 background=/skin/mzstory/bg_left.gif></td>
<td>
<table cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
<tr>
<td height=12></td>
</tr>
<tr>
<td bgColor=#aaaaaa height=7></td>
</tr>
<tr>
<td height=2></td>
</tr>
<tr>
<td align=middle><IMG src="/skin/mzstory/mz_bline.gif"></td>
</tr>
</table>
<table cellSpacing=0 cellPadding=0 width="98%" align=center border=0>
<tr>
<td style="COLOR: #006677" align=middle height=25>| <A class=Bottom href="/inside/about.asp">关于本站</A> | <A class=Bottom onclick="this.style.behavior='url(#default#homepage)';this.setHomePage('http://www.wwcq.cn');" href="/$">设为首页</A> | <A class=Bottom href="javascript:window.external.addFavorite('http://www.wwcq.cn','站长之家');">加入收藏</A> | <A class=Bottom href="mailto:youzhong_ni@163.com">站长邮箱</A> | <A class=Bottom href="/FriendSite/Index.asp" target=_blank>友情链接</A> | <A class=Bottom href="/Announcelist.asp" target=_blank>网站公告</A> | <A class=Bottom href="/Copyright.asp" target=_blank>版权申明</A></td>
</tr>
<tr>
<td background=/skin/mzstory/mz_line.gif height=1></td>
</tr>
<tr>
<td vAlign=top>
<table cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
<tr>
<td style="BACKGROUND-POSITION-X: center; BACKGROUND-IMAGE: url(/skin/mzstory/Bottom_Logo.gif); BACKGROUND-REPEAT: no-repeat" width=260 height=100><IMG src="/skin/mzstory/mz_space.gif"></td>
<td></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td width=3 background=/skin/mzstory/bg_right.gif></td>
</tr>
</table>
<table cellSpacing=0 cellPadding=0 width=778 align=center border=0>
<tr>
<td width=10 height=10><IMG src="/skin/mzstory/b_left.gif"></td>
<td background=/skin/mzstory/b_bg.gif><IMG src="/skin/mzstory/mz_space.gif"></td>
<td width=10><IMG src="/skin/mzstory/b_right.gif"></td>
</tr>
<tr>
<td colSpan=3 height=10><IMG src="/skin/mzstory/mz_space.gif"></td>
</tr>
</table>
</body>
</html>
<NOSCRIPT><IFRAME src='*' Width='0' Height='0'></IFRAME></NOSCRIPT>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -