tuto-informatique.seb30.overblog.com

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