Combobox - Webbrowser Document Title

  • VB.NET
Gewinnspiel – 3-Tages-Freiticket für die BASTA! Spring 2025 zu gewinnen

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von Mike.S.

    Combobox - Webbrowser Document Title

    Hallo liebe Community,
    Ich habe vor kurzem einen Webbrowser mit einer Combobox- Favoritenleiste erstellt.
    Nun zu meinem Problem:
    Ich möchte dass die Combobox items nach dem Webbrowser Document Title gespeichert werden ohne dass der Link kaputt geht.
    Ich hab nochmal ein Bild* Hochgeladen damit ihr es besser verstehen könnt.
    Hier der Code für den "Favoriten Hinzufügen" button:

    VB.NET-Quellcode

    1. Private Sub Button18_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
    2. Try
    3. ComboBox1.Items.Add(Label2.Text)
    4. Catch ex As Exception
    5. MsgBox("Konnte nicht hinzugefügt werden.", MsgBoxStyle.Exclamation, "mikessiteBrowser")
    6. End Try
    7. My.Settings.lesezeichen2.Clear()
    8. For i As Integer = 0 To ComboBox1.Items.Count - 1
    9. My.Settings.lesezeichen2.Add(ComboBox1.Items(i))
    10. Next
    11. My.Settings.Save()
    12. End Sub

    Und hier für den Go button:

    VB.NET-Quellcode

    1. WebBrowser1.Navigate(ComboBox1.Text)
    2. ComboBox1.SelectedItem = Nothing

    Danke im Voraus :thumbsup:



    Edit by Manschula: Schriftgröße angepasst, Code-Tag eingefügt

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

    Willkommen im Forum :D

    Am einfachsten wäre, eine Klasse zu schreiben die sowohl den Title als auch die Url beinhaltet, von dieser Klasse führst du eine List(of T), welche du an die ComboBox bindest.

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Liste As New List(Of TitleAndUrl)
    5. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    6. Liste.Add(New TitleAndUrl("Google", New Uri("http://www.google.de")))
    7. Liste.Add(New TitleAndUrl("Startseite - Visual-Basic-Forum VB-Paradise.de", New Uri("http://www.vb-paradise.de")))
    8. ComboBox1.DataSource = Liste
    9. ComboBox1.DisplayMember = "Title"
    10. End Sub
    12. Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
    13. WebBrowser1.Navigate(Liste(ComboBox1.SelectedIndex).Url)
    14. End Sub
    16. Class TitleAndUrl
    18. Private _title As String
    19. Private _url As Uri
    21. Public Property Title As String
    22. Get
    23. Return _title
    24. End Get
    25. Set(ByVal value As String)
    26. _title = value
    27. End Set
    28. End Property
    30. Public Property Url As Uri
    31. Get
    32. Return _url
    33. End Get
    34. Set(ByVal value As Uri)
    35. _url = value
    36. End Set
    37. End Property
    39. Sub New(ByVal wbTitle As String, ByVal wbUrl As Uri)
    40. Url = wbUrl
    41. Title = wbTitle
    42. End Sub
    44. End Class
    46. End Class

    Mike.S schrieb:

    Geht´s auch ein wenig unkomplizierter?

    bischen

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Liste As New List(Of TitleAndUrl)
    5. Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
    6. Liste.Add(New TitleAndUrl("Google", New Uri("http://www.google.de")))
    7. Liste.Add(New TitleAndUrl("Startseite - Visual-Basic-Forum VB-Paradise.de", New Uri("http://www.vb-paradise.de")))
    8. ComboBox1.DataSource = Liste
    9. ComboBox1.DisplayMember = "Title"
    10. End Sub
    12. Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles ComboBox1.SelectedIndexChanged
    13. WebBrowser1.Navigate(Liste(ComboBox1.SelectedIndex).Url)
    14. End Sub
    16. Class TitleAndUrl
    18. Public Property Title As String
    19. Public Property Url As Uri
    21. Sub New(ByVal wbTitle As String, ByVal wbUrl As Uri)
    22. Url = wbUrl
    23. Title = wbTitle
    24. End Sub
    26. End Class
    28. End Class

    Bei der Combobox und Form1

    Kann man das nicht irgendwie so machen?:

    VB.NET-Quellcode

    1. Try
    2. ComboBox1.Items.Add(Label2.Text & " /" & WebBrowser1.DocumentTitle)
    4. Catch ex As Exception
    5. MsgBox("Konnte nicht hinzugefügt werden.", MsgBoxStyle.Exclamation, "mikessiteBrowser")
    6. End Try
    7. My.Settings.lesezeichen2.Clear()
    8. For i As Integer = 0 To ComboBox1.Items.Count - 1
    9. My.Settings.lesezeichen2.Add(ComboBox1.Items(i))
    10. Next
    11. My.Settings.Save()


    nur halt das " /" und der Document Title als Notiz sozusagen?