Discussion :

[M.sarah1988]

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