La radio sur votre pc

Télécharger le projet
Commenter

Description

voila la liste des radios compiler dans un projet VB 98 ; il y a aussi le module de transparence qui rend un effet d'opacité a la liste des radios présente.
cliquer et écoutez

Source / Exemple : 


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
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (zulrigh)