Affichage dans TextBox Non numérique ou -Infini ou +Infini

Bonjour,
Je viens de me rendre compte qu'il s'affiche suivant le calcul :
Non numérique ... quand je saisie un zéro..., alors pour y remedier je fais cela :
If Mid(TextBox11.Text, 1, 3) = "Non"Then TextBox11.Text = "0"
If Mid(TextBox11.Text, 1, 7) = "-Infini"Then TextBox11.Text = "0"
If Mid(TextBox11.Text, 1, 7) = "+Infini"Then TextBox11.Text = "0"
Je voulais vous demandez  s'il falait faire comme cela ?
Une autre solution.
Pour empêcher le double zéro je pensais à ajouter une ligne la :
PrivateSub TextBox2_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.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

mais je n'y arrive pas (J'arrive qu'a supprimer totalement l'appuis  sur 0 !)
Avez-vous une idée ?
Merci.

Salut
Ta question est incompréhensible.
Tu travailles sur ton projet et tu sais de quoi tu parles, mais nous, on n'en sait rien.
Alors éclaircis les choses.
Tu parles d'infini, de double zéro, de non numérique ....

Comme une rédaction en français :
Introduction : Dans quel contexte, ce que tu cherches à faire
Développement : Tu expliques ce que tu as déjà fait
Conclusion : ta question

Parce qu'une phrase qui commence par "Je viens de me rendre compte" ne nous aide pas vraiment
Merci

Bonsoir,
Excuser-moi pour le charabia...
- Introduction : Dans quel contexte, ce que tu cherches à faire
Je veux faire calculer TextBox1 et  TextBox2 ensemble et recuperer le resultat sur un troisieme TexBox11
- Développement : Tu expliques ce que tu as déjà fait
Voilà ce que j'ai fais :

PrivateSub TextBox1_GotFocus(ByVal sender AsObject, ByVal e As System.EventArgs) Handles TextBox1.GotFocus
TextBox1.SelectionLength = 0
EndSub

PrivateSub 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

PrivateSub TextBox1_KeyUp(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp
If TextBox1.Text <> "" = TrueAnd TextBox2.Text <> ""Then TextBox11.Text = CStr((CDbl(TextBox2.Text) - CDbl(TextBox1.Text)) / CDbl(TextBox2.Text) * 100)
EndIf
EndSub

PrivateSub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
If IsNumeric(TextBox1.Text) = TrueThen
If TextBox1.Text = ""Then TextBox1.Text = "" : TextBox11.Text = ""
Else
TextBox1.Text = "" : TextBox11.Text = ""
EndIf
EndSub

Private

Sub TextBox2_KeyPress( ByVal sender As Object , ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.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 Or CType (sender, TextBox).Text = "" ) Then e.Handled = True
'si le caractere n'est pas un chiffre, back ou une virgule, on annule
If Char .IsDigit(e.KeyChar) = False And Asc(e.KeyChar) <> System.Windows.Forms.Keys.Back And Asc(e.KeyChar) <> 44 Then e.Handled = True
End Sub

Private Sub TextBox2_KeyUp( ByVal sender As Object , ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox2.KeyUp
EndSub

Private Sub TextBox2_TextChanged( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
' If Mid(TextBox2.Text, 1, 2) = "00" Then TextBox2.Text = "" 's'il y a saisie deux 00 alors efface
If IsNumeric(TextBox2.Text) = True Then
   If TextBox2.Text = "" Then TextBox11.Text = ""
       TextBox11.Text = CStr (( CDbl (TextBox2.Text) - CDbl (TextBox1.Text)) / CDbl (TextBox2.Text) * 100)

Else
   If IsNumeric(TextBox2.Text) = False Then TextBox2.Text = "" : TextBox11.Text = ""
End If
End Sub

Private

Sub TextBox11_TextChanged( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox11.TextChanged
' Dim toto As String
' MsgBox(TextBox11.Text)
' toto = Mid(TextBox11.Text, 1, 3)
' If Mid(TextBox11.Text, 1, 2) = "00" Then TextBox11.Text = "0"
'If Mid(TextBox11.Text, 1, 7) = "-Infini" Then TextBox11.Text = "0"
'If Mid(TextBox11.Text, 1, 3) = "Non" Then TextBox11.Text = "0"
If TextBox11.Text <> "" = True Then
TextBox11.Text = CStr (System.Math.Round( CDbl (TextBox11.Text), 2))
End If
End Sub
- Conclusion : ta question
Comment eviter la saisie de deux zero qui se suivent au debut (style 0012)
Je voulais vous demandez  s'il falait faire comme cela pour eviter que dans certaines conditions le TexBox11 affiche  le texte suivant (Non numérique ou -Infini ou +Infini)?
If Mid(TextBox11.Text, 1, 3) = "Non"Then TextBox11.Text = "0"
If Mid(TextBox11.Text, 1, 7) = "-Infini"Then TextBox11.Text = "0"
If Mid(TextBox11.Text, 1, 7) = "+Infini"Then TextBox11.Text = "0"

Pour le double zero peut être serait 'il possible d'ajouter une ligne dans KeyPress ?
Merci, bonne soirée.

Bonjour,
Je viens d'ajouter la ligne ça fonctionne bien pour le double zéro en tête de zone de texte.
Et pour ce qui est de  l'affichage ... dans certaines conditions le TexBox11 affiche  le texte suivant (Non numérique ou -Infini ou +Infini)?
J'ai ajouté les lignes suivantes dans TextBox11_TextChanged
If Mid(TextBox11.Text, 1, 3) = "Non"Then TextBox11.Text = "0"
If Mid(TextBox11.Text, 1, 7) = "-Infini"Then TextBox11.Text = "0"
If Mid(TextBox11.Text, 1, 7) = "+Infini"Then TextBox11.Text = "0"

SubTextBox11_TextChanged(ByValsender AsSystem.Object, ByVale AsSystem.EventArgs) HandlesTextBox11.TextChanged
If Mid(TextBox11.Text, 1, 3) = "Non"Then TextBox11.Text = "0"
If Mid(TextBox11.Text, 1, 7) = "-Infini"Then TextBox11.Text = "0"
If Mid(TextBox11.Text, 1, 7) = "+Infini"Then TextBox11.Text = "0"
IfTextBox11.Text <> ""= TrueThen
TextBox11.Text = CStr(System.Math.Round(CDbl(TextBox11.Text), 2))
EndIf
EndSub

Je voulais vous demander s'il fallait faire comme cela pour éviter l'affichage de Non numérique ou -Infini ou +Infini dans TextBox11 ou peut être qu'il y a une autre solution ?
Merci,bonne journée

Bonsoir,
J'ai ajouté cela :

Private

Sub TextBox11_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox11.TextChanged

SelectCaseTrue

Case (Mid(TextBox11.Text, 1, 3) = "Non"), (Mid(TextBox11.Text, 1, 7) = "-Infini"), (Mid(TextBox11.Text, 1, 7) = "+Infini")

TextBox11.Text =

"0"

CaseElse

If TextBox11.Text <> "" = TrueThen TextBox11.Text = CStr(System.Math.Round(CDbl(TextBox11.Text), 2))

EndSelect

End

Sub
Merci, bonne soirée.