Discussion :

[zitoune31]

Bonjour Bonsoir,

je suis en train d'effectuer une application afin d'effectuer des compte. Je souhaite lors de l'enregistrement dans un fichier.txt de mes saisis : (TextBox / ComboBox / RadioButton et CheckBox); enregistrer le mode enabled True ou False ainsi que Checked ou non de mes CheckBox et le mode enabled True ou False de mes Radiobutton afin que lorsque j'ouvre le fichier de mes saisis mes CheckBox et RadioButton puisse se remettre comme à son enregistrement.

es-ce possible ?

[Pol63]

tout est possible
la sérialisation xml est plus pratique, enfin quand on a fait des classes ...
l'enregistrement des enabled ne me semble pas justifiée, le comportement étant en général du fait des données, et donc recalculable

[zitoune31]

tout est possible
la sérialisation xml est plus pratique, enfin quand on a fait des classes ...
l'enregistrement des enabled ne me semble pas justifiée, le comportement étant en général du fait des données, et donc recalculable

je suis effectivement sur la sérialisation
http://plasserre.developpez.com/cour...age=poo3#LXV-H
reste a trouver le moyen d'adapter sans classes
en faite l'enregistrement des Enabled est obligatoire car en fonction de celui-ci des TextBox sont Enabled = False ou True

[Pol63]

reste a trouver le moyen d'adapter sans classes

mauvaise idée

si tu veux rester sur de la programmation de base, autant coder un fichier texte

system.io.file.writealltext
system.io.file.readalltext (ou readalllines)
split permet de découper
si par exemple ton fichier ressemble à ca :
machin=true
bidule=false
split sur = te permettra d'avoir machin et true

[zitoune31]

mauvaise idée

là où j'en suis j'ai plus le choix malheureusement j'essaye de faire avec mes compétence et vue que j'ai déjà plus de 3500 ligne (commentaire compris) je peux pas me permettre de tout refaire ... surtout que je pense bientôt atteindre la fin de mon application après quelque petite amélioration qui sont à ma porter

[Pol63]

ca dépend de but de cette appli
si c'est pour apprendre le vb.net, recommencer différemment peut être très bénéfique (enfin quelques mois après avoir fini pour attendre d'en avoir appris plus)

[zitoune31]

mauvaise idée

si tu veux rester sur de la programmation de base, autant coder un fichier texte

system.io.file.writealltext
system.io.file.readalltext (ou readalllines)
split permet de découper
si par exemple ton fichier ressemble à ca :
machin=true
bidule=false
split sur = te permettra d'avoir machin et true

désoler je comprend pas

le but de mon appli es simplement de faire mes compte
j'ai dans l'objectif une fois fini d'essayer de raccourcir le code quel contient car j'imagine bien que j'écris et ré-écris trop de fois pour rien ...

[Pol63]

si le but de l'appli est de faire tes comptes, il y a dejà des centaines d'appli qui le font très bien

[zitoune31]

si le but de l'appli est de faire tes comptes, il y a dejà des centaines d'appli qui le font très bien

Wai mais il es toujours plus plaisant de le faire sur ce que l'on créer soit même et ceux même si les autre peuvent être meilleurs

Bref voici la solution a mon problème grâce à un membre du chat qui évoquer :
[LittleWhite]: zitoune31> Bon, il faut faire un tet, pour savoir si la checkbox est activé ou pas
20:42 [LittleWhite]: zitoune31> Si le texte fonctionne (VRAI) on écrit 1, dans le fichier, sinon on écrit zero
20:42 [LittleWhite]: on redémarrage de l'application, le fichier est lu
20:43 [LittleWhite]: si on lit 1, alors la checkbox doit être activé (SetEnabled()) sinon, on ne fait rien
20:43 [LittleWhite]: voilà

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
Dim Check As String
Dim EnregistrCheck As String
 
 
 
    Private Sub BtCheckBox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtCheckBoxEnregistr.Click
        EnregistrCheck = "D:\Check.txt"
        MsgBox(EnregistrCheck)
        FSys = CreateObject("Scripting.FileSystemObject")
        Monfic = FSys.CreateTextFile(EnregistrCheck)
        If CheckBox1.Checked = True Then
            With Check
                Monfic.writeLine("1")
            End With
        Else
            With Check
                Monfic.writeLine("0")
            End With
        End If
        Monfic.close()
    End Sub
    Private Sub BtCheckBoxLecture_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtCheckBoxLecture.Click
        EnregistrCheck = "D:\Check.txt"
        MsgBox(EnregistrCheck)
        Dim MyLines() As String = {}
        MyLines = File.ReadAllLines(EnregistrCheck)
        TextBoxCheckTemp.Text = MyLines(0)
        If TextBoxCheckTemp.Text = "1" Then
            CheckBox1.Checked = True
        Else
            CheckBox1.Checked = False
        End If
    End Sub