第十二课:VB制作精简IE浏览器

第十二课:VB制作精简IE浏览器
2009年08月12日
　　 导语：最近一直在忙着群里的事，所以不得不让群公告多呆2天。因为还是有不少顽固分子不肯改群名，对此我表示很无奈！所以，我在这里再次重申：希望大家统一群名，不要让这些小事浪费我们的时间了，如果你不愿意改，那么我只能踢了。
　　这一课我的教程是用VB制作精简的IE浏览器，在这里，我只是写出了核心部分的代码，顶多也就是个半成品吧，如果你想做的更好、更全，那么还得你自己去完善它。这一次的代码注解我尽量写得口语化，希望大家能看懂吧。另外，如果代码有误，希望大家及时说出来，毕竟我在赶时间，所以我也没有怎么检查。最后，我希望能看到评语啊，好坏兼收！不然就有点白费力气的感觉，呵呵！以下是完整源码：'---------------------------------------------
　　' VB制作精简的IE浏览器实例
　　'---------------------------------------------
　　' 百度群 飞度编程学社 1195277
　　'---------------------------------------------
　　' 作者：FLYDOO飞度 QQ:1046559384
　　'---------------------------------------------
　　Option Explicit
　　'变量声明
　　'strURL，字符型
　　Dim strURL As StringPrivate Sub Form_Load()
　　'设为True的作用是当网页出现脚本错误时不提示
　　WebBrowser1.Silent = True
　　'在这里输入网页地址，在这里我随便改一个可用的地址便于测试
　　WebBrowser1.Navigate "http://www.hao123.com"
　　'这是窗体名称的更新频率
　　Timer1.Interval = 500
　　End Sub'让所有链接都用这个浏览器打开
　　Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
　　Cancel = True
　　WebBrowser1.Navigate strURL
　　End Sub
　　Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
　　strURL = Text
　　End Sub'当窗体大小改变时，使WebBrowser1控件大小填满整个窗口
　　Private Sub Form_Resize()
　　On Error Resume Next
　　WebBrowser1.Width = Me.Width - 100
　　WebBrowser1.Height = Me.Height - 450
　　End Sub'结束
　　Private Sub Form_Unload(Cancel As Integer)
　　End
　　End Sub'利用Timer来更新窗体标题
　　Private Sub Timer1_Timer()
　　Me.Caption = WebBrowser1.LocationName
　　Timer1.Enabled = True
　　End Sub源码到此结束 (源程序下载)
　　'-------------------------------------------