Bonjour à tous,

Je développe une application et je suis bloqué au niveau du bouton annuler.
Voici mon code :

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
 
 
    Dim priotair_CheckedChange As CheckState
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter
 
    End Sub
 
    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pren.Click
        pren.Text = ""
 
    End Sub
 
    Private Sub TextBox8_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
 
    End Sub
 
    Private Sub Label8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles daterecep.Click
        daterecep.Text = ""
 
    End Sub
 
    Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged
 
    End Sub
 
    Private Sub GroupBox7_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox7.Enter
 
    End Sub
 
    Private Sub TextBox8_TextChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
 
    End Sub
 
    Private Sub GroupBox6_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs)
 
    End Sub
 
    Private Sub Labdr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Labdr.Click
        Labdr.Text = ""
 
 
    End Sub
 
    Private Sub codexp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles codexp.Click
        codexp.Text = ""
 
    End Sub
 
    Private Sub nom_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nom.Click
        nom.Text = ""
 
    End Sub
 
    Private Sub nmrespo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nmrespo.Click
        nmrespo.Text = ""
 
    End Sub
 
    Private Sub numDA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles numDA.Click
        numDA.Text = ""
 
    End Sub
 
    Private Sub datemi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles datemi.Click
        datemi.Text = ""
 
    End Sub
 
    Private Sub anomal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles anomal.Click
        anomal.Text = ""
 
    End Sub
 
    Private Sub daterecp2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles daterecp2.Click
        daterecp2.Text = ""
 
    End Sub
 
    Private Sub numMAJ_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles numMAJ.Click
        numMAJ.Text = ""
 
 
    End Sub
 
   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles annul.Click
        Dim 
 
        Labdr.Text = ""
        nom.Text = ""
        Labdr.Text = ""
        numMAJ.Text = ""
        daterecp2.Text = ""
        datemi.Text = ""
        nmrespo.Text = ""
                Case 
            End Select
    End Sub
    Private Sub priotair_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles priotair.CheckedChanged
        priotair_CheckedChange = CheckState.Checked
 
 
    End Sub
End Class