注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

郭蕾蕾 廊坊师范学院信息技术提高班十一期

我的世界只在0和1的制作中度过

 
 
 

日志

 
 
关于我

我的世界只在0和1的制作中度过

网易考拉推荐

werbbower总结  

2014-03-31 19:40:12|  分类: 默认分类 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
作品展进行了快一个多星期了,我的感觉就是真的很难,纸上谈兵简单,真才实干方知困难,一开始想了几个界面的想法自己给自己Pass掉了,感觉没有自己预想的那么好,真的说实话有时候看着别人那么干的时候觉得还好自己一上手才知道好多功能不是你自己查就能知道的,还要有自己的想法,还要有新意,真的很难,有时候真的感觉很不容易又看到别人那么努力真的自己也觉得自己应该抓紧了,下面是这次的材料搜索。
6、我要动态加载和删除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 ======================================================= 
7、一个把页面保存为MHT(即MHTML)文件
  将 pcwak(书剑狂生[MS MVP]) 大侠提供的资料贴出来,以供大家参考:  我终于找到一个把页面保存为MHT(即MHTML)文件的方法了! 首先,在工程中必须要引用一个库: Library CDO D:\WINNT\System32\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 "http://www.163.com/";, , _ "domain\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     On Error GoTo myerr1     Call message.CreateMHTMLBody("http://www.csdn.net", CDO.CdoMHTMLFlags.cdoSuppressNone, "", "")     Set Outstream = message.GetStream     Call Outstream.SaveToFile("c:\test.mht", ADODB.SaveOptionsEnum.adSaveCreateOverWrite)     MsgBox "完成"         Exit Sub myerr1:     Set message = Nothing     Set Outstream = Nothing End Sub =======================================================    8、在WebBrowser控件调用收藏夹和在收藏夹里添加收藏 
Option Explicit Private Sub Command1_Click()     Dim ObjSUH As New ShellUIHelper     ObjSUH.AddFavorite "http://www.csdn.net", "CSDN"     Set ObjSUH = Nothing End Sub =========================================================  
9、如何使网页不出现滚动条:
Private Sub mnuScroll1_Click() '注意:必须在网页完全显示之后才可以运行     WebBrowser1.Document.body.Scroll = "no" '不显示滚动条的办法 End Sub Private Sub mnuScroll2_Click() '注意:必须在网页完全显示之后才可以运行     WebBrowser1.Document.body.Scroll = "Auto" '显示滚动条的办法 End Sub  ============================================================== 
10、
如何获得网页中被选中部分的HTML: Private Sub Command1_Click()     Dim objSelection     Dim objTxtRange         Set objSelection = WebBrowser1.Document.selection     If Not (objSelection Is Nothing) Then         Set objTxtRange = objSelection.createRange         If Not (objTxtRange Is Nothing) Then             Debug.Print objTxtRange.htmlText                     Set objTxtRange = Nothing         End If         Set objSelection = Nothing     End If End Sub Private Sub Form_Load()     WebBrowser1.Navigate "http://www.applevb.com" End Sub 
 11、
页面滚动:  Private Sub Command2_Click()     WebBrowser1.Document.parentwindow.scrollby 0, 30 End Sub Private Sub Form_Load()      WebBrowser1.Navigate "http://www.applevb.com" End Sub  点击Command2就可以使当前页面向下滚动30像素  12、判断页面是否可以前进后退  Private Sub Command1_Click()     WebBrowser1.GoForward End Sub  Private Sub Command2_Click()     WebBrowser1.GoBack End Sub  Private Sub Form_Load()     WebBrowser1.Navigate "http://www.applevb.com" End Sub  Private Sub WebBrowser1_CommandStateChange(ByVal Command As Long, ByVal Enable As Boolean)    
 If (Command = CSC_NAVIGATEBACK) Then      
   Command2.Enabled = Enable 
    End If  
   If (Command = CSC_NAVIGATEFORWARD) Then         
Command1.Enabled = Enable     End If
 End Sub
 上面的command1是前进按钮,command2是后退按钮。 


  评论这张
 
阅读(32)| 评论(17)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017