ajouter et charger des enregistrement à partir d'une class
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:
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
