Partager via

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

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

Remarque

Votre ordinateur peut afficher différents noms ou emplacements pour certains des éléments de l’interface utilisateur Visual Studio dans les instructions suivantes. L’édition Visual Studio que vous avez et les paramètres que vous utilisez déterminent ces éléments. Pour plus d’informations, consultez Personnaliser 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

    Remarque

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

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

    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 ceux 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 Sub New constructeur 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 pour tester la classe

  1. Modifiez le formulaire de démarrage en mode Création 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 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 appeler la procédure de test. Il affiche un message indiquant que l’original UserName est « MOORE, BOBBY », car la procédure a appelé la Capitalize méthode de l’objet.

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

Voir aussi