导语:最近一直在忙着群里的事,所以不得不让群公告多呆2天。因为还是有不少顽固分子不肯改群名,对此我表示很无奈!所以,我在这里再次重申:希望大家统一群名,不要让这些小事浪费我们的时间了,如果你不愿意改,那么我只能踢了。但是对于那些合作的用户,我表示诚挚的感谢:谢谢大家。
这一课我的教程是用VB制作精简的IE浏览器,在这里,我只是写出了核心部分的代码,顶多也就是个半成品吧,如果你想做的更好、更全,那么还得你自己去完善它。这一次的代码注解我尽量写得口语化,希望大家能看懂吧。另外,如果代码有误,希望大家及时说出来,毕竟我在赶时间,所以我也没有怎么检查。最后,我希望能看到评语啊,好坏兼收!不然就有点白费力气的感觉,呵呵!以下是完整源码:
'---------------------------------------------
' VB制作精简的IE浏览器实例
'---------------------------------------------
' 百度群 飞度编程学社 1195277
'---------------------------------------------
' 作者:FLYDOO飞度 QQ:1046559384
'---------------------------------------------
Option Explicit
'变量声明
'strURL,字符型
Dim strURL As String
Private 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
源码到此结束 (源程序下载)
标签:IE相关IE浏览器VB