117 RADIOS SUR LE NET

Signaler
Messages postés
780
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
16 avril 2009
-
Messages postés
73
Date d'inscription
dimanche 5 janvier 2003
Statut
Membre
Dernière intervention
20 juin 2005
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/8378-117-radios-sur-le-net

Messages postés
73
Date d'inscription
dimanche 5 janvier 2003
Statut
Membre
Dernière intervention
20 juin 2005

Cool, merci d'avoir fait ces changements :o)
Messages postés
73
Date d'inscription
dimanche 5 janvier 2003
Statut
Membre
Dernière intervention
20 juin 2005

Cool, merci d'avoir fait ces changements :o)
Messages postés
1
Date d'inscription
mardi 28 janvier 2003
Statut
Membre
Dernière intervention
2 septembre 2004

Bonjour,
suite au commentaire de fluminis:
1 - Passer la form en StartupPosition manual
2 - Ajout dans Private Sub lblEnd_Click() :
SauveInfo "NUMX", frmMain.Top
SauveInfo "NUMY", frmMain.Left
3 - Ajout dans form.load après TjrVis Me
Me.Top = LitInfo("NUMX", 0)
Me.Left = LitInfo("NUMY", 0)
Cela sauvegarde la position de l'appli et la restore
au prochain lancement.
Messages postés
9
Date d'inscription
vendredi 13 décembre 2002
Statut
Membre
Dernière intervention
11 novembre 2004

Fl0sis, t'es un neu² c'est tout te poses pas de questions :)
Messages postés
24
Date d'inscription
samedi 5 juillet 2003
Statut
Membre
Dernière intervention
1 novembre 2003

mais can je make le prog , vb se plante tu c pourquoi?
adress email: fl0sis@aol.com
Messages postés
24
Date d'inscription
samedi 5 juillet 2003
Statut
Membre
Dernière intervention
1 novembre 2003

ouai tres pratique=)
Messages postés
21
Date d'inscription
vendredi 1 février 2002
Statut
Membre
Dernière intervention
11 septembre 2005

Franchement trés bon boulot c'est trés pratique :)
Messages postés
73
Date d'inscription
dimanche 5 janvier 2003
Statut
Membre
Dernière intervention
20 juin 2005

super utile je l'utilise pas mal...

voila si vous voulez sauvez la derniere radio ecouté :
dans le module :

'=========================================================
' SAUVER ET LIRE DES INFOS
'=========================================================
Public Sub SauveInfo(ByVal Info As String, Valeur As Variant)
SaveSetting App.EXEName, "Options", Info, Valeur
End Sub

Public Function LitInfo(ByVal Info As String, Optional ByVal DefautVal As Variant) As Variant
LitInfo = GetSetting(App.EXEName, "Options", Info, DefautVal)
End Function

transformez :

Private Sub lblEnd_Click()
SauveInfo "NUMRAD", cmbRad.ListIndex '<=ici
End
End Sub

et dans Form_Load :en derniere ligne rajouter
cmbRad.ListIndex = LitInfo("NUMRAD", 0)
lblGo_Click

voila si ca peut aider
++
Messages postés
140
Date d'inscription
jeudi 2 mai 2002
Statut
Membre
Dernière intervention
2 février 2010

prog très interessant, simple (80% du code est là surtout pour gérer l'affichage); mais ca marche bien et c'est util. Prochaine étape, pourquoi ne pas rajouter un lecteur mp3, et un visualisateur graphique....
continue, c'est bien
Messages postés
63
Date d'inscription
mercredi 19 février 2003
Statut
Membre
Dernière intervention
6 janvier 2009

Sé vraiement simple ... une ligne pi la radio joue ... sé trop hot !
Mais j'ai une question ... où tu trouve les adresse des radios ?
Messages postés
98
Date d'inscription
mardi 1 janvier 2002
Statut
Membre
Dernière intervention
12 février 2008

Ah, et garder en memoire la derniere radio utilisée, aussi
Messages postés
98
Date d'inscription
mardi 1 janvier 2002
Statut
Membre
Dernière intervention
12 février 2008

Bo et pratique :-)

deux petites remarques, quand meme : la couleur du texte dans la listbox n'est pas tres lisible
Ce serait peut-etre mieu si la fenetre ne pouvait pas sortir de l'ecran

9/10

@++
Messages postés
74
Date d'inscription
dimanche 17 août 2003
Statut
Membre
Dernière intervention
27 mars 2004

vraiment sympa
8/10
Messages postés
780
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
16 avril 2009
1
le design est très amélioré => je dirais un peu amélioré (voir capture)

A part ça l'idée de l'avoir minisé un maximun et mis ALWAYS ON TOP me plait ! C'est pratique pour le mettre dans un coin de l'écran.

7/10