Webbrowser soll sich nicht connecten.

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von Penumbra.

    Webbrowser soll sich nicht connecten.

    Hallo

    ich bin neu hier und wollte mal nachfragen ob einer von euch mir gegeben fals helfen kann.
    komme mal zur sache, Ich habe mir einen webbrowser progrogramiert und ich habe ein kleines problem ich will nicht das wen ich z.b. in meinem webbrowser google.de eingebe komme ich auf die seite soweit ist alles ok und wen ich dan angenommen youtube eingebe und dan auf den link klicke verbindet er immer mit dem internet explorer und oder firefox und genau das will ich nicht soweit ich weis brauch ich ein modull dafür aber dies kann ich nicht da hoff ich auf hilfe von euch. Danke im voraus. :)
    dies ist der code:

    Public Class form1
    Dim aktiverBrowser As WebBrowser
    Private Sub getaktiverBrowser()
    For Each wb As WebBrowser In TabControl1.SelectedTab.Controls
    aktiverBrowser = wb
    Exit For
    Next
    End Sub
    Public Sub adtab(ByVal name As String, ByVal url As String)
    Dim tab As TabPage = New TabPage(name)
    Dim wb As WebBrowser = New WebBrowser
    AddHandler wb.DocumentCompleted, AddressOf webbrowser_DocumentCompleted
    wb.Navigate(url)
    wb.Dock = DockStyle.Fill
    tab.Controls.Add(wb)
    TabControl1.TabPages.Add(tab)
    TabControl1.SelectTab(tab)
    End Sub

    Private Sub form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    TabControl1.TabPages.Clear()
    adtab("New Tab", "aboutblank")
    getaktiverBrowser()
    aktiverBrowser.Navigate(My.Settings.Startseite)
    End Sub

    Private Sub addBTN_Click(sender As Object, e As EventArgs) Handles addBTN.Click
    getaktiverBrowser()
    adtab("new Tab", "aboutblank")
    getaktiverBrowser()
    urlt.Text = "about:blank"
    End Sub

    Private Sub GoBTN_Click(sender As Object, e As EventArgs) Handles GoBTN.Click
    getaktiverBrowser()
    aktiverBrowser.Navigate(urlt.Text)

    End Sub

    Private Sub RelodeBTN_Click(sender As Object, e As EventArgs) Handles RelodeBTN.Click
    aktiverBrowser.Refresh()
    End Sub

    Private Sub StopBTN_Click(sender As Object, e As EventArgs) Handles StopBTN.Click
    aktiverBrowser.Stop()
    End Sub

    Private Sub HomeBTM_Click(sender As Object, e As EventArgs) Handles HomeBTM.Click
    aktiverBrowser.GoHome()
    End Sub

    Private Sub BackBTN_Click(sender As Object, e As EventArgs) Handles BackBTN.Click
    aktiverBrowser.GoBack()
    End Sub

    Private Sub ForBTN_Click(sender As Object, e As EventArgs) Handles ForBTN.Click
    aktiverBrowser.GoForward()
    End Sub
    Private Sub webbrowser_DocumentCompleted()
    If Not aktiverBrowser.DocumentTitle = Nothing Then
    TabControl1.SelectedTab.Text = aktiverBrowser.DocumentTitle


    getaktiverBrowser()
    urlt.Text = aktiverBrowser.Url.OriginalString.ToString
    Me.Text = aktiverBrowser.DocumentTitle
    End If
    End Sub

    Private Sub removetabBTM_Click(sender As Object, e As EventArgs) Handles removetabBTM.Click
    TabControl1.TabPages.Remove(TabControl1.SelectedTab)
    End Sub

    Private Sub SchließenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SchließenToolStripMenuItem.Click
    End
    End Sub

    Private Sub NeuerTabToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeuerTabToolStripMenuItem.Click
    adtab("Neuer tab", "about:blank")
    End Sub

    Private Sub TabSchliesenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TabSchliesenToolStripMenuItem.Click
    TabControl1.TabPages.Remove(TabControl1.SelectedTab)
    End Sub
    End Class

    Ich hoffe du kannst damit was anfangen ich bin noch nicht so bewandert mit allem leider

    VB.NET-Quellcode

    1. Public Class form1
    2. Dim aktiverBrowser As WebBrowser
    3. Private Sub getaktiverBrowser()
    4. For Each wb As WebBrowser In TabControl1.SelectedTab.Controls
    5. aktiverBrowser = wb
    6. Exit For
    7. Next
    8. End Sub
    9. Public Sub adtab(ByVal name As String, ByVal url As String)
    10. Dim tab As TabPage = New TabPage(name)
    11. Dim wb As WebBrowser = New WebBrowser
    12. AddHandler wb.DocumentCompleted, AddressOf webbrowser_DocumentCompleted
    13. wb.Navigate(url)
    14. wb.Dock = DockStyle.Fill
    15. tab.Controls.Add(wb)
    16. TabControl1.TabPages.Add(tab)
    17. TabControl1.SelectTab(tab)
    18. End Sub
    19. Private Sub form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    20. TabControl1.TabPages.Clear()
    21. adtab("New Tab", "aboutblank")
    22. getaktiverBrowser()
    23. aktiverBrowser.Navigate(My.Settings.Startseite)
    24. End Sub
    25. Private Sub addBTN_Click(sender As Object, e As EventArgs) Handles addBTN.Click
    26. getaktiverBrowser()
    27. adtab("new Tab", "aboutblank")
    28. getaktiverBrowser()
    29. urlt.Text = "about:blank"
    30. End Sub
    31. Private Sub GoBTN_Click(sender As Object, e As EventArgs) Handles GoBTN.Click
    32. getaktiverBrowser()
    33. aktiverBrowser.Navigate(urlt.Text)
    34. End Sub
    35. Private Sub RelodeBTN_Click(sender As Object, e As EventArgs) Handles RelodeBTN.Click
    36. aktiverBrowser.Refresh()
    37. End Sub
    38. Private Sub StopBTN_Click(sender As Object, e As EventArgs) Handles StopBTN.Click
    39. aktiverBrowser.Stop()
    40. End Sub
    41. Private Sub HomeBTM_Click(sender As Object, e As EventArgs) Handles HomeBTM.Click
    42. aktiverBrowser.GoHome()
    43. End Sub
    44. Private Sub BackBTN_Click(sender As Object, e As EventArgs) Handles BackBTN.Click
    45. aktiverBrowser.GoBack()
    46. End Sub
    47. Private Sub ForBTN_Click(sender As Object, e As EventArgs) Handles ForBTN.Click
    48. aktiverBrowser.GoForward()
    49. End Sub
    50. Private Sub webbrowser_DocumentCompleted()
    51. If Not aktiverBrowser.DocumentTitle = Nothing Then
    52. TabControl1.SelectedTab.Text = aktiverBrowser.DocumentTitle
    53. getaktiverBrowser()
    54. urlt.Text = aktiverBrowser.Url.OriginalString.ToString
    55. Me.Text = aktiverBrowser.DocumentTitle
    56. End If
    57. End Sub
    58. Private Sub removetabBTM_Click(sender As Object, e As EventArgs) Handles removetabBTM.Click
    59. TabControl1.TabPages.Remove(TabControl1.SelectedTab)
    60. End Sub
    61. Private Sub SchließenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SchließenToolStripMenuItem.Click
    62. End
    63. End Sub
    64. Private Sub NeuerTabToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeuerTabToolStripMenuItem.Click
    65. adtab("Neuer tab", "about:blank")
    66. End Sub
    67. Private Sub TabSchliesenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TabSchliesenToolStripMenuItem.Click
    68. TabControl1.TabPages.Remove(TabControl1.SelectedTab)
    69. End Sub
    70. End Class