Dim Radio(10) As String Dim nom(10) As String Private Sub Form_Load() Transparence Form1.hWnd, 160 Radio(0) = "http://streaming.radio.rtl.fr:80/rtl-1-44-96" nom(0) = "RTL" Radio(1) = "http://webradio.europe1.fr/V4/europe1/europe1.asx" nom(1) = "Europe1" Radio(2) = "http://player.rfm.fr/V4/player_rfm/rfm.asx" nom(2) = "Rfm" Radio(3) = "http://streaming.radio.funradio.fr:80/fun-1-44-96" nom(3) = "Fun Radio" Radio(4) = "http://player.virginradio.fr/V4/virgin/virgin.asx" nom(4) = "Virgin Radio" Radio(5) = "http://viphttp.yacast.net/nrj/PUBWEBRADIOS/NOSTALGIE/encodernostalgie.asx" nom(5) = "Nostalgie" Radio(6) = "http://players.tv-radio.com/metafichiers/france_inter_mp3-128k.m3u" nom(6) = "France Inter" Radio(7) = "http://players.creacast.com/creacast/france_info/playlist.asx" nom(7) = "France Info" Radio(8) = "http://mp3.live.tv-radio.com/fbsudlorraine/all/fbsudlorraine.mp3" nom(8) = "France Bleu" End Sub Private Sub Form_Unload(Cancel As Integer) End End Sub Private Sub Picture1_Click(Index As Integer) For a = 0 To 8 If Index = a Then Form2.Show Transparence Form2.hWnd, 160 Form2.WindowsMediaPlayer1.URL = Radio(a) Form2.Caption = "Lecteur - " & nom(a) End If Next End Sub
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.