cs_petchy710
Messages postés jeudi 20 février 2003Date d'inscription
19 mai 2015
Dernière intervention
-
22 janv. 2009 à 09:34 - Dernière réponse : cs_petchy710
Messages postés jeudi 20 février 2003Date d'inscription
19 mai 2015
Dernière intervention
- 22 janv. 2009 à 11:40
bonjour
j'ai se code dans un textbox pour calculer un prix.
mais comment faire le calcul meme si un des textbox et vide,car la ça me fait des erreurs
de calcul
PrivateSub txbPrixR‚el_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbPrixR‚el.TextlblPrixtot.Text = CDbl(txbPrixR‚el.Text) - CDbl(txbCommune.Text) - CDbl(txbAutreCE.Text) - CDbl(txbCafBV.Text) - CDbl(txbMSA.Text) & " ?"
cs_stevbzh7
Messages postés mercredi 10 octobre 2007Date d'inscription
3 février 2009
Dernière intervention -22 janv. 2009 à 10:34
+3
Utile
Il me semble que le principal problème soit que ta condition s'active lorsque le texte de ton textbox change, or ici tu le laisse vide. Malgré tout si cela marche, je vois deux solution:
- tu met 0 en valeur par défaut de ton textbox
- contrôle : if tonTextBox .text is nothing (ou tonTextBox.text = "") then
tonTextBox.text = 0
end if
dernière chose: vérifie que tu puisse calculer à partir de valeur "string", si ce n'est pas le cas Float est ton ami !
Stevbzh
Cette réponse vous a-t-elle aidé ?Merci pour votre retour.
N'oubliez pas de prendre quelques secondes pour remercier l'auteur : Merci pour votre retour.
Nous sommes désolés. Notre objectif est de vous donner la meilleure réponse possible.
PCPT13368
Messages postés lundi 13 décembre 2004Date d'inscription
3 février 2018
Dernière intervention -22 janv. 2009 à 10:49
0
Utile
salut,
CDBL ne fonctionne pas sur un vide, seul VAL sait le faire mais ne prend pas les décimaux
tu peux donc te faire ta fonction perso
Function mCDbl(ByRef oTBox As TextBox) As Double
If (oTBox Is Nothing) OrElse (oTBox.Text.Length = 0) Then
Return 0.0#
Else
Return Convert.ToDouble(oTBox.Text)
End If
End Function
