VB简单浏览器#

VB简单浏览器#
1、工程-->部件-->选择Microsoft Internet Controls
2、窗口是一个TextBox(name=txtUrl)、CommandButton、WebBrowser
3、看代码
程序代码 程序代码
Private Sub Command1_Click()
    WebBrowser1.Navigate2 txtUrl.Text
End Sub

Private Sub Form_Load()
    initUI
End Sub

Private Sub initUI()
    WebBrowser1.Top = 400
    WebBrowser1.Left = 0
    WebBrowser1.Width = Me.Width - 100
    WebBrowser1.Height = Me.Height - 900
End Sub

Private Sub Form_Resize()
    If Me.Width > 200 And Me.Height > 1000 Then
        initUI
    End If
End Sub

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
    '当前窗口
    Cancel = True
    WebBrowser1.Navigate2 WebBrowser1.Document.activeElement.href
    '新窗口
'    Dim frm As Form1
'    Set frm = New Form1
'    frm.Visible = True
'    Set ppDisp = frm.WebBrowser1.object
End Sub


文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
评论: 0 | 引用: 0 | 查看次数: 1847
发表评论
昵 称:
密 码: 游客发言不需要密码.
验证码: 验证码
内 容:
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.
字数限制 1000 字 | UBB代码 关闭 | [img]标签 关闭