Radiozweb

Télécharger le projet
Commenter

Description

RadioZWeb

Petit programme simple en code pour accéder aux Radios Web les plus connues

Quelques liens me manquent, si quelqu'un les a je serai heureux de les ajouter

Source / Exemple : 


Dim uUrl, FichSt As String
Dim Stations(20)

Public Sub Form_Load()
   FichSt = App.Path & "\stations.txt"
   Option18.Value = True
   Open FichSt For Input As #1
   a = 0
   Do While Not EOF(1)
    Line Input #1, nexline
    Stations(a) = nexline
    a = a + 1
   Loop
   Close #1
End Sub

Public Sub OptionR_Click(Index As Integer)
   uUrl = Stations(Index)
   Poste.URL = uUrl
   Station.Caption = OptionR(Index).Caption
End Sub
Télécharger le projet

Codes Sources

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.