Comment utiliser TextBox1.Numeric = True ?

Bonjour,
Suite au forum
 http://www.vbfrance.com/infomsg_CALCUL-NUMERIQUE-AVEC-TEXBOX_915799.aspx
Comment on utilise cette fonction TextBox1.Numeric = True ?

Je l'ai trouvé dans l'aide mais je n'arrive pas à la faire fonctionner .
Ce que je veux faire c'est ce style d'opération:
Option strict on
((TextBox1.Text - TextBox2.Text) / TextBox3.Text) * 100
Je crois qu'il faut dire au TextBox que la saisie est numérique et non pas texte.

Private

Sub Page_Load(ByVal sender AsObject, ByVal e As EventArgs) HandlesMyBase.Load

Dim instance As TextBox

Dim value AsBoolean

value = instance.Numeric

instance.Numeric = value

TextBox1.Numeric = True

End Sub

J'ai erreur :
Erreur 1 'Numeric' n'est pas un membre de 'System.Windows.Forms.TextBox'. C:\Documents and Settings\Mes documents\Visual Studio 2005\Projects\WindowsApplication1\WindowsApplication1\Form1.vb 99 17 WindowsApplication1

Merci, bonne journée.

Bonjour,
Le message d'erreur que tu obtiens est tout ce qu'il y a de normal. En effet la propriété Numeric existe mais sur les objets TextBox côté ASP.Net pour les applications sur périphériques mobiles.

Voir  [ Lien ]
 
++

J'ajoute que l'expression :
((TextBox1.Text - TextBox2.Text) / TextBox3.Text) * 100

me laisse un peu pantois !
Faire des opération d'addition et de soustraction ... et de divisons sur des valeurs de type "string" est assez étonnant, même si VB arrive à "deviner"

Quant à ton erreur, elle est normale.

TU essaye de lire ou d'écrire la propriété Numeric de "l'ojet" instance. Hors ton "objet" instance n'est créer nulle part (d'ou les ") ce n'est pas un objet existant.

Supprime le code présent dans le Page_Load et essaye avec ceci :

TextBox1.Numeric=True
TextBox2.Numeric=True
TextBox3.Numeric=True

Normalement ça doit suffire, tu n'as pas besoin du reste

---- Sevyc64  (alias Casy) ----

---

# LE PARTAGE EST NOTRE FORCE #

Bonsoir,
Merci fauve pour toutes c'est explications.
Actuellement j'ai

TextBox3.Text =

CStr((CDbl(TextBox2.Text) - CDbl(TextBox1.Text)) / CDbl(TextBox2.Text) * 100)
Je viens de m'aperçevoir que l'erreur c'est :
Quand j'écris dans TextBox1.Text  les autres TextBox on rien dedans donc il y a une ligne d'erreur et quand j'ecris après dans  TextBox2.Text il n'y a pas d'erreur puis qu'il peut calculer. Quand je fais le contraire j'écris dans TextBox2 il y a une erreur et j'écris a nouveau dans TextBox1 pas d'erreur.
Je gére l'erreur comme ça :

On

ErrorGoTo fin
TextBox3.Text = CStr((CDbl(TextBox2.Text) - CDbl(TextBox1.Text)) / CDbl(TextBox2.Text) * 100)fin:
Vous pensez que c'est comme ça qu'il faut faire pour gérer l'erreur ?
Pour le mode de calcul apparemment c'est comme ça.
Merci, bonne soirée.

Bonsoir,
Oui ça fonctionne bien  sans

On ErrorGoTo fin
mais il reste encore une erreur quand j'efface retour arr là se reproduit la même erreur. 

If TextBox1.Text <> ""And IsNumeric(TextBox1.Text) = TrueAnd TextBox2.Text <> ""And IsNumeric(TextBox2) = TrueThen

TextBox3.Text =

CStr((CDbl(TextBox2.Text) - CDbl(TextBox1.Text)) / CDbl(TextBox2.Text) * 100)

TextBox10.Text =

CStr(CDbl(TextBox2.Text) - CDbl(TextBox1.Text))

EndIf

If TextBox1.Text <> ""And IsNumeric(TextBox1.Text) = TrueAnd TextBox5.Text <> ""And IsNumeric(TextBox5) = TrueThen

TextBox9.Text =

CStr(CDbl(TextBox5.Text) / CDbl(TextBox1.Text))

EndIf

Merci fauve Bonne soirée.

Bonjour,
Je n'arrivais plus a faire ce que je voulais,  je  vous explique :

Private

Sub TextBox1_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress'remplacement du point par une virgule 
   If Asc(e.KeyChar) = 46 Then e.KeyChar = Chr(44) '","
'si c'est une virgule et qu'il y en a déja une dans le textbox, ou qu'elle est tappé en premier caractère, on annule la saisie 
   If Asc(e.KeyChar) = 44 And (CType(sender, TextBox).Text.IndexOf(",") > 0 OrCType(sender, TextBox).Text = "") Then e.Handled = True
'si le caractere n'est pas un chiffre, back ou une virgule, on annule 
   IfChar.IsDigit(e.KeyChar) = FalseAnd Asc(e.KeyChar) <> System.Windows.Forms.Keys.Back And Asc(e.KeyChar) <> 44 Then e.Handled = True
EndSub

Private

Sub TextBox1_KeyUp(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp
If TextBox1.Text <> "" = TrueAnd TextBox2.Text <> ""Then
   TextBox3.Text = CStr((CDbl(TextBox2.Text) - CDbl(TextBox1.Text)) / CDbl(TextBox2.Text) * 100)
   TextBox10.Text = CStr(CDbl(TextBox2.Text) - CDbl(TextBox1.Text))
EndIf
 If TextBox1.Text <> "" = TrueAnd TextBox5.Text <> ""Then
   TextBox9.Text = CStr(CDbl(TextBox5.Text) / CDbl(TextBox1.Text))
EndIf
' Pour qu'il calcule, il faut que TextBox1.Text contient une chaîne de caractères
' idem pour TextBox2.Text
' Sinon il ne calcule pas'
'''On Error GoTo fin
''TextBox3.Text = CStr((CDbl(TextBox2.Text) - CDbl(TextBox1.Text)) / CDbl(TextBox2.Text) * 100)
''TextBox10.Text = CStr(CDbl(TextBox2.Text) - CDbl(TextBox1.Text))
''TextBox9.Text = CStr(CDbl(TextBox5.Text) / CDbl(TextBox1.Text))
''fin:
EndSub

PrivateSub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
   If TextBox1.Text = ""Then TextBox3.Text = "" : TextBox10.Text = "" : TextBox8.Text = "" : TextBox7.Text = ""
'If Len(TextBox1.Text) < 1 ThenExitSub
'TextBox1.Text = Trim(TextBox1.Text) 'enleve les espaces droite et gauche Chr(44)
'If Mid(TextBox1.Text, 1, 1) = "," Then TextBox1.Text = ""
EndSub
Voilà j'ai enlevé IsNumeric parceque je n'arrivé plus à faire dans TextBox1 le calcule au fur et a mesure que j'inscrivé des nombres et je pense que ça devais faire double emploi avec l'evènement KeyPress.
Qu'est ce que vous en pensez ?c'est bien comme ça ?
Merci ,bonne journée