Les options enregistrées

Question

Bonjour à tous, je suis entrain de réaliser un petit soft, dans se soft, je permet aux utilisateurs d'appliquer certaines option (ex: Demarrage d'un nouveau doc à chaque lancement du soft ) et je voudrais que les options soyent enregistré pour que à chaque fois que le soft est lancé, l'option est appliqué. Et je voudrais aussi que quand la fenête option est affiché à l'écran, qu'on ne pise rien faire d'autre sauf dans la fenêtre option.

Merci d'avance pour vos réponse.

drikce06 · Answer

Salut, tu enregistres ces options dans un fichier texte et tu les récupères à l'ouverture du soft !
Pour la deuxieme question met la form en show modal.

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

ben_singhi · Answer

C'est gentil, je pensais pas avoir une réponse aussi vite , mais je ne vois pas comment faire pour enregistré dans le fichier texte, si tu pouvais m'aider, ça serait surper bien.

Et merci pour ta réponse.

drikce06 · Answer

Tu crées un fichier text vide "Options.txt" vide, que tu installes avec ton appli ou tu le crées quand les options sont sauvegardées!
Quand il enregistre tu écris dans le fichier texte, et à l'ouverture tu récupères les infos. Après pour gérer l'ecriture et la lecture d'un fichier text regarde les sources du site et codyx. Après si tu buche sur une partie de code repose une question sur le forum avec le bout de code qui coince.

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

drikce06 · Answer

'Exemple pour la lecture:




Sub



 ParcourirFichierText()


Dim
 TaString 

As



String






'ouvre le Analyse.txt

Open 




"C:\Analyse.txt"



For
 Input 

As
 #1


While



Not
 EOF(1)


'Lit le fichier ligne par ligne et stock la ligne en cours dans TaString

Line Input #1, TaString







End



While

Close #1





End






Sub






 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

ben_singhi · Answer

C'est bien gentil de ta part je vais me pencher sur ça au plus vite. Merci beaucoup

ben_singhi · Answer

Les options choisi sont des checkBox, je n'ai encore jamais travailler avec des fichiers jusque là, mais de connaissance je sais plus ou moins que c'est comme ça, non ??

Open "c:\option.text" For Append As #1
Write #1, Check1
Close #1
  
'=================================
  
Open "c:\option.text" For Input As #1
do while note eof(1)
Input #1, fichier
Check1 = fichier
Loop
Close #1

mortalino · Answer

Salut,

faut un peu chercher sur codes sources, il y a une source prévue à cet effet :

http://www.vbfrance.com/codes/ENREGISTRER-APPLIQUER-PARAMETRES-FORM-LIGNES-CTL_35970.aspx

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>

drikce06 · Answer

Voici ce que je ferai, j'ai testé et cela fonctionne!

Sub ParcourirFichierText()


Dim TaString As String
Dim TablString() As String


'Enregistrement des options
Open "C:\Analyse.txt" For Output As #1
Print #1, "Option1: " & CheckBox1.Value
Print #1, "Option2 : " & CheckBox2.Value
Print #1, "Option3 : " & CheckBox3.Value
Close #1
  
'Récupération des options
Open "C:\Analyse.txt" For Input As #1
While Not EOF(1)
Line Input #1, TaString


TablString = Split(TaString, " ", -1, vbTextCompare)


  If TablString(0) = "Option1:" Then


     If TablString(1) "Vrai" Then CheckBox1.Value True     If TablString(1) "Faux" Then CheckBox1.Value True


  ElseIf TablString(0) = "Option2:" Then
      If TablString(1) "Vrai" Then CheckBox2.Value True     If TablString(1) "Faux" Then CheckBox2.Value True
     
  ElseIf TablString(0) = "Option3:" Then
      If TablString(1) "Vrai" Then CheckBox3.Value True     If TablString(1) "Faux" Then CheckBox3.Value True
  
  End If


Wend
Close #1


End Sub

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

drikce06 · Answer

Re: ben_singhi  Tu as testé?

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

ben_singhi · Answer

Bha la je viens de rentrer lol je vois ça se soir, merci

Les options enregistrées

10 réponses

Votre réponse

Discussions similaires