Procédure pas à pas : définition des classes (Visual Basic)

Cette procédure pas à pas montre comment définir des classes que vous pouvez ensuite utiliser pour créer des objets. Elle montre également comment ajouter des propriétés et des méthodes à la nouvelle classe et illustre l'initialisation d'un objet.

Pour définir une classe

1. Créez un projet en cliquant sur Nouveau projet dans le menu Fichier. La boîte de dialogue Nouveau projet s'affiche.

2. Sélectionnez Application Windows dans la liste des modèles de projet Visual Basic pour afficher le nouveau projet.

3. Ajoutez une nouvelle classe au projet en cliquant sur Ajouter une classe dans le menu Projet. La boîte de dialogue Ajouter un nouvel élément s'affiche alors.

4. Sélectionnez le modèle Classe.

5. Nommez la nouvelle classe UserNameInfo.vb, puis cliquez sur Ajouter pour afficher le code de la nouvelle classe.

   Public Class UserNameInfo
   End Class
   

   Notes

   Vous pouvez utiliser l'éditeur de code de Visual Basic pour ajouter une classe à votre formulaire de démarrage en tapant le mot clé Class, suivi du nom de la nouvelle classe. L'éditeur de code fournit une instruction End Class correspondante.

6. Définissez un champ privé pour la classe en ajoutant le code suivant entre les instructions Class et End Class :

   Private userNameValue As String
   

   La déclaration du champ comme Private signifie qu'il peut être utilisé uniquement dans la classe. Vous pouvez rendre les champs disponibles à partir de l'extérieur d'une classe en utilisant des modificateurs d'accès qui fournissent un accès plus large, tel que l'accès Public. Pour plus d'informations, consultez Niveaux d'accès dans Visual Basic.

7. Définissez une propriété pour la classe en ajoutant le code suivant :

   Public Property UserName() As String
       Get
           ' Gets the property value.
           Return userNameValue
       End Get
       Set(ByVal Value As String)
           ' Sets the property value.
           userNameValue = Value
       End Set
   End Property
   

8. Définissez une méthode pour la classe en ajoutant le code suivant :

   Public Sub Capitalize()
       ' Capitalize the value of the property.
       userNameValue = UCase(userNameValue)
   End Sub
   

9. Définissez un constructeur paramétré pour la nouvelle classe en ajoutant une procédure nommée Sub New :

   Public Sub New(ByVal UserName As String)
       ' Set the property value.
       Me.UserName = UserName
   End Sub
   

   Le constructeur Sub New est appelé automatiquement lorsqu'un objet basé sur cette classe est créé. Ce constructeur définit la valeur du champ qui contient le nom d'utilisateur.

Pour créer un bouton permettant de tester la classe

1. Modifiez le formulaire de démarrage en mode design en cliquant avec le bouton droit sur son nom dans l'Explorateur de solutions, puis en cliquant sur Concepteur de vues. Par défaut, le formulaire de démarrage des projets d'application Windows est intitulé Form1.vb. Le formulaire principal apparaît ensuite.

2. Ajoutez un bouton au formulaire principal et double-cliquez dessus pour afficher le code du gestionnaire d'événements Button1_Click. Ajoutez le code suivant pour appeler la procédure de test :

   ' Create an instance of the class.
   Dim user As New UserNameInfo("Moore, Bobby")
   ' Capitalize the value of the property.
   user.Capitalize()
   ' Display the value of the property.
   MsgBox("The original UserName is: " & user.UserName)
   ' Change the value of the property.
   user.UserName = "Worden, Joe"
   ' Redisplay the value of the property.
   MsgBox("The new UserName is: " & user.UserName)
   

Pour exécuter l'application

1. Exécutez l'application en appuyant sur F5. Cliquez sur le bouton situé sur votre formulaire pour appeler la procédure de test. Elle affiche un message indiquant que le UserName d'origine est « MOORE, BOBBY », parce que la procédure a appelé la méthode Capitalize de l'objet.

2. Cliquez sur OK pour fermer le message. La procédure Button1 Click modifie la valeur de la propriété UserName et affiche un message qui indique que la nouvelle valeur de UserName est « Worden, Joe ».

Voir aussi

Concepts

Programmation orientée objet (C# et Visual Basic)

Autres ressources

Objets et classes en Visual Basic