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 |
Partager