form1.vb

visual basic课程设计案例精编

        'MenuItem1
        '
        Me.MenuItem1.Index = 0
        Me.MenuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem2, Me.MenuItem15, Me.MenuItem3})
        Me.MenuItem1.Text = "文件(&F)"
        '
        'MenuItem2
        '
        Me.MenuItem2.Index = 0
        Me.MenuItem2.Text = "打开(&O)"
        '
        'MenuItem15
        '
        Me.MenuItem15.Index = 1
        Me.MenuItem15.Text = "-"
        '
        'MenuItem3
        '
        Me.MenuItem3.Index = 2
        Me.MenuItem3.Text = "退出(&X)"
        '
        'MenuItem4
        '
        Me.MenuItem4.Index = 1
        Me.MenuItem4.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem5, Me.MenuItem10, Me.MenuItem11})
        Me.MenuItem4.Text = "查看(&V)"
        '
        'MenuItem5
        '
        Me.MenuItem5.Index = 0
        Me.MenuItem5.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem6, Me.MenuItem7, Me.MenuItem13, Me.MenuItem8, Me.MenuItem14, Me.MenuItem9})
        Me.MenuItem5.Text = "转到(&O)"
        '
        'MenuItem6
        '
        Me.MenuItem6.Index = 0
        Me.MenuItem6.Text = "后退(&B)"
        '
        'MenuItem7
        '
        Me.MenuItem7.Index = 1
        Me.MenuItem7.Text = "前进(&F)"
        '
        'MenuItem13
        '
        Me.MenuItem13.Index = 2
        Me.MenuItem13.Text = "-"
        '
        'MenuItem8
        '
        Me.MenuItem8.Index = 3
        Me.MenuItem8.Text = "主页(&H)"
        '
        'MenuItem14
        '
        Me.MenuItem14.Index = 4
        Me.MenuItem14.Text = "-"
        '
        'MenuItem9
        '
        Me.MenuItem9.Index = 5
        Me.MenuItem9.Text = "about:blank"
        '
        'MenuItem10
        '
        Me.MenuItem10.Index = 1
        Me.MenuItem10.Text = "停止(&P)"
        '
        'MenuItem11
        '
        Me.MenuItem11.Index = 2
        Me.MenuItem11.Text = "刷新(&R)"
        '
        'MenuItem12
        '
        Me.MenuItem12.Index = 2
        Me.MenuItem12.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem16})
        Me.MenuItem12.Text = "帮助(&H)"
        '
        'MenuItem16
        '
        Me.MenuItem16.Index = 0
        Me.MenuItem16.Text = "关于IE(&A)"
        '
        'HelpProvider1
        '
        Me.HelpProvider1.HelpNamespace = "E:\VB.Net\VB代码\WebBrowser\WebBrowser\bin\WebBrowserhelp.chm"
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(552, 433)
        Me.Controls.Add(Me.GroupBox1)
        Me.Controls.Add(Me.StatusBar1)
        Me.Menu = Me.MainMenu1
        Me.Name = "Form1"
        Me.HelpProvider1.SetShowHelp(Me, True)
        Me.Text = "about:blank"
        CType(Me.StatusBarPanel1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.StatusBarPanel2, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.StatusBarPanel3, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox3.ResumeLayout(False)
        CType(Me.AxWebBrowser1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox2.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            '设置AxWebBrowser控件的Anchor属性
            AxWebBrowser1.Anchor = AnchorStyles.Top Or AnchorStyles.Bottom Or AnchorStyles.Left Or AnchorStyles.Right
            GroupBox1.Anchor = AnchorStyles.Top Or AnchorStyles.Bottom Or AnchorStyles.Left Or AnchorStyles.Right
            GroupBox2.Anchor = AnchorStyles.Top Or AnchorStyles.Bottom Or AnchorStyles.Left Or AnchorStyles.Right
            GroupBox3.Anchor = AnchorStyles.Top Or AnchorStyles.Bottom Or AnchorStyles.Left Or AnchorStyles.Right
            Me.AxWebBrowser1.GoHome()
            HelpProvider1.GetHelpString(Me)
            '显示主页
            Me.ComboBox1.Text = Me.AxWebBrowser1.LocationURL
            Me.StatusBar1.Panels(1).Text = "我的电脑"
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
    '打开某个页面
    Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
        Try
            Dim url As String
            url = InputBox("输入文档或文件夹的Internet地址，web浏览器将打开此地址", "打开")
            ComboBox1.Text = url
            AxWebBrowser1.Navigate(url)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
    '退出程序
    Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
        End
    End Sub
    '后退
    Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem6.Click
        Try
            AxWebBrowser1.GoBack()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
    '前进
    Private Sub MenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem7.Click
        Try
            AxWebBrowser1.GoForward()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
    '连接到主页
    Private Sub MenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem8.Click
        Try
            AxWebBrowser1.GoHome()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
    '连接到空白页
    Private Sub MenuItem9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem9.Click
        Try
            AxWebBrowser1.Navigate("about:blank")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
    '停止
    Private Sub MenuItem10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem10.Click
        Try
            AxWebBrowser1.Stop()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
    '刷新
    Private Sub MenuItem11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem11.Click
        Try
            AxWebBrowser1.CtlRefresh()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
    '帮助
    Private Sub MenuItem16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem16.Click
        MsgBox("请按F1查看帮助文件", MsgBoxStyle.OKOnly)
    End Sub
    '工具栏的事件处理
    Private Sub ToolBar1_ButtonClick(ByVal sender As Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
        '检查各个按钮，分别执行相应的菜单命令处理方法
        Try
            If e.Button.Text = "后退" Then
                MenuItem6_Click(e.Button, New System.EventArgs)
            ElseIf e.Button.Text = "前进" Then
                MenuItem7_Click(e.Button, New System.EventArgs)
            ElseIf e.Button.Text = "停止" Then
                MenuItem10_Click(e.Button, New System.EventArgs)
            ElseIf e.Button.Text = "刷新" Then
                MenuItem11_Click(e.Button, New System.EventArgs)
            ElseIf e.Button.Text = "主页" Then
                MenuItem8_Click(e.Button, New System.EventArgs)
            ElseIf e.Button.Text = "帮助" Then
                MenuItem16_Click(e.Button, New System.EventArgs)
            End If
        Catch
            MessageBox.Show(Err.Description, "错误信息", _
            MessageBoxButtons.OK, MessageBoxIcon.Error)
            '获取错误并显示
        End Try
    End Sub

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        URLstr = Me.ComboBox1.Text
        '获取显示的有效网址
        Me.AxWebBrowser1.Navigate(URLstr)
        '显示网页
    End Sub

    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Me.AxWebBrowser1.Busy = True Then
            Me.StatusBar1.Panels(0).Text = "正在打开..."
            '如果当前正忙，则显示正在打开的提示信息
            Me.Text = Me.AxWebBrowser1.LocationName
            '标题栏设置
        Else
            Me.Text = Me.AxWebBrowser1.LocationName
            '标题栏设置
            Me.StatusBar1.Panels(0).Text = " "
            '清空状态栏面板文本
            Me.StatusBar1.Panels(0).Text = Me.AxWebBrowser1.LocationName _
            & " " & Me.AxWebBrowser1.LocationURL
            '获取当前网页的名称和有效网址并显示到状态栏面板中
        End If
        Me.StatusBar1.Panels(2).Text = Now.ToLongTimeString
        '获取本地时间并显示在状态栏面板中
    End Sub

    Private Sub ComboBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ComboBox1.KeyPress
        '当输入一个地址后，按回车键，则开始连接
        If Asc(e.KeyChar) = System.Windows.Forms.Keys.Enter Then
            AxWebBrowser1.Navigate(ComboBox1.Text)
        End If
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        AxWebBrowser1.Navigate(ComboBox1.Text)
    End Sub

End Class