Partager via

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

  • Article

Cette procédure pas à pas montre comment définir des classes, que vous pourrez ensuite utiliser pour créer des objets. Elle vous montrera également comment ajouter des propriétés et des méthodes à la nouvelle classe et montre comment initialiser un objet.

Notes

Il est possible que pour certains des éléments de l'interface utilisateur de Visual Studio, votre ordinateur affiche des noms ou des emplacements différents de ceux indiqués dans les instructions suivantes. L'édition de Visual Studio dont vous disposez et les paramètres que vous utilisez déterminent ces éléments. Pour plus d’informations, consultez Personnalisation de l’IDE.

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 apparaît.

  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.

  4. Sélectionnez le modèle de 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 Visual Basic Code Editor 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 pour vous.

  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

    Déclarer le champ comme Private signifie qu’il ne peut être utilisé que dans la classe. Vous pouvez rendre les champs disponibles en dehors d’une classe à l’aide de modificateurs d’accès tels que Public, qui fournissent plus d’accès. Pour plus d’informations, consultez Niveaux d’accès en 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étrable 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 servant à tester la classe

  1. Modifiez le formulaire de démarrage en mode Création en faisant un clic droit sur son nom dans Explorateur de solutions, puis en cliquant sur Concepteur de vues. Par défaut, le formulaire de démarrage pour les projets d’application Windows est nommé Form1.vb. Le formulaire principal s’affiche ensuite.

  2. Ajoutez un bouton au formulaire principal et double-cliquez dessus pour afficher le code du Button1_Click gestionnaire d’événements. 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 votre application

  1. Exécutez votre application en appuyant sur F5. Cliquez sur le bouton du formulaire pour lancer la procédure de test. Un message s’affiche, indiquant que l’original UserName est « MOORE, BOBBY », car la procédure a appelé la méthode de l’objet Capitalize.

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

Voir aussi