URL toewijzen en openen met exe?

[larscapaldi]

Hallo,

voorlopig heb ik het onderstaande gemaakt in een userform, maar is het mogelijk om aan kanaal 1 tot 6 een url toe te wijzen en deze url te openen in mplayer.exe (dat is een media player)

Alvast bedankt,
Lars Capaldi

Private Sub ComboBox1_Change()
 
    ComboBox1.Font.Size = 8
    ComboBox1.Font.Bold = True
    ComboBox1.DropDown
   
   Select Case ComboBox1.Value
   
   Case 0 'Kanaal 1

    MsgBox Msg = "Kanaal 1", vbOKOnly
 
    Case 1   'Kanaal 2
    MsgBox Msg = "Kanaal 2", vbOKOnly
    
    Case 2     'Kanaal 3
    MsgBox Msg = "Kanaal 3", vbOKOnly
    
    Case 3    'Kanaal 4
    MsgBox Msg = "Kanaal 4", vbOKOnly
    
    Case 4      'Kanaal 5
    MsgBox Msg = "Kanaal 5", vbOKOnly
    
    Case 5      'Kanaal 6
    MsgBox Msg = "Kanaal 6", vbOKOnly
    End Select

End Sub



Private Sub UserForm_Initialize()
    ComboBox1.AddItem "Kanaal 1"   'ListIndex=0
    ComboBox1.AddItem "Kanaal 2"   'ListIndex=1
    ComboBox1.AddItem "Kanaal 3"   'ListIndex=2
    ComboBox1.AddItem "Kanaal 4"   'ListIndex=3
    ComboBox1.AddItem "Kanaal 5"   'ListIndex=4
    ComboBox1.AddItem "Kanaal 6"   'ListIndex=5

End Sub