117 RADIOS SUR LE NET

Messages postés
780
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
16 avril 2009
- - Dernière réponse : fluminis
Messages postés
73
Date d'inscription
dimanche 5 janvier 2003
Statut
Membre
Dernière intervention
20 juin 2005
- 2 sept. 2004 à 13:40
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

Afficher la suite 
fluminis
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)
fluminis
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)
lmurat
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.
cs_ViP
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 :)
Fl0sis
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
Fl0sis
Messages postés
24
Date d'inscription
samedi 5 juillet 2003
Statut
Membre
Dernière intervention
1 novembre 2003
-
ouai tres pratique=)
cs_OXyDe
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 :)
fluminis
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
++
cs_nihaoma
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
cs_pepsi
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 ?
DuncanIdaho
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
DuncanIdaho
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

@++
CAD9757
Messages postés
74
Date d'inscription
dimanche 17 août 2003
Statut
Membre
Dernière intervention
27 mars 2004
-
vraiment sympa
8/10
cs_Urgo
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