myGully.com - Webbrowser [Visual Basic 2008 Express Edition]

myGully.com (https://mygully.com/index.php)

- Programmierung (https://mygully.com/forumdisplay.php?f=67)

- - Webbrowser [Visual Basic 2008 Express Edition] (https://mygully.com/showthread.php?t=2464166)

Webbrowser [Visual Basic 2008 Express Edition]

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

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 und freigeschaltete Mitglieder sichtbar. Jetzt registrieren...] klarzukommen...

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

Zitat:

Zitat von urga (Beitrag 22883218)

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.

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 und freigeschaltete Mitglieder sichtbar. Jetzt registrieren...]
auf meinem i2500k/560Ti brauche ich ca. 6 sekunden (FF x64 nightly) um die seite komplett durchzuscrollen ;)

Von Entwicklern für Entwickler ^^
[Link nur für registrierte und freigeschaltete Mitglieder sichtbar. Jetzt registrieren...]