frmmain.vb

VB.NET的Web浏览器IE7的克隆选项卡式浏览器 描述：这是一个例子写的vb.net浏览器使用的。 NET Framework 2.0 （ Visual Studio 2005中） 。这是一个

                oitm.Text = name
                oitm.Image = oIcon.ToBitmap
                oitm.Tag = objFile.FullName
                mitm.DropDownItems.Add(oitm)
                'AddHandler oitm.Click, AddressOf HandleFav
                AddHandler oitm.MouseDown, AddressOf HandleFavMouseDown
            End If
        Next objFile
    End Sub

#End Region

#Region " Favorite Event Handlers "

    Private Sub HandleFavMouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)
        Select Case e.Button
            Case Windows.Forms.MouseButtons.Left
                Dim fi As ToolStripMenuItem = sender
                Dim obj As New tlxIni(fi.Tag)
                AppManager.CurrentBrowser.Navigate(obj.GetString("INTERNETSHORTCUT", "URL", String.Empty))
            Case Windows.Forms.MouseButtons.Right
                cmFavs.Show(Cursor.Position.X, Cursor.Position.Y)
                fitm = sender
        End Select
    End Sub

    Private Sub HandleFav(ByVal sender As System.Object, ByVal e As System.EventArgs)

        Dim fi As ToolStripMenuItem = sender
        Dim obj As New tlxIni(fi.Tag)
        AppManager.CurrentBrowser.Navigate(obj.GetString("INTERNETSHORTCUT", "URL", String.Empty))
    End Sub

    Private Sub tvFavs_NodeMouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeNodeMouseClickEventArgs) Handles tvFavs.NodeMouseClick
        If e.Node.Nodes.Count > 0 Then
            e.Node.Expand()
        Else
            If e.Node.ImageIndex = 0 Then
                Exit Sub
            Else
                Dim obj As New tlxIni(e.Node.Tag)
                AppManager.CurrentBrowser.Navigate(obj.GetString("INTERNETSHORTCUT", "URL", String.Empty))
                gbFavs.Visible = False
            End If
        End If
    End Sub

#End Region

