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
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 !
olicel
be non c pour gerer une truc perso.
J'ai une liste de personne avec chacun 45 attribut et je m'étais dit qu'une classe representant une personne ca serait vraiment bien venu :)
alors comment k'on fait ?
Liquid
Ouaip c'est faisable mais je sait pas encore comment
Par contre c'est fort peu probable que tu ne trouve pas ton compte avec ce que vb propose.
(References et composants du menu projet)
olicel
je fais di c++ mais la je dois faire un truc sous excel eet ca aurait tres pratique de créer un objet!
Comment peut-on faire ca et quel sont les syntaxe.
J'ai fouiller l'aide mais curieusement je n'ai rien trouvé :pt1cable:
