[Débutant] Charger une valeur lors de l'ouverture de l'interface

Bonjour,

Désolé d'avance si je ne suis pas au bonne endroit mais j'ai un problème lors du chargement de mon interface. J'aimerais qu'elle charge des valeurs stocké dans un fichier texte dans mes textbox mais cela ne fonctionne pas. J'ai sans doute fait une erreur quelque part mais je n'arrive pas à la trouvé.
A titre d'indication, TBZT1 à TBZT20 et TBZTS1 à TBZTS10 sont le Name de mes textbox
Merci de votre aide

Code:

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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
 
 Private Sub BizerbaTestEti_Load(sender As Object, e As EventArgs) Handles Me.Load
        Dim Tableau() As String = GetZoneTexte("D:\User\Admin\Zone texte.txt")
 
        Z1 = Tableau(1)
        Z2 = Tableau(4)
        Z3 = Tableau(7)
        Z4 = Tableau(10)
        Z5 = Tableau(13)
        Z6 = Tableau(16)
        Z7 = Tableau(19)
        Z8 = Tableau(22)
        Z9 = Tableau(25)
        Z10 = Tableau(28)
        Z11 = Tableau(31)
        Z12 = Tableau(34)
        Z13 = Tableau(37)
        Z14 = Tableau(40)
        Z15 = Tableau(43)
        Z16 = Tableau(46)
        Z17 = Tableau(49)
        Z18 = Tableau(52)
        Z19 = Tableau(55)
        Z20 = Tableau(58)
 
        Zs1 = Tableau(61)
        Zs2 = Tableau(64)
        Zs3 = Tableau(67)
        Zs4 = Tableau(70)
        Zs5 = Tableau(73)
        Zs6 = Tableau(76)
        Zs7 = Tableau(79)
        Zs8 = Tableau(82)
        Zs9 = Tableau(85)
        Zs10 = Tableau(88)
 
        Me.TBZT1.Text = Z1
        Me.TBZT2.Text = Z2
        Me.TBZT3.Text = Z3
        Me.TBZT4.Text = Z4
        Me.TBZT5.Text = Z5
        Me.TBZT6.Text = Z6
        Me.TBZT7.Text = Z7
        Me.TBZT8.Text = Z8
        Me.TBZT9.Text = Z9
        Me.TBZT10.Text = Z10
        Me.TBZT11.Text = Z11
        Me.TBZT12.Text = Z12
        Me.TBZT13.Text = Z13
        Me.TBZT14.Text = Z13
        Me.TBZT15.Text = Z15
        Me.TBZT16.Text = Z16
        Me.TBZT17.Text = Z17
        Me.TBZT18.Text = Z18
        Me.TBZT19.Text = Z19
        Me.TBZT20.Text = Z20
 
        Me.TBZTS1.Text = Zs1
        Me.TBZTS2.Text = Zs2
        Me.TBZTS3.Text = Zs3
        Me.TBZTS4.Text = Zs4
        Me.TBZTS5.Text = Zs5
        Me.TBZTS6.Text = Zs6
        Me.TBZTS7.Text = Zs7
        Me.TBZTS8.Text = Zs8
        Me.TBZTS9.Text = Zs9
        Me.TBZTS10.Text = Zs10
 
    End Sub

Pour la fonction GetZoneTexte():

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Public Function GetZoneTexte(ByVal Fichier As String)
 
 
        Dim LecteurFichier As New System.IO.StreamReader(Fichier)
        Dim Tableau(90) As String
        Dim i As Integer = 0
 
        While i < 90
 
            Tableau(i) = LecteurFichier.ReadLine.ToString
            i = i + 1
 
        End While
 
 
 
 
        LecteurFichier.Close()
 
        Return Tableau
 
    End Function