关于用VB编写浏览器

关于用VB编写浏览器
2009年12月25日
　　VB编写简易浏览器代码:
　　（1）、相关控件：略
　　（2）、废话不多说，上代码：
　　Dim popnum As Integer
　　Dim urlstring As String
　　Dim frmnew() As New frmmain
　　Private Sub close_Click()
　　End
　　End Sub
　　Private Sub Command7_Click()
　　WebBrowser1(0).Navigate Combo1.Text
　　Dim i%
　　For i = 0 To Combo1.ListIndex + 1
　　If Combo1.List(i) Combo1.Text Then
　　Combo1.AddItem Combo1.Text
　　End If
　　Next i
　　End Sub
　　Private Sub Command1_Click()
　　WebBrowser1(0).GoBack
　　End Sub
　　Private Sub Command2_Click()
　　WebBrowser1(0).GoForward
　　End Sub
　　Private Sub Command3_Click()
　　WebBrowser1(0).GoHome
　　End Sub
　　Private Sub Command4_Click()
　　WebBrowser1(0).Stop
　　End Sub
　　Private Sub Command5_Click()
　　WebBrowser1(0).Refresh
　　End Sub
　　Private Sub Command6_Click()
　　WebBrowser1(0).GoSearch
　　End Sub
　　Private Sub Form_Load()
　　Combo1.Text = "www.google.com"
　　WebBrowser1(0).GoHome
　　End Sub
　　Private Sub Form_Resize()
　　WebBrowser1(0).Top = frmmain.ScaleTop + 1070
　　WebBrowser1(0).Left = frmmain.ScaleLeft
　　WebBrowser1(0).Width = frmmain.ScaleWidth
　　WebBrowser1(0).Height = frmmain.ScaleHeight + 200
　　ProgressBar1.Top = frmmain.ScaleTop + frmmain.ScaleHeight - 150
　　ProgressBar1.Left = frmmain.ScaleLeft + 50
　　ProgressBar1.Width = frmmain.ScaleWidth - 330
　　Combo1.Left = frmmain.ScaleLeft + 1000
　　Combo1.Width = frmmain.ScaleWidth - 2000
　　Command7.Left = Combo1.Left + Combo1.Width + 50
　　P1.Top = frmmain.ScaleTop
　　P1.Left = frmmain.ScaleTop
　　P1.Width = frmmain.ScaleWidth
　　P1.Height = frmmain.ScaleHeight
　　End Sub
　　Private Sub jiaoda_Click()
　　frmmain.FontSize = 22
　　End Sub
　　Private Sub jiaoxiao_Click()
　　frmmain.FontSize = 14
　　End Sub
　　Private Sub nub_Click()
　　WebBrowser1(0).GoBack
　　End Sub
　　Private Sub nuf_Click()
　　WebBrowser1(0).GoForward
　　End Sub
　　Private Sub open_Click()
　　frmopen.Show
　　End Sub
　　Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
　　If KeyCode = vbkeyretrun Then WebBrowser1(0).Navigate (Combo1.Text)
　　If Shift = 2 And KeyCode = vbKeyReturn Then
　　Text1.Text = "www." & "text1.text" & ".com"
　　WebBrowser1(0).Navigate (Combo1.Text)
　　End If
　　End Sub
　　Private Sub save_Click()
　　CD1.Action = 2
　　CD1.FileName = Combo1.Text
　　CD1.Filter = "网页|*.htm"
　　CD1.FilterIndex = 1
　　End Sub
　　Private Sub tubiaozhuanhuan_Click()
　　CD1.ShowOpen
　　frmmain.Icon = LoadPicture(CD1.FileName)
　　End Sub
　　Private Sub WebBrowser1_CommandStateChange(index As Integer, ByVal Command As Long, ByVal Enable As Boolean)
　　Command2.Enabled = Enable
　　nub.Enabled = Enable
　　End Sub
　　Private Sub WebBrowser1_NewWindow2(index As Integer, ppDisp As Object, Cancel As Boolean)
　　If index WebBrowser1(num)
　　ReDim frmnew(num)
　　End If
　　frmnew(num).Show
　　Set ppDisp = frmnew(num).WebBrowser1(0).object
　　End Sub
　　Private Sub WebBrowser1_TitleChange(index As Integer, ByVal Text As String)
　　Combo1.Text = WebBrowser1(0).LocationURL
　　frmmain.Caption = Combo1.Text & "-LFF浏览器"
　　If num > 0 Then frmnew(num).Caption = frmnew(num).WebBrowser1(0).LocationName
　　End Sub
　　Private Sub WebBrowser1_ProgressChange(index As Integer, ByVal Progress As Long, ByVal ProgressMax As Long)
　　If ProgressMax = 0 Then Exit Sub
　　ProgressBar1.Max = ProgressMax
　　If Progress -1 And Progress <= ProgressMax Then
　　ProgressBar1.Value = Progress
　　End If
　　End Sub
　　Private Sub zhongdeng_Click()
　　frmmain.FontSize = 16
　　End Sub
　　Private Sub zhuanhuan_Click()
　　CD1.ShowOpen
　　P1.Picture = LoadPicture(CD1.FileName)
　　End Sub
　　有兴趣的同学，自己编写哈！祝你好运！！！