bonjour,
j'ai plusieurs données que l'utilisateur insère que je veux enregistrer pour leur faire appel une autre fois.
voici ce que j'ai fait pour le bouton enregistrer:
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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
tabdonnees(n, 0) = CDbl(TextBox1.Text)
        tabdonnees(n, 1) = CDbl(TextBox2.Text)
        tabdonnees(n, 2) = CDbl(TextBox3.Text)
        tabdonnees(n, 3) = CDbl(TextBox4.Text)
        tabdonnees(n, 4) = CDbl(TextBox5.Text)
        tabdonnees(n, 5) = CDbl(TextBox6.Text)
        tabdonnees(n, 6) = CDbl(TextBox62.Text)
        tabdonnees(n, 7) = CDbl(TextBox61.Text)
        tabdonnees(n, 8) = CDbl(TextBox60.Text)
        tabdonnees(n, 9) = CDbl(TextBox59.Text)
        tabdonnees(n, 10) = CDbl(TextBox58.Text)
        tabdonnees(n, 11) = CDbl(TextBox57.Text)
        tabdonnees(n, 12) = CDbl(TextBox56.Text)
        tabdonnees(n, 13) = CDbl(TextBox53.Text)
        tabdonnees(n, 14) = CDbl(TextBox32.Text)
        tabdonnees(n, 15) = CDbl(TextBox24.Text)
        tabdonnees(n, 16) = CDbl(TextBox65.Text)
        tabdonnees(n, 17) = CDbl(TextBox64.Text)
        tabdonnees(n, 18) = CDbl(TextBox63.Text)
        If RadioButton1.Checked = True Then
            tabdonnees(n, 19) = True
        ElseIf RadioButton2.Checked = True Then
            tabdonnees(n, 20) = True
        ElseIf RadioButton3.Checked = True Then
            tabdonnees(n, 21) = True
        End If
        n += 1
        FileOpen(1, "C:/TP Iaa/données.txt", OpenMode.Output)
        For p As Integer = 0 To n - 1
            Write(1, tabdonnees(p, 0))
            Write(1, tabdonnees(p, 1))
            Write(1, tabdonnees(p, 2))
            Write(1, tabdonnees(p, 3))
            Write(1, tabdonnees(p, 4))
            Write(1, tabdonnees(p, 5))
            Write(1, tabdonnees(p, 6))
            Write(1, tabdonnees(p, 7))
            Write(1, tabdonnees(p, 8))
            Write(1, tabdonnees(p, 9))
            Write(1, tabdonnees(p, 10))
            Write(1, tabdonnees(p, 11))
            Write(1, tabdonnees(p, 12))
            Write(1, tabdonnees(p, 13))
            Write(1, tabdonnees(p, 14))
            Write(1, tabdonnees(p, 15))
            Write(1, tabdonnees(p, 16))
            Write(1, tabdonnees(p, 17))
            Write(1, tabdonnees(p, 18))
        Next
        FileClose()
        MessageBox.Show("Enregistrement éffectué")
pour le bouton ouvrir:
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
Dim R As Integer
            R = InputBox("entrer le numéro du fichier enregistré: " & ("entre 0 et ") & n - 1)
            TextBox1.Text = CStr(tabdonnees(R, 0))
            TextBox2.Text = CStr(tabdonnees(R, 1))
            TextBox3.Text = CStr(tabdonnees(R, 2))
            TextBox4.Text = CStr(tabdonnees(R, 3))
            TextBox5.Text = CStr(tabdonnees(R, 4))
            TextBox6.Text = CStr(tabdonnees(R, 5))
            TextBox62.Text = CStr(tabdonnees(R, 6))
            TextBox61.Text = CStr(tabdonnees(R, 7))
            TextBox60.Text = CStr(tabdonnees(R, 8))
            TextBox59.Text = CStr(tabdonnees(R, 9))
            TextBox58.Text = CStr(tabdonnees(R, 10))
            TextBox57.Text = CStr(tabdonnees(R, 11))
            TextBox56.Text = CStr(tabdonnees(R, 12))
            TextBox53.Text = CStr(tabdonnees(R, 13))
            TextBox32.Text = CStr(tabdonnees(R, 14))
            TextBox24.Text = CStr(tabdonnees(R, 15))
            TextBox65.Text = CStr(tabdonnees(R, 16))
            TextBox64.Text = CStr(tabdonnees(R, 17))
            TextBox63.Text = CStr(tabdonnees(R, 18))
            If tabdonnees(R, 19) = True Then
                RadioButton1.Checked = True
            ElseIf tabdonnees(R, 20) = True Then
                RadioButton2.Checked = True
            ElseIf tabdonnees(R, 21) = True Then
                RadioButton3.Checked = True
            End If
lorsque je les enregistre dans le tableau à partir duquel je les affiche par la suite, ça marche.
mais une fois je quitte l'application, je dois ressaisir les données. c'est pourquoi j'ai pensé à les enregistrer dans un fichier externe que je peux appeler à chaque instant. j'aimerais bien laisser à l'utilisateur le choix de l'endroit où il veut enregistrer le fichier.
j'ai besoin que les données s'affichent dans les textbox qui les conviennent.
veuillez bien m'aider à trouver une solution optimale à ce problème
merci de votre aide et de votre compréhension.