bonjour , je suis en train de developper une interface en vb.net qui donne à l'utilisateur la main de copier coller un texte dans un textbox et puis cliquer sur un bouton pour tester si le texte collé contient des erreurs ou non .et faire les traitement necessaires .J'ai fait un traitement erroné dans ce code , peut etre dans Next j'ai pas su quoi ecrire .. l'essentiel si je clique maintenant sur le bouton test l'interface se ferme directement .c'est tres urgent merci
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
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click indic0 = False indic1 = False indic2 = False indic3 = False indic4 = False indic5 = False indic6 = False indic7 = False LabelDCT0.Visible = False LabelDCT1.Visible = False LabelDCT2.Visible = False LabelDCT3.Visible = False LabelDCT4.Visible = False LabelDCT5.Visible = False LabelDCT6.Visible = False LabelDCT7.Visible = False LabelDCT71.Visible = False LabelDCT01.Visible = False LabelDCT21.Visible = False LabelDCT31.Visible = False LabelDCT41.Visible = False LabelDCT51.Visible = False LabelDCT61.Visible = False LabelDCT11.Visible = False For Each strLine As String In TextBox1.Text.Split(vbNewLine) If strLine.Contains(SOC_Erreur0) Then indic0 = False End If If strLine.Contains(SOC_Erreur00) Then indic0 = True End If If strLine.Contains(SOC_Erreur01) Then indic1 = True End If If strLine.Contains(SOC_Erreur02) Then indic2 = 0 End If If strLine.Contains(SOC_Erreur03) Then indic3 = True End If If strLine.Contains(SOC_Erreur04) Then indic4 = True End If If strLine.Contains(SOC_Erreur05) Then indic5 = True End If If strLine.Contains(SOC_Erreur06) Then indic6 = True End If If strLine.Contains(SOC_Erreur07) Then indic7 = True End If 'ERROR TYPE 3: If strLine.Contains(SOC_Erreur10) Then indic0 = True End If If strLine.Contains(SOC_Erreur11) Then indic1 = True End If If strLine.Contains(SOC_Erreur12) Then indic2 = True End If If strLine.Contains(SOC_Erreur13) Then indic3 = True End If If strLine.Contains(SOC_Erreur14) Then indic4 = True End If If strLine.Contains(SOC_Erreur15) Then indic5 = True End If If strLine.Contains(SOC_Erreur16) Then indic6 = True End If If strLine.Contains(SOC_Erreur17) Then indic7 = True End If 'ERROR TYPE 4: If strLine.Contains(SOC_Erreur20) Then indic0 = True End If If strLine.Contains(SOC_Erreur21) Then indic1 = True End If If strLine.Contains(SOC_Erreur22) Then indic2 = False End If If strLine.Contains(SOC_Erreur23) Then indic3 = True End If If strLine.Contains(SOC_Erreur24) Then indic4 = True End If If strLine.Contains(SOC_Erreur25) Then indic5 = True End If If strLine.Contains(SOC_Erreur26) Then indic6 = True End If If strLine.Contains(SOC_Erreur27) Then indic7 = True End If 'ERROR TYPE5 If strLine.Contains(SOC_Erreur30) Then indic0 = True End If If strLine.Contains(SOC_Erreur31) Then indic1 = True End If If strLine.Contains(SOC_Erreur32) Then indic2 = True End If If strLine.Contains(SOC_Erreur33) Then indic3 = True End If If strLine.Contains(SOC_Erreur34) Then indic4 = True End If If strLine.Contains(SOC_Erreur35) Then indic5 = True End If If strLine.Contains(SOC_Erreur36) Then indic6 = True End If If strLine.Contains(SOC_Erreur37) Then indic7 = True End If Next End End Sub
Partager