- Katılım
- 5 Ocak 2014
- Mesajlar
- 3,333
- Tepkime puanı
- 6
- Puanları
- 136
Formumuza sadece 1 tane Combobox ekliyoruz ve 1 tanede Windows Media Player eklioruz.
Bilmeyen arkler için Wmp nasıl eklendğini anlatıyorum;
Toolbox'a gelip sağ tık yapıoruz.Choose items seçeneğine giriyoruz ve COM Components'den Windows Media Player'i ekliyoruz.
Combobox'a tıklayıp properties'inden collection'a giriyoruz.
Örnek olarak ben;
VirginRadioRadio5PowerFm giriyorum.
Sonra Combobox'a çift tıklayıp kod kısmına geçiyoruz;
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
If ComboBox1.SelectedItem = "VirginRadio" Then
AxWindowsMediaPlayer1.URL = "http://strm-1.tr.medianova.tv/RADIO_VIRGIN_LOW"
End If
If ComboBox1.SelectedItem = "Radio5" Then
AxWindowsMediaPlayer1.URL = "mms://84.16.235.95/r5"
End If
If ComboBox1.SelectedItem = "PowerFm" Then
AxWindowsMediaPlayer1.URL = "mms://xiphias.vargonen.net/PowerFm"
End If
End Sub
Bilmeyen arkler için Wmp nasıl eklendğini anlatıyorum;
Toolbox'a gelip sağ tık yapıoruz.Choose items seçeneğine giriyoruz ve COM Components'den Windows Media Player'i ekliyoruz.
Combobox'a tıklayıp properties'inden collection'a giriyoruz.
Örnek olarak ben;
VirginRadioRadio5PowerFm giriyorum.
Sonra Combobox'a çift tıklayıp kod kısmına geçiyoruz;
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
If ComboBox1.SelectedItem = "VirginRadio" Then
AxWindowsMediaPlayer1.URL = "http://strm-1.tr.medianova.tv/RADIO_VIRGIN_LOW"
End If
If ComboBox1.SelectedItem = "Radio5" Then
AxWindowsMediaPlayer1.URL = "mms://84.16.235.95/r5"
End If
If ComboBox1.SelectedItem = "PowerFm" Then
AxWindowsMediaPlayer1.URL = "mms://xiphias.vargonen.net/PowerFm"
End If
End Sub