VB浏览器

VB浏览器
2009年08月02日
　　应用控件 WebBrowser 在工具箱中 右键 部件 Microsoft Internet Controls选上 确定
　　出现 一个小地球
　　然后 拖动出一个WebBrowser
　　需要控件： WebBrowser 一个 Command1 6个 Caption分别是 转到 后退 前进 停止 刷新 主页 还有
　　一个Text ~
　　大家应该都知道 浏览器 有地址栏吧？ 不知道的…… 我汗…………
　　先弄一个Text 再来个 Command1 做地址栏 ~
　　地址栏代码 ：
　　Private Sub Command1_Click()
　　Command1.Caption = 转到
　　WebBrowser1.Navigate Text1.Text
　　End Sub
　　下一步 给 后退 前进 停止 刷新 主页 这几个按钮 弄代码
　　Private Sub Command2_Click()
　　Command2.Caption = 后退
　　WebBrowser1.GoBack
　　End Sub
　　Private Sub Command3_Click()
　　Command2.Caption = 前进
　　WebBrowser1.GoForward
　　End Sub
　　Private Sub Command4_Click()
　　Command2.Caption = 停止
　　WebBrowser1.GoSearch
　　End Sub
　　Private Sub Command5_Click()
　　Command2.Caption = 刷新
　　WebBrowser1.Refresh
　　End Sub
　　Private Sub Command6_Click()
　　Command2.Caption = 主页
　　WebBrowser1.Refresh
　　End Sub
　　OK 一个简洁的以IE为内核的浏览器 就OK了 要是想做得更好点的话 请参照
　　让VB浏览器 打开所有网页 而不是切换到IE上
　　Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
　　Dim newform1 As New Form1
　　Set ppDisp = newform1.WebBrowser1.object
　　newform1.Show
　　End Sub
　　判断是否可以前进 或后退
　　Private Sub WebBrowser1_CommandStateChange(ByVal Command As Long, ByVal Enable As Boolean)
　　On Error Resume Next
　　If (Command = CSC_NAVIGATEBACK) Then
　　Command3.Enabled = Enable
　　End If
　　If (Command = CSC_NAVIGATEFORWARD) Then
　　Command2.Enabled = Enable
　　End If
　　'保证连接在一个窗口打开
　　Private Sub Web_V1_NewWindow(ByVal URL As String, ByVal Flags As Long, ByVal TargetFrameName As String, PostData As Variant, ByVal Headers As String, Processed As Boolean)
　　On Error Resume Next
　　Processed = True
　　WebBrowser1.Navigate URL
　　End Sub