faire son lecteur audio video et radio - tuto-informatique.seb30.overblog.com
Overblog Suivre ce blog
Editer l'article Administration Créer mon blog
tuto-informatique.seb30.overblog.com

tuto et astuce informatique,n'hesitez pas a faire un don pour le travail

faire son lecteur audio video et radio

Publié le 30 Janvier 2013 par SEB in vb 2010

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

faire son lecteur audio video et radio
Commenter cet article