Un exemple de module de classe d'objets ayant les propriétés index, Plateau_Gauche et Plateau_Droit et les méthodes Définir, Afficher et Coucou. Un constructeur et un destructeur (ce dernier ne joue aucun rôle). C'est rudimentaire mais le principe y est.
Une propriété publique :
Public index As Integer
Deux propriétés privées :
Private Plateau_Gauche As Double
Private Plateau_Droit As Double
Un constructeur:
Private Sub Class_Initialize()
Dim Message, Title, Default, MyValue
On Error GoTo Gestion_Erreurs
Message = "Entrez une valeur pour le plateau gauche"
Title = "Plateau gauche" ' Définit le titre.
Plateau_Gauche = InputBox(Message, Title)
Message = "Entrez une valeur pour le plateau droit"
Title = "Plateau droit" ' Définit le titre.
Plateau_Droit = InputBox(Message, Title)
Numero = Numero + 1
index = Numero
Exit Sub
Gestion_Erreurs:
Select Case Err.Number
Case 13
MsgBox "Vous devez saisir un nombre réel!"
Resume
Case Else
MsgBox Err.Description
End Select
End Sub
Un Destructeur:
Private Sub Class_Terminate()
End Sub
Une méthode publique:
Public Sub Definir()
Dim Message, Title, Default, MyValue
On Error GoTo Gestion_Erreurs
Message = "Entrez une valeur pour le plateau gauche"
Title = "Plateau gauche" ' Définit le titre.
Plateau_Gauche = InputBox(Message, Title)
Message = "Entrez une valeur pour le plateau droit"
Title = "Plateau droit" ' Définit le titre.
Plateau_Droit = InputBox(Message, Title)
Exit Sub
Gestion_Erreurs:
Select Case Err.Number
Case 13
MsgBox "Vous devez saisir un nombre réel!"
Resume
Case Else
MsgBox Err.Description
End Select
End Sub
Une autre méthode publique:
Public Sub Afficher()
MsgBox "Plateau gauche: " & Plateau_Gauche & Chr(13) & "Plateau droit: " & Plateau_Droit
End Sub
Public Sub Ecart()
Dim Ecart As Double
Ecart = Plateau_Gauche - Plateau_Droit
MsgBox "L'écart entre le plateau gauche et le plateau droit est de:" & Ecart
End Sub
Encore une autre méthode publique:
Public Sub Coucou()
MsgBox "Coucou!"
End Sub
Voilà! En espérant que cela t'aidera !
