créer de nouvelle propriété
Source / Exemple :
'*************************************
'******créer nouvelle propriétés******
'****** par steven007 ****************
'****** 23/06/2002 02h52 *************
'****** steven007@caramail.com********
'****** www.steven007.fr.st***********
'*************************************
'Un exemple simple va permettre de montrer comment un objet
'visual basic, ici une feuille, peut être pourvu à l'aide d'une
'procédure property, d'une propriété personnalisée dont la valeur
'peut être lue et écrite comme une propriété normale.
'Pour ceux qui comme moi utilise la compil, placez juste une
'zone de texte, une étiquette, un contrôle incrément (updown) et
'un bouton de commande dans une feuille.
Option Explicit
'Déclare la variable de nombre d'astérisquesµ
'en Private, pour que les valeurs ne puissent
'être définies que par Property Let
Private intNombreAster As String
Private Sub Command1_Click()
Unload Me
End Sub
Public Property Get NombreAster() As Integer
'Renvoie la valeur de la propriété
NombreAster = intNombreAster
End Property
Public Property Let NombreAster(ByVal intNouvelleValeur As Integer)
'Positionne la propriété
intNombreAster = intNouvelleValeur
'Remplit la zone de texte avec le nombre d'astérisques
'correspondant à la valeur de la propriété
Text1.Text = String$(intNombreAster, "*")
End Property
Private Sub updown1_Change()
'Positionne la propriété à la valeur courante
'du contrôle incrément
'(Property Let)
NombreAster = updown1.Value
End Sub
Conclusion :
a ma connaissance y a pas de bug, si vous voulez faire un tour sur mon site le vl'a
http://www.steven007.fr.st
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.