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
Pour la fonction GetZoneTexte():
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
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
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 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
Partager