Crée de nouvelle proprietee

Soyez le premier à donner votre avis sur cette source.

Vue 2 897 fois - Téléchargée 228 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
erreurs404 Messages postés 117 Date d'inscription lundi 23 octobre 2000 Statut Membre Dernière intervention 12 août 2009
15 juil. 2002 à 15:16
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 ?
cs_steven007 Messages postés 150 Date d'inscription jeudi 24 janvier 2002 Statut Membre Dernière intervention 27 avril 2007
28 juin 2002 à 19:25
erreur404> comment tu sais que je fais un client, je l'ai un peu oublier ces temps ci caramail m'interresse plus tellement ...
cs_OphidiaN Messages postés 235 Date d'inscription mercredi 4 avril 2001 Statut Membre Dernière intervention 9 novembre 2007
27 juin 2002 à 11:29
c le principe meme des ocx ....
erreurs404 Messages postés 117 Date d'inscription lundi 23 octobre 2000 Statut Membre Dernière intervention 12 août 2009
27 juin 2002 à 09:49
Très pratique Steven !

tu t'en sert pour ton client Caramail ? ou bien ça n'existe plus tout ça ?
AtomikTopinambour Messages postés 17 Date d'inscription mercredi 26 juin 2002 Statut Membre Dernière intervention 27 juin 2002
26 juin 2002 à 16:59
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.