Tabcontrol, Webbrowser Problem-->Frage

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von Kangaroo.

    Tabcontrol, Webbrowser Problem-->Frage

    Hallo!
    Ich hab da mal ne frage!
    Unzwar, wenn ich was in die Combobox eintippe, werde ich nicht navigiert!, was muss ich ändern, damit ich navigiert werde?

    VB.NET-Quellcode

    1. Dim CurrBrowser As WebBrowser
    4. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    6. ' Alle Tabs entfernen
    7. Me.TabControl1.TabPages.Clear()
    8. AddTab("leere Seite", "about:blank")
    10. ' Jetzigen Browser auslesen
    11. GetCurrBrowser()
    13. End Sub
    15. Private Sub ComboBox1_KeyDown(ByVal sender As System.Object, ByVal e As KeyEventArgs) Handles ComboBox1.KeyDown
    17. ' Wenn ENTER gedrückt wird navigieren und zur
    18. ' ComoBox hinzufügen.
    19. If e.KeyCode = Keys.Enter Then
    20. CurrBrowser.Navigate(Me.ComboBox1.Text)
    21. Me.ComboBox1.Items.Add(Me.ComboBox1.Text)
    22. End If
    24. End Sub
    26. Private Sub TabPage1_TabIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabControl1.TabIndexChanged
    27. GetCurrBrowser()
    28. End Sub
    30. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    32. ' Tab hinzufügen siehe "Sub AddTab()"
    33. AddTab("leere Seite", "about:blank")
    35. End Sub
    37. Private Sub wb_DocumentCompleted(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs)
    39. ' TabTitel in den Titel der Website ändern
    40. Me.TabControl1.SelectedTab.Text = CurrBrowser.DocumentTitle
    42. ' Wenn man zu "about:blank" navigiert wird der Titel zu "" geändert da
    43. ' es eine leere seite ist..
    44. If e.Url.AbsoluteUri = "about:blank" Then
    45. Me.TabControl1.SelectedTab.Text = "leere Seite"
    46. End If
    48. End Sub
    50. Private Sub wb_Navigating(ByVal sender As Object, ByVal e As WebBrowserNavigatingEventArgs)
    53. Me.TabControl1.SelectedTab.Text = "Laden ..."
    54. Me.ComboBox1.Text = CurrBrowser.Url.AbsoluteUri
    56. End Sub
    58. Private Sub wb_Navigated(ByVal sender As Object, ByVal e As WebBrowserNavigatedEventArgs)
    63. Me.ComboBox1.Text = CurrBrowser.Url.AbsoluteUri
    65. End Sub
    67. Sub AddTab(ByVal name As String, ByVal url As String)
    69. Dim tab As TabPage = New TabPage(name)
    70. Dim wb As WebBrowser = New WebBrowser
    72. ' Zur Seite "url" navigieren
    73. wb.Navigate(url)
    74. wb.Dock = DockStyle.Fill
    76. ' Den Browser zur TabPage hinzufügen
    77. tab.Controls.Add(wb)
    79. ' Einen EventHandler des WebBrowsers (DocumentCompleted & Navigating) hinzufügen
    80. AddHandler wb.DocumentCompleted, AddressOf wb_DocumentCompleted
    81. AddHandler wb.Navigating, AddressOf wb_Navigating
    82. AddHandler wb.Navigated, AddressOf wb_Navigated
    84. ' Tab zum TabControl hinzüfügen
    85. Me.TabControl1.TabPages.Add(tab)
    87. End Sub
    89. Sub GetCurrBrowser()
    91. ' CurrBrowser auf den Browser des ausgewählten Tabs setzen
    92. For Each wb As WebBrowser In Me.TabControl1.SelectedTab.Controls
    93. CurrBrowser = wb
    94. Exit For
    95. Next
    97. End Sub
    99. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    100. WebBrowser1.Navigate(ComboBox1.Text)
    101. End Sub


    Danke im Voraus


    Gruß

    jan1996

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „jan1996“ ()

    Also 100 Zeilen schlecht strukturierten Code , ohne Kommentare und Einrückungen finde ich schon eine Zumutung. Was hältst Du davon mal Deinen Debugger zu benutzen und das ganze ab Combobox KeyDown Event mal per Einzelschritt durchgehst ?

    Und wenn das immer noch nicht funktioniert es nochmal sauber postest ?

    Soory, wegen dem Post und seiner mängel!

    @Kangaroo
    http:\\ fügt sich selber hinzu

    Habe den Fehler jetzt doch
    gefunden!
    Zeile 15-24 muss ich nochmal überarbeiten(löschen)

    Habe jetzt ein 2tes Problem!
    Wenn ich in einen Anderen Tab wechsele, und eine Url eingebe, steht in dem ausgewählten tab, laden, aber die website wird in dem ersten tab geladen!
    Was kann ich ändern?


    Gruß

    jan1996

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „jan1996“ ()

    Habe jetzt nen neuen code, der auch geht.
    Trotzdem danke!

    VB.NET-Quellcode

    1. Dim i As Integer = 1
    2. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    3. Dim browse As New WebBrowser
    4. TabControl1.TabPages.Add(i, "leere Seite")
    5. TabControl1.SelectTab(i - 1)
    6. browse.Name = "wb"
    7. browse.Dock = DockStyle.Fill
    8. TabControl1.SelectedTab.Controls.Add(browse)
    9. i = i + 1
    12. End Sub
    14. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    16. Dim browse As New WebBrowser
    17. TabControl1.TabPages.Add(i, "leere Seite")
    18. TabControl1.SelectTab(i - 1)
    19. browse.Name = "wb"
    20. browse.Dock = DockStyle.Fill
    21. TabControl1.SelectedTab.Controls.Add(browse)
    22. i = i + 1
    24. End Sub
    26. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    27. CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(ComboBox1.Text)
    28. End Sub


    Gruß

    jan1996

    Das sieht doch schon erheblich(!) besser aus :)

    Ich weiss ja nicht was Dein Programm so tun soll, aber es scheint ja als ob Du dynamisch Tabs anlegst und (ebenfalls dynamisch) WebBrowser Controls mit DockStyle.Fill dort erzeugst. Was Du noch machen könntest, wäre
    - eine eigene abgeleitete WebBrowser Klasse definieren, die Du mit Adress- und Statusleisten ausstattest
    - mit addHandler die events des WebBrowsers abfängst und behandelst

    Die Events (i.e. Document.Completed) werden in Deinem Beispiel ja noch nicht erwähnt.

    Gruss

Facebook
Telefonspende