salut, je veux charger des information sur des etudiant avec l'utilisation d'une class etudiant, et je veux ajouter le nom et le prenom des etudiant dans une listbox en cliquant sur le bouton ajouter, et quand je fais une double click sur un etudiant la liste permet de charger ces information qui lui correspond 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
 
Public Class Etudiant
    Public nom As String
    Public prénom As String
    Public dat As String
    Public sexe As Boolean
    Public fr, ang, all As Boolean
    Public Sub New() ' constructeur
 
    End Sub
 
end Class
Public Class Form1
       Dim c As Control
 
    Private Sub Quitter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        End
    End Sub
 
    Private Sub Nouveau_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click 'Initialise l'interface et vide les champs
        Dim n As Etudiant
        For Each c In GroupBox2.Controls
 
            If TypeOf c Is TextBox Or TypeOf c Is ComboBox Then
                c.Text = ""
            ElseIf TypeOf c Is CheckBox Then
                CType(c, CheckBox).Checked = False
            ElseIf TypeOf c Is RadioButton Then
                CType(c, RadioButton).Checked = False
            End If
        Next
 
    End Sub
 
    Private Sub Ajouter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
        Dim a As New Etudiant
        a.nom = TextBox1.Text 'enregitrement des infos des étudiants
        a.prénom = TextBox2.Text
        a.dat = TextBox3.Text
        ListBox1.Items.Add(TextBox1.Text & " " & TextBox2.Text)
 
   End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'initialisation des contrôles
        Dim i As Integer
        For i = 1980 To 2010
            ComboBox1.Items.Add(i)
        Next
        ComboBox2.Items.Add("Sc.Math")
        ComboBox2.Items.Add("Sc.Exp")
        ComboBox2.Items.Add("Lettre")
 
    End Sub
 
 
End Class
Mon probleme est dans le bouton ajouter et dans l'evenement double click.merci de vos réponse