je le met en telechargement placer le dossier sur votre bureau ,ouvrer le et cliquer sur le fichier exe enjoy
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If ComboBox1.SelectedItem = "NRJ" Then
AxWindowsMediaPlayer1.URL =
"http://broadcast.infomaniak.net/nrjbe-high.mp3"
ElseIf ComboBox1.SelectedItem = "RFM 80" Then
AxWindowsMediaPlayer1.URL =
"http://vipicecast.yacast.net/rfm_webradio05"
ElseIf ComboBox1.SelectedItem = "rmc" Then
AxWindowsMediaPlayer1.URL =
"http://vipicecast.yacast.net/rmc"
ElseIf ComboBox1.SelectedItem = "Funradio" Then
AxWindowsMediaPlayer1.URL =
"http://radio.funradio.fr/funradio.asx"
ElseIf ComboBox1.SelectedItem = "Breakcore" Then
AxWindowsMediaPlayer1.URL =
"http://broadcaster.infomaniak.net/fzm-high.mp3"
ElseIf ComboBox1.SelectedItem = "Rire et chanson sketch" Then AxWindowsMediaPlayer1.URL = "http://95.81.153.1/rire_100_sketches/all/rir_152805.mp3"
ElseIf ComboBox1.SelectedItem = "Voltage" Then
AxWindowsMediaPlayer1.URL =
"http://broadcast.infomaniak.ch/start-voltage-high.mp3"
ElseIf ComboBox1.SelectedItem = "Europe 1" Then
AxWindowsMediaPlayer1.URL =
"http://vipicecast.yacast.net/europe1"
ElseIf ComboBox1.SelectedItem = "nostalgie" Then
AxWindowsMediaPlayer1.URL =
"http://95.81.153.1/nostalgie/all/nos_113812.mp3"
ElseIf ComboBox1.SelectedItem = "rire et chanson" Then
AxWindowsMediaPlayer1.URL = "http://95.81.153.1/rire_et_chansons/all/rir_124629.mp3"
Else
MsgBox(
"Vous avez oublier de sélectionner votre radio !", MsgBoxStyle.Information)
End If
End Sub
Private Sub OuvrirMusiqueVideoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OuvrirMusiqueVideoToolStripMenuItem.Click
OpenFileDialog1.ShowDialog()
AxWindowsMediaPlayer1.URL = OpenFileDialog1.FileName
End Sub
Private Sub PleinEcranToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PleinEcranToolStripMenuItem.Click
If (AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying) Then
AxWindowsMediaPlayer1.fullScreen =
True
Else
MsgBox( "Lancer une musique ou une vidéo pour visionner en fullscreen", MsgBoxStyle.Information)
End If
End Sub
End Class