cs_OXyGN
Messages postés6Date d'inscriptionmercredi 26 décembre 2001StatutMembreDernière intervention27 mars 2003
-
26 mars 2003 à 18:43
cs_Ivresse
Messages postés2Date d'inscriptionmardi 6 juillet 2004StatutMembreDernière intervention 7 juillet 2004
-
7 juil. 2004 à 10:02
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
cs_Ivresse
Messages postés2Date d'inscriptionmardi 6 juillet 2004StatutMembreDernière intervention 7 juillet 2004 7 juil. 2004 à 10:02
C'est l'informatique qui est source d'ivresse.
Tu devrais mettre ton code à jour. On peut préférer un code à celui d'un autre. Nous avons tous notre style.
Bon courage.
cs_moustachu
Messages postés1079Date d'inscriptionjeudi 14 novembre 2002StatutMembreDernière intervention 1 janvier 2012 7 juil. 2004 à 09:22
Ivresse tu vas me faire tourner la tête !!
Tu as tout à fait raison, mon tort est de ne pas avoir mis à jour mon code source depuis... Vu les contrôles du même style que d'autres ont posté depuis..
Merci beaucoup pour ton commentaire !
Moustachu
cs_Ivresse
Messages postés2Date d'inscriptionmardi 6 juillet 2004StatutMembreDernière intervention 7 juillet 2004 6 juil. 2004 à 21:40
J'aime beaucoup.
Il faut juste harmoniser la situation pour le cas où vous fournissez une valeur avec un séparateur décimal différent de celui configuré :
'--Relatives au TextBox
Public Property Let Text(ByVal New_Text As String)
If m_TypeBox <> Normal And m_DecimalPoint Point Then New_Text Replace(New_Text, ",", ".")
txtBox.Text() = New_Text
PropertyChanged "Text"
End Property
Pardon à l'auteur, c'est toujours plus facile de proposer une amélioration...
Cordialement.
cs_OXyGN
Messages postés6Date d'inscriptionmercredi 26 décembre 2001StatutMembreDernière intervention27 mars 2003 27 mars 2003 à 13:30
Pas grave...tu as oublié les évènements relatifs à une textbox comme OnChange, OnClick, OnKeyPress, etc...
cs_moustachu
Messages postés1079Date d'inscriptionjeudi 14 novembre 2002StatutMembreDernière intervention 1 janvier 2012 27 mars 2003 à 09:41
Désolé pour l'oubli, j'ai fourni une mauvaise version.
JE corrige et j'update.
Quels évènements ais-je oublié?
cs_OXyGN
Messages postés6Date d'inscriptionmercredi 26 décembre 2001StatutMembreDernière intervention27 mars 2003 26 mars 2003 à 19:41
J'ai bien l'impression que tu a oublié les évènements de ton control...
cs_OXyGN
Messages postés6Date d'inscriptionmercredi 26 décembre 2001StatutMembreDernière intervention27 mars 2003 26 mars 2003 à 19:27
Bon je viens de tester et j'ai une erreur :
'Affectation à une constante non-autorisée'
pour la ligne Set cm_defFont = Ambient.Font ...
Le mieux serait que tu compile ton *.ocx pour l'utilisation. Comme cela, si elle marche chez toi ben yaura plus de chances pour qu'il en soit de même chez nous :)=
cs_OXyGN
Messages postés6Date d'inscriptionmercredi 26 décembre 2001StatutMembreDernière intervention27 mars 2003 26 mars 2003 à 18:44
Excellente initiative...j'en avais précisement besoin pour un de mes progs. Merci a toi. Un petit 10 pour te motiver :)=
cs_OXyGN
Messages postés6Date d'inscriptionmercredi 26 décembre 2001StatutMembreDernière intervention27 mars 2003 26 mars 2003 à 18:43
Excellente initiative...j'en avais précisement besoin pour un de mes progs. Merci a toi. Un petit 10 pour te motiver :)=
7 juil. 2004 à 10:02
Tu devrais mettre ton code à jour. On peut préférer un code à celui d'un autre. Nous avons tous notre style.
Bon courage.
7 juil. 2004 à 09:22
Tu as tout à fait raison, mon tort est de ne pas avoir mis à jour mon code source depuis... Vu les contrôles du même style que d'autres ont posté depuis..
Merci beaucoup pour ton commentaire !
Moustachu
6 juil. 2004 à 21:40
Il faut juste harmoniser la situation pour le cas où vous fournissez une valeur avec un séparateur décimal différent de celui configuré :
'--Relatives au TextBox
Public Property Let Text(ByVal New_Text As String)
If m_TypeBox <> Normal And m_DecimalPoint Point Then New_Text Replace(New_Text, ",", ".")
txtBox.Text() = New_Text
PropertyChanged "Text"
End Property
Pardon à l'auteur, c'est toujours plus facile de proposer une amélioration...
Cordialement.
27 mars 2003 à 13:30
27 mars 2003 à 09:41
JE corrige et j'update.
Quels évènements ais-je oublié?
26 mars 2003 à 19:41
26 mars 2003 à 19:27
'Affectation à une constante non-autorisée'
pour la ligne Set cm_defFont = Ambient.Font ...
Le mieux serait que tu compile ton *.ocx pour l'utilisation. Comme cela, si elle marche chez toi ben yaura plus de chances pour qu'il en soit de même chez nous :)=
26 mars 2003 à 18:44
26 mars 2003 à 18:43