ComboBox Anfängerproblem

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von Präsident.

    ComboBox Anfängerproblem

    Hallo,

    ich komme mit den ComboBoxen einfach nicht weiter habe hier schon gesucht aber nix gefunden was mir helfen könnte, google hat auch nichts brauchbares ausgespuckt, könntet ihr mir also helfen aber bitte richtig nicht irgendwohin verlinken.

    Ich hab ein par Einträge Sender1, 2, 3 u.s.w. wenn ich auf Eintrag 1 klicke soll dieser Befehl ausgeführt werden AxWindowsMediaPlayer1.URL = ("Sender1URL") wenn ich auf eintrag 2 klicke der AxWindowsMediaPlayer1.URL = ("Sender2URL")

    MfG

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Präsident“ ()

    VB.NET-Quellcode

    1. Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
    2. AxWindowsMediaPlayer1.URL = ("Top FM" & ComboBox1.SelectedItem & "http://www.top-fm.de/top_fm_streams.asx")
    3. AxWindowsMediaPlayer1.URL = ("TechnoBase.FM" & ComboBox1.SelectedItem & "http://listen.TechnoBase.FM/dsl.asx")
    4. AxWindowsMediaPlayer1.URL = ("Radio Gong" & ComboBox1.SelectedItem & "http://www.radiogong.de/live/high_q.m3u")
    5. End Sub

    So. Bin mir aber sicher das es so nicht stimmt.

    Edit: Hab jetzt mein Projekt angehängt vielleicht könnt ihr mir jetzt helfen.
    Dateien

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Präsident“ ()

    Danke Adam :) funktioniert perfekt.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
    2. Select Case ComboBox1.SelectedItem
    3. Case "Top FM"
    4. AxWindowsMediaPlayer1.URL = "http://www.top-fm.de/top_fm_streams.asx"
    5. Case "TechnoBase.FM"
    6. AxWindowsMediaPlayer1.URL = "http://listen.TechnoBase.FM/dsl.asx"
    7. Case "Radio Gong"
    8. AxWindowsMediaPlayer1.URL = "http://www.radiogong.de/live/high_q.m3u"
    9. End Select
    10. End Sub