cocowz
Messages postés89Date d'inscriptionlundi 28 novembre 2005StatutMembreDernière intervention25 février 2007
-
25 août 2006 à 14:22
KC62
Messages postés229Date d'inscriptionmardi 3 juin 2003StatutMembreDernière intervention20 juin 2007
-
25 août 2006 à 16:30
Bonjour.
Je voudrais vous demander comment on fait pour que quand une presonne clique sur checkbox et que sa l'enregistre dans un fichier .ini (comme quoi c'est checker. et a chaque ouverture c'est checked aussi) Et que quand la personne clique une 2eme fois sa sera unchecked et sa la sauvegarde a chaque changement. Merci
jrivet
Messages postés7393Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 25 août 2006 à 16:04
Re,
Je n'avais jamais utilser SaveSetting ni GetSetting (j espere que tu parlais de cela 13557 DARKSIDIOUS )
Et c'est peu etre encore plus simple qu avec les API
Ce qui donnerait
Private Sub Form_Load()
Dim Tmp As String
Tmp = GetSetting(App.EXEName, "DEF", "Choix", "?")
If Tmp <> "?" Then Check1.Value = CInt(Tmp)
End Sub
Private Sub Check1_Click()
Call SaveSetting(App.EXEName, "DEF", "Choix", Check1.Value)
End Sub
jrivet
Messages postés7393Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 25 août 2006 à 14:32
Salut,
Est ce que tu sais déja faire l'enregistrement au Format INI?
Si NON regarde du cote des API suivantes
1- Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
2 -Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Pour sauvegarder tu fais la chose suivante.
Private Sub Check1_Click()
Call WritePrivateProfileString("DEF", "Choix", CStr(Check1.Value), "C:\Test.ini")
End Sub
Pour recuperer la valeur sauvegarder.
Private Sub Form_Load()
Dim Ret As Long
Dim Tmp As String
Tmp = Space$(10)
Ret = GetPrivateProfileString("DEF", "Choix", "?", Tmp, 10, "C:\test.ini")
If Tmp <> "?" Then Check1.Value = CInt(Tmp)
End Sub
cs_DARKSIDIOUS
Messages postés15814Date d'inscriptionjeudi 8 août 2002StatutMembreDernière intervention 4 mars 2013129 25 août 2006 à 15:48
Au lieu d'utiliser un fichier ini, utilise le registre de windows : bien plus simple à utiliser, bien plus performant, et surtout, recommandé par Microsoft depuis belle lurette !
En plus, tu as des fonctions directement intégrée à VB pour stocker dans le registre !
KC62
Messages postés229Date d'inscriptionmardi 3 juin 2003StatutMembreDernière intervention20 juin 2007 25 août 2006 à 16:30
Bonjour,
Ta checkbox est t'elle bien nommé Check1 ?
"Et une question tout ces codes vous les apprenes ou quand on sais coder sa vien tout seul?"
C'est une question de logique, Si tu est débutant il va te falloir apprendre a apprendre.
Je m'explique, 90% des gens qui maitrise le codage et que tu as rencontré sur ce site on commencer par le bidouiilage.
A savoir : il ont trouver des solutions à leur problème, ils ont progresser et ne se rendent meme pas compte du niveau atteint : ils sont humbles.
Trouver des solutions n'est pas forcément trouver la solution au problème posé , mais c'est parfait modifié les variables du problème...
C'est comme en anglais lorsque que l'on te dit de ne pas chercher a traduire mot pour mot ce que tu pense si tu bloque mais on te conseille
d'exprimer ta phrase avec les mots que tu connais. Pareille.
Bon week-end !
KC62
On a pas toutes les solutions de tous les probleme mais chaque probleme à ses solutions ...