Options

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

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

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

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

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