117 RADIOS SUR LE NET
cs_Urgo
Messages postés
780
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
16 avril 2009
-
28 août 2003 à 17:39
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
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
https://codes-sources.commentcamarche.net/source/8378-117-radios-sur-le-net
2 sept. 2004 à 13:40
2 sept. 2004 à 13:39
2 sept. 2004 à 11:05
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.
21 nov. 2003 à 06:08
1 nov. 2003 à 21:22
adress email: fl0sis@aol.com
1 nov. 2003 à 21:15
20 oct. 2003 à 21:31
13 sept. 2003 à 22:01
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
++
4 sept. 2003 à 12:52
continue, c'est bien
30 août 2003 à 17:27
Mais j'ai une question ... où tu trouve les adresse des radios ?
29 août 2003 à 09:34
29 août 2003 à 09:33
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
@++
28 août 2003 à 19:53
8/10
28 août 2003 à 17:39
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