[Campi1995]

Hallo Leute,

ich bin dabei gerade einen Webbrowser zu programmieren. Ich bin auch schon ziemlich weit. Tabs undso sind schon drin. Ich hab jetzt nur 3 Probleme

1. Wie bekomme ich es hin, dass sich das Fenster in einem neuen Tab öffnet?
2. Und das in der Combobox die neue komplette URL steht, wenn ich auf etwas klicke?
3. Wie bringe ich die Lesezeichenfunktion dort rein?

Ich benutzte diesen Code:

PHP-Code:

Public Class Form1

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click



        Dim sTabpage As New TabPage
        Dim sBrowser As New WebBrowser


        sBrowser.Dock = DockStyle.Fill
        sTabpage.Text = "Ein neuer Tab wurde geöffnet ... "


        AddHandler sBrowser.ProgressChanged, AddressOf Progresschanged
        AddHandler sBrowser.DocumentCompleted, AddressOf completed

        sTabpage.Controls.Add(sBrowser)
        TabControl1.TabPages.Add(sTabpage)



    End Sub

    Private Sub Progresschanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs)


        ProgressBar1.Value = e.CurrentProgress

    End Sub

    Private Sub completed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)

        TabControl1.SelectedTab.Text = e.Url.ToString

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim sBrowser As WebBrowser = TabControl1.SelectedTab.Controls(0)

        sBrowser.Navigate(ComboBox1.Text)

    End Sub

    Private Sub ComboBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox1.KeyDown

        If e.KeyData = Keys.Enter Then
            Button1.PerformClick()
            e.SuppressKeyPress = True
        End If
    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        
        Dim sTabpage As New TabPage
        Dim sBrowser As New WebBrowser


        sBrowser.Dock = DockStyle.Fill
        sTabpage.Text = "Alice"




        sTabpage.Controls.Add(sBrowser)
        TabControl1.TabPages.Add(sTabpage)

        sBrowser.Navigate("www.alice.aol.de")

    End Sub


    
End Class