[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 


[urga]

du programmierst keinen webbrowser, sondern die n+1te oberfläche für den IE...

eine gute übung um in den teils verworrenen seiten von [ Link nur für registrierte Mitglieder sichtbar. Bitte einloggen oder neu registrieren ] klarzukommen...

[Campi1995]

Okay.. sorry.

Dann könnt ihr evtl hier helfen. Ich habe diesen hier programmiert, aber wie bekomme ich hier Tabs rein? Ich weiß, ich soll erst mal die Grundlagen lernen, da bin ich auch schon bei, aber im Moment hakt es hier noch.

PHP-Code:

Public Class Form1

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

    End Sub

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

    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 WebBrowser1_Navigated(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles WebBrowser1.Navigated
        Dim Tx As String = WebBrowser1.Url.ToString
        ComboBox1.Text = Tx
        Dim index As Integer
        index = ComboBox1.FindString(Tx)
        If index > -1 Then

        Else
            ComboBox1.Items.Add(Tx)
        End If

        Me.Cursor = Cursors.Arrow
    End Sub

    Dim inNewWindow As Boolean = False
    Private Sub WebBrowser1_Navigating(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles WebBrowser1.Navigating
        ComboBox1.Text = WebBrowser1.Url.ToString
        ProgressBar1.Visible = True

        With ProgressBar1

            .Minimum = 0

            .Maximum = 50

            .Step = 5

        End With

        For index As Integer = 0 To 50 Step 5

            ProgressBar1.Value = index

            System.Threading.Thread.Sleep(35)

        Next


    End Sub
    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
        My.Settings.Bookmarks.Add(ComboBox1.Text)
        Favs.DropDownItems.Add(ComboBox1.Text)
        My.Settings.Save()

        Timer1.Enabled = True
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load
        For Each item As String In My.Settings.Bookmarks
            Favs.DropDownItems.Add(item)
        Next

        Me.WindowState = FormWindowState.Maximized

        WebBrowser1.Navigate("www.alice.aol.de")
    End Sub
    Private Sub Favs_DropDownItemsClickes(ByVal sender As Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles Favs.DropDownItemClicked
        Dim clicked As ToolStripItem = e.ClickedItem
        Dim i As String = e.ClickedItem.Name
        If Not i = "[Deine Lesezeichen]" Then
            WebBrowser1.Navigate(e.ClickedItem.Text, inNewWindow)
        End If
    End Sub

    
    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

        ProgressBar1.Visible = False







    End Sub




    


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

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        WebBrowser1.GoForward()
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        WebBrowser1.Navigate("www.alice.aol.de")
    End Sub

    Private Sub WebBrowser1_NewWindow(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles WebBrowser1.NewWindow
        Dim neueurl As String = WebBrowser1.StatusText
        e.Cancel = True
        WebBrowser1.Navigate(neueurl)

        
    End Sub 


[germgerm]

Zitat von urga

eine gute übung um in den teils verworrenen seiten von msdn klarzukommen...

Das stimmt. Weniger ist wie immer mehr, siehe die QT-Referenz, bevor Nokia die Finger dabei hatte.

[urga]

hehe, die qt-ref kenne ich nicht. aber folgenden (uralten) spruch:

"those who can't write books, write man-pages" :P

meine aktuelle lieblings-referenz: [ Link nur für registrierte Mitglieder sichtbar. Bitte einloggen oder neu registrieren ]
auf meinem i2500k/560Ti brauche ich ca. 6 sekunden (FF x64 nightly) um die seite komplett durchzuscrollen

[germgerm]

Von Entwicklern für Entwickler ^^
[ Link nur für registrierte Mitglieder sichtbar. Bitte einloggen oder neu registrieren ]