Question

怎么用VB制作一个浏览器啊

怎么用VB制作一个浏览器啊？就是一打开就访问制定网页的啊。。。
我要源码大大。。。专门访问我的网页的。。。

Answer 1

这里是简单的代码，你要做比较完整的浏览器自己可以添加些功能
Option Explicit
Dim int_i As Integer '当前页面在历史中的个数
Dim intSum As Integer '总的浏览过的页面数

Private Sub Command1_Click()
'链接网页
Me.WebBrowser1.Navigate (Me.Text1.Text) '这里连接的网站地址是文本框输入的地址,要专门访问你的网页将这一句放入你的窗体装载事件里面,并先设置me.text1.text="这里填写要专门访问的网页"
intSum = intSum + 1
int_i = intSum
Me.Command3.Enabled = False
If intSum > 1 Then
Me.Command2.Enabled = True
End If
End Sub

Private Sub Command2_Click()
Me.WebBrowser1.GoBack
int_i = int_i - 1
Me.Command3.Enabled = True
If int_i = 1 Then
Me.Command2.Enabled = False
End If
End Sub

Private Sub Command3_Click()
Me.WebBrowser1.GoForward
int_i = int_i + 1
Me.Command2.Enabled = True
If int_i = intSum Then
Me.Command3.Enabled = False
End If
End Sub

Private Sub Command4_Click()
Me.WebBrowser1.Stop
End Sub

Private Sub Form_Load()
Me.WebBrowser1.GoHome
Me.WindowState = 2
Me.Command4.Enabled = False
int_i = 1
intSum = 1
Me.Command2.Enabled = False
Me.Command3.Enabled = False
End Sub

Private Sub Form_Resize()
Me.WebBrowser1.Width = Me.ScaleWidth - 200
Me.WebBrowser1.Height = Me.ScaleHeight - 600
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command1_Click
End If
End Sub

Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
Me.Command4.Enabled = True
End Sub

Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
Me.Command4.Enabled = False
End Sub

Answer 2

webBrower控件