#Region " Search Providers / Search Routines "
    'We'll make this public so we can call it from the add provider form
    Public Sub LoadSearchProviders()
        btnSearch.DropDownItems.Clear()
        Dim strSQL As String = _
        "Select ProviderTitle, ProviderURL, IsDefault FROM SearchProviders ORDER BY ProviderTitle"
        Dim oConn As New OleDb.OleDbConnection(AppManager.ConnString)
        Dim oDa As New OleDb.OleDbDataAdapter(strSQL, oConn)
        Dim dt As New DataTable
        Dim dr As DataRow
        Dim oitm As ToolStripMenuItem

        Try
            oDa.Fill(dt)
            For Each dr In dt.Rows
                oitm = New ToolStripMenuItem
                oitm.Tag = dr.Item("ProviderURL")

                If dr.Item("IsDefault") = True Then
                    Dim oFC As New FontConverter
                    oitm.Checked = True
                    oitm.Text = dr.Item("ProviderTitle") & " (Default)"
                    txtSearch.Text = dr.Item("ProviderTitle")
                    oitm.Font = New Font(oitm.Font.Name, oitm.Font.Size, FontStyle.Bold, oitm.Font.Unit)
                    Me.CurSearchURL = dr.Item("ProviderURL")
                    Me.CurSearchTitle = dr.Item("ProviderTitle")
                Else
                    oitm.Text = dr.Item("ProviderTitle")
                End If
                btnSearch.DropDownItems.Add(oitm)
                AddHandler oitm.Click, AddressOf HandleSearch
            Next

            Dim spcr As New ToolStripSeparator
            btnSearch.DropDownItems.Add(spcr)

            'Well just use microsoft's provider page, it would not take
            'much to create our own custom page.
            oitm = New ToolStripMenuItem
            oitm.Text = "Find more providers"
            oitm.Tag = "http://www.microsoft.com/windows/ie/searchguide/en-en/default.mspx#"
            btnSearch.DropDownItems.Add(oitm)
            AddHandler oitm.Click, AddressOf HandleSearch

        Catch ex As Exception
            MsgBox(ex.Message.ToString)
        End Try

    End Sub

    Private Sub HandleSearch(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim oitm As ToolStripMenuItem = sender
        If oitm.Text = "Find more providers" Then
            AppManager.CurrentBrowser.Navigate(oitm.Tag)
        Else
            Me.CurSearchURL = oitm.Tag
            txtSearch.Text = oitm.Text
        End If
    End Sub

    Private Sub txtSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSearch.Click
        txtSearch.Text = String.Empty
    End Sub

    Private Sub txtSearch_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtSearch.KeyDown
        If e.KeyCode = Keys.Enter Then
            DoSearch()
        End If
    End Sub

    Private Sub DoSearch()
        Dim sTerm As String = Me.CurSearchURL
        sTerm = sTerm.Replace("{searchTerms}", txtSearch.Text)
        AppManager.CurrentBrowser.Navigate(sTerm)
    End Sub

    Private Sub txtSearch_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtSearch.LostFocus
        txtSearch.Text = Me.CurSearchTitle
    End Sub

#End Region

#Region " Menus and toolbars "

    Private Sub btnForward_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnForward.Click
        If AppManager.CurrentBrowser.CanGoForward Then
            AppManager.CurrentBrowser.GoForward()
        End If
    End Sub

    Private Sub btnBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBack.Click
        If AppManager.CurrentBrowser.CanGoBack Then
            AppManager.CurrentBrowser.GoBack()
        End If
    End Sub

    Private Sub btnRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRefresh.Click
        AppManager.CurrentBrowser.Refresh()
    End Sub

    Private Sub btnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStop.Click
        AppManager.CurrentBrowser.Stop()
    End Sub

    Private Sub cboURL_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cboURL.KeyDown
        If e.KeyCode = Keys.Enter Then
            If cboURL.Text <> "" Then
                AppManager.CurrentBrowser.Navigate(cboURL.Text)
            End If
        End If
    End Sub

    Private Sub btnForward_DropDownItemClicked(ByVal sender As Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs)
        AppManager.Navigate(e.ClickedItem.Tag)
    End Sub

    Private Sub btnHome_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHome.Click
        AppManager.CurrentBrowser.GoHome()
    End Sub

    Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click
        AppManager.CurrentBrowser.Print()
    End Sub

    Private Sub btnPrintPreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrintPreview.Click
        AppManager.CurrentBrowser.ShowPrintPreviewDialog()
    End Sub

    Private Sub btnPageSetup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPageSetup.Click
        AppManager.CurrentBrowser.ShowPageSetupDialog()
    End Sub

    Private Sub btnCut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCut.Click
        AppManager.CurrentBrowser.Document.ExecCommand("Cut", False, System.DBNull.Value)
    End Sub

    Private Sub btnCopy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCopy.Click
        If Not IsNothing(AppManager.CurrentBrowser.Document) Then
            AppManager.CurrentBrowser.Document.ExecCommand("Copy", False, System.DBNull.Value)
        End If
    End Sub

    Private Sub btnPaste_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPaste.Click
        If Not IsNothing(AppManager.CurrentBrowser.Document) Then
            AppManager.CurrentBrowser.Document.ExecCommand("Paste", False, System.DBNull.Value)
        End If
    End Sub

    Private Sub btnSelectAll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSelectAll.Click
        If Not IsNothing(AppManager.CurrentBrowser.Document) Then
            AppManager.CurrentBrowser.Document.Focus()
            AppManager.CurrentBrowser.Document.ExecCommand("SelectAll", False, System.DBNull.Value)
            AppManager.CurrentBrowser.Document.Focus()
        End If
    End Sub

    Private Sub btnFind_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFind.Click
        AppManager.CurrentBrowser.ShowFindDialog()
    End Sub

    Private Sub btnViewSource_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnViewSource.Click
        AppManager.CurrentBrowser.ShowSource()
    End Sub

    Private Sub btnShowFavs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShowFavs.Click
        gbFavs.Visible = btnShowFavs.Checked
        Splitter1.Visible = btnShowFavs.Checked
    End Sub

    Private Sub btnInternetOptions_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInternetOptions.Click
        AppManager.CurrentBrowser.ShowInternetOptions()
    End Sub

    Private Sub mnuAddFav2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuAddFav2.Click
        AppManager.CurrentBrowser.AddToFavorites("", "")
    End Sub

    Private Sub AddToFavoritesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddToFavoritesToolStripMenuItem.Click
        AppManager.CurrentBrowser.AddToFavorites(AppManager.CurrentBrowser.Url.ToString, AppManager.CurrentBrowser.DocumentTitle)
    End Sub

    Private Sub OrganizeFavoritesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OrganizeFavoritesToolStripMenuItem.Click
        AppManager.CurrentBrowser.ShowOrganizeFavorites()
    End Sub

    Private Sub mnuNewTab_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuNewTab.Click
        Dim ofrm As New frmBrowser
        Dim oTab As New Ie7Clone.TabPage(ofrm)
        ofrm.wb.Navigate2(AppManager.CurrentBrowser.CurrentURL)
        tc1.TabPages.Add(oTab.Form)
    End Sub

    Private Sub mnulNewTab_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnulNewTab.Click
        Dim ofrm As New frmBrowser
        Dim oTab As New Ie7Clone.TabPage(ofrm)
        'ofrm.MyTabPage = oTab
        AppManager.AddTab(oTab)
    End Sub

    Private Sub mnuViewMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuViewMenu.Click
        MainMenu.Visible = mnuViewMenu.Checked
        mnuViewMenuBar.Checked = mnuViewMenu.Checked
    End Sub

    Private Sub mnuViewStatus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuViewStatus.Click
        sBar.Visible = mnuViewStatus.Checked
        mnuViewStatusBar.Checked = mnuViewStatus.Checked
    End Sub

    Private Sub mnuDocExplorer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuDocExplorer.Click
        Dim ofrm As New frmDocExplorer
        ofrm.deWB.Navigate(AppManager.CurrentBrowser.Url.ToString)
        tc1.TabPages.Add(ofrm)
    End Sub

    Private Sub FindOnThisPageToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FindOnThisPageToolStripMenuItem.Click