Crée de nouvelle proprietee

Soyez le premier à donner votre avis sur cette source.

Vue 2 609 fois - Téléchargée 218 fois

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

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
117
Date d'inscription
lundi 23 octobre 2000
Statut
Membre
Dernière intervention
12 août 2009

je sais que tu fais un client ... car je suis un ancien de multi ... créateur de client js ... tu t'intéresse à quoi maintenant ?
Messages postés
150
Date d'inscription
jeudi 24 janvier 2002
Statut
Membre
Dernière intervention
27 avril 2007

erreur404> comment tu sais que je fais un client, je l'ai un peu oublier ces temps ci caramail m'interresse plus tellement ...
Messages postés
235
Date d'inscription
mercredi 4 avril 2001
Statut
Membre
Dernière intervention
9 novembre 2007

c le principe meme des ocx ....
Messages postés
117
Date d'inscription
lundi 23 octobre 2000
Statut
Membre
Dernière intervention
12 août 2009

Très pratique Steven !

tu t'en sert pour ton client Caramail ? ou bien ça n'existe plus tout ça ?
Messages postés
17
Date d'inscription
mercredi 26 juin 2002
Statut
Membre
Dernière intervention
27 juin 2002

Et bien si la lune est jaune c'est signe de vent ! EEEEHHHHHH oui !
Bon aller j'arrête tout le monde s'en fout, moi le premier.
Afficher les 12 commentaires

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.