Procédure pas à pas : définition de classes

Mise à jour : novembre 2007

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.

xtka85tz.alert_note(fr-fr,VS.90).gifRemarque :

Selon vos paramètres actifs ou votre édition, les boîtes de dialogue et les commandes de menu que vous voyez peuvent différer de celles qui sont décrites dans l'aide. Pour modifier vos paramètres, cliquez sur Importation et exportation de paramètres dans le menu Outils. Pour plus d'informations, consultez Paramètres Visual Studio.

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
    
    
    
    xtka85tz.alert_note(fr-fr,VS.90).gifRemarque :

    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 ».

Ajouts de la communauté

Afficher: