Options

Question

:question) Débutant en visual basic en fait j'ai 2 questions 
1= J'ai 2 form dont une nommé "options" avec common dialog couleur et des pictures box
quand je selectionne la couleur pas de probleme la couleur choisi dans le commondialog s'affiche dans le picture box
quand je ferme ma feuille option et que je l'ouvre par la suite aucune couleur n'a été mémoriser comment faire svp pour que les pictures box mémorise mes choix même aprés avoir fermé le programme??

2= Connaissez vous un livre simple et clair expliquant la fonction et l'utilisation des différent composants existant ??
Merci pour vos réponses

econs · Answer

1°)

Plusieurs possibilités :

a) Sauvegarder les couleurs choisies dans la base de registre et les réutiliser au chargement du formulaire, grâce aux fonctions SaveSettings et GetSettings

b) Sauvegarder les couleurs choisies dans un fichier texte et les réutiliser au chargement du formulaire

c) Sauvegarder les couleurs choisies dans un fichier INI et les réutiliser au chargement du formulaire.

Manu

Xav88 · Answer

2°) Si tu veux un bon livre pour débuter en vb6  il y a "Microsoft Visual Basic Le guide du programmeur" de Gérard Frantz dans la collection "La référence programmation" chez OEM. Il parle de l'utilisation des composants fournis avec vb6 et beaucoups de choses sur vb (+ de 1200 pages)

 :) Xavier :)

cs_marsouin · Answer

Merci de vos réponses et de la rapidité à laquelle vous avez répondu
Au sujet des sauvegardes
quelles codes faut il utiliser ?

Xav88 · Answer

Salut,

Avec SaveSetting, GetSetting :

'Pour enregistrer
SaveSetting NomDuProg, Section, Clée, ValeurDeLaClée
'Renvoie la valeur de la clée
GetSetting NomDuProg, Section, Clée
'Supprimer une clée
DeleteSetting NomDuProg, Section, Clée


Avec un fichier ini (code à mettre dans un module et à appeler dans le code comme n'importe quelle fonction...) :


Private 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

Private 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

Private Declare Function WritePrivateProfileSection Lib "kernel32" Alias _
    "WritePrivateProfileSectionA" ( _
     ByVal lpAppName As String, _
     ByVal lpString As Any, _
     ByVal lpFileName As String) As Long

'Fonction pour lire une valeur dans un fichier INI
Function INIRead(Entete As String, Variable As String, Optional Fichier As String) As String    Fichier IIf(Fichier "", App.Path & "" & App.EXEName & ".ini", Fichier)
    INIRead = String(255, Chr(0))
    INIRead = Left$(INIRead, GetPrivateProfileString(Entete, ByVal Variable, "", INIRead, Len(INIRead), Fichier))
End Function

'Fonction pour écrire une valeur dans un fichier INI
'La section spécifiée est créée automatiquement si elle n'existe pas déjà
Function INIWrite(Entete As String, Variable As String, Valeur As String, Optional Fichier As String) As String    Fichier IIf(Fichier "", App.Path & "" & App.EXEName & ".ini", Fichier)
    EcrireINI = WritePrivateProfileString(Entete, Variable, Valeur, Fichier)
End Function

'Fonction pour supprimer une valeur dans un fichier INI
Function INIDelete(Entete As String, Variable As String, Optional Fichier As String) As String    Fichier IIf(Fichier "", App.Path & "" & App.EXEName & ".ini", Fichier)
    SupprINI = WritePrivateProfileString(Entete, Variable, 0&, Fichier)
End Function

'Fonction pour supprimer une section dans un fichier INI
Function INIDeleteSection(Entete As String, Optional Fichier As String) As String    Fichier IIf(Fichier "", App.Path & "" & App.EXEName & ".ini", Fichier)
    SupprSectionINI = WritePrivateProfileSection(Entete, 0&, Fichier)
End Function


Voila, pour le fichier texte je ne sais pas bien comment faire mais de toute façon ce n'est pas la façon que je choisirais. Personnellement je préfère le fichier INI.

 :) Xavier :) 
 :) Xavier :)

Options

4 réponses

Discussions similaires