SnkVrt
Messages postés89Date d'inscriptionvendredi 16 mars 2007StatutMembreDernière intervention23 février 2010 16 nov. 2009 à 13:53
oui j'ai bien vu,
je vais mettre à jour illico...
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 16 nov. 2009 à 13:44
En Public, pardon ^^
SnkVrt
Messages postés89Date d'inscriptionvendredi 16 mars 2007StatutMembreDernière intervention23 février 2010 16 nov. 2009 à 13:34
Et ben figure toi que je le savais pas du tout.
J'ai toujours bètement copier ce modèle sans trop chercher à comprendre.
Je te remercie Renfield car il y a vraiment de quoi alléger le code.
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 16 nov. 2009 à 11:12
vu que tu n'y effectue aucune tache, toutes te propriétés ainsi faites :
Dim mPeutEtreDéplacée As Boolean
Public Property Let PeutEtreDéplacée(ByVal Val As Boolean)
mPeutEtreDéplacée = Val
End Property
Public Property Get PeutEtreDéplacée() As Boolean
PeutEtreDéplacée = mPeutEtreDéplacée
End Property
peuvent être changées en :
Private PeutEtreDéplacée As Boolean
sans risque.
SnkVrt
Messages postés89Date d'inscriptionvendredi 16 mars 2007StatutMembreDernière intervention23 février 2010 14 nov. 2009 à 13:00
Voilà le Zip.
J'ajoute qu'au départ, mon but n'était pas de publier mais de faire un jeu de belote, c'est pourquoi certaines propriétés peuvent paraitre superflues.
lolopere
Messages postés2Date d'inscriptionsamedi 16 avril 2005StatutMembreDernière intervention 2 octobre 2006 14 nov. 2009 à 11:42
Salut, est il possible d'avoir un zip ?
gisiacus
Messages postés3Date d'inscriptionmardi 1 juin 2004StatutMembreDernière intervention13 novembre 2009 13 nov. 2009 à 13:18
Merci Pour cet ocx
J'en connais qui vont etre content !!!!
Moi le premier ^^
16 nov. 2009 à 13:53
je vais mettre à jour illico...
16 nov. 2009 à 13:44
16 nov. 2009 à 13:34
J'ai toujours bètement copier ce modèle sans trop chercher à comprendre.
Je te remercie Renfield car il y a vraiment de quoi alléger le code.
16 nov. 2009 à 11:12
Dim mPeutEtreDéplacée As Boolean
Public Property Let PeutEtreDéplacée(ByVal Val As Boolean)
mPeutEtreDéplacée = Val
End Property
Public Property Get PeutEtreDéplacée() As Boolean
PeutEtreDéplacée = mPeutEtreDéplacée
End Property
peuvent être changées en :
Private PeutEtreDéplacée As Boolean
sans risque.
14 nov. 2009 à 13:00
J'ajoute qu'au départ, mon but n'était pas de publier mais de faire un jeu de belote, c'est pourquoi certaines propriétés peuvent paraitre superflues.
14 nov. 2009 à 11:42
13 nov. 2009 à 13:18
J'en connais qui vont etre content !!!!
Moi le premier ^^