Crée de nouvelle proprietee

Télécharger le projet
Commenter

Description

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
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_steven007)