当前位置: 网学 > 编程文档 > VB > 正文

WEBBROWSER 技巧

来源:Http://myeducs.cn 联系QQ:点击这里给我发消息 作者: 用户投稿 来源: 网络 发布时间: 12/10/16
下载{$ArticleTitle}原创论文样式
p;
   sDownload = StrConv(Text1.Text, vbUnicode)
   Call DoFileDownload(sDownload)
  
End Sub

Private Sub Form_Load()
Text1.Text = "http://www.chat.ru/~softdaily/fo-ag162.zip"
Form1.Caption = "Audiograbber 1.62 Full"
Text2.Text = "http://www6.50megs.com/audiograbber/demos/cr-ag161.zip"
End Sub


================================================================================================================

我要动态加载和删除WebBrowser控件应该怎么做?

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 "www.csdn.net"
    End With
End Sub

Private Sub Command2_Click()
     Controls.Remove Form1!newweb
End Sub

Form1.Controls.Add "shell.explorer.2", newweb(newweb.Count), Form1
    With Form1!newweb(newweb.Count)
        .Visible = True
        .Width = 1000
        .Height = 1000
        .Left = newweb(newweb.Count - 1).Left + newweb(newweb.Count - 1).Width
        .Top = 0
        ''.Navigate2 "www.csdn.net"
    End With
为什么他说我
Form1.Controls.Add "shell.explorer.2", newweb(newweb.Count), Form1
这一行错误13 类型不匹配?
ps:我在form中已经有了一个newweb(0)控件

 

先为一个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:WINNTSystem32cdosys.dll
Microsoft CDO for Windows 2000 Library
其次,需要Stream对应的接口的支持,如果你一时找不到就使用支持这个的较新的ADO就行了,如
Library ADODB
D:Program FilesCommon Filessystemadomsado15.dll
Microsoft ActiveX Data Objects 2.5 Library
代码如下,十分简单(同时由于流的特点,显示在实际应用中没必要象本例中那样把文件保存到磁盘上就可直接转换为字符串或字节数组

网学推荐

免费论文

原创论文

浏览:
设为首页 | 加入收藏 | 论文首页 | 论文专题 | 设计下载 | 网学软件 | 论文模板 | 论文资源 | 程序设计 | 关于网学 | 站内搜索 | 网学留言 | 友情链接 | 资料中心
版权所有 QQ:3710167 邮箱:3710167@qq.com 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
Copyright 2008-2015 myeducs.Cn www.myeducs.Cn All Rights Reserved
湘ICP备09003080号