La propriété par défaut de construire en Visual Basic est une structure de classe ou de données qui est accessible à votre programme sans préciser qu'elle . Accès à une propriété de classe normalement exige que la déclaration du programme préciser le nom de la propriété . Par exemple, pour accéder à la propriété myMessage dans la classe SendMessage , la déclaration serait écrit comme SendMessage.myMessage . Si myMessage est déclaré comme une propriété par défaut , le même appel est effectué sans préciser le nom de la propriété , comme SendMessage ( someMessage ) . Cette construction doit être utilisé avec parcimonie car il a le potentiel pour dérouter les utilisateurs de votre classe qui ne sont pas familiers avec les outils par défaut et l'utilisation. Instructions
1

déclarer la propriété dans le cadre de la définition de votre classe comme vous le feriez normalement. La propriété doit avoir accès au public , de sorte que vous ne devez pas utiliser le mot-clé partagée ou privée dans la déclaration. À titre d'exemple , le XXXX propriété est déclarée comme suit :

myMessageString de la propriété As String
2

Ajoutez le mot-clé par défaut de la déclaration, qui précède le mot de la propriété . L' exemple d'instruction est modifié comme suit:

défaut myMessageString de la propriété As String
3

Ajouter un minimum d'un paramètre à la déclaration de propriété . Une propriété par défaut doit avoir au moins un argument. Ajouter une liste d'arguments à l'exemple comme suit :

défaut myMessageString de propriété ( ByVal index As Integer ) As String
4

Ecrire procédures Get et Set de propriété pour permettre l'accès aux données stockées valeurs . Les procédures sont rédigées entre la signature de la propriété et l' état ​​des biens End. La procédure Get est appelée lorsque la valeur de la propriété est récupérée . La procédure Set stocke les valeurs reçues par la propriété . La procédure Get pour l'exemple est très simple , la lecture :

Obtenir

myTextStrings de retour (indice)

Fin Obtenir

L'ensemble est aussi simple que il stocke les valeurs d' un tableau de classe :

Set

myTextStrings (indice) = Valeur

Fin Set
< br >