Pb avec la saisie not isnumeric de mon textboxRésolu

Question

Bonjour à tous,

Voila si je saisie volontairement une lettre dans mon textbox
je me retrouve avec 2 fois mon message box à l'ecran ???

Si quelqu'un peux m'aider

Merci

Voici mon code :

Private
Sub TextBox5_TextChanged(
ByVal sender 
As System.Object, 
ByVal e 
As System.EventArgs) 
Handles TextBox5.TextChanged



If



Not
 IsNumeric(TextBox5.Text) 

Then



MsgBox(




"Veuillez saisir des chiffres pour la taille de la m‚moire"
, MsgBoxStyle.Exclamation, 

"Attention"
)


If
 MsgBoxResult.Ok 

Then

TextBox5.Text = 




""






End



If






End



If






End



Sub

cs_Exploreur · Accepted Answer

Salut ,

Grosso modo :

PrivateSub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged
If
NotIsNumeric(TextBox5.Text) 
Then

MsgBox(

"Veuillez saisir des chiffres pour la taille de la m?moire" , MsgBoxStyle.Exclamation, "Attention" ) 

If MsgBoxResult.Ok Then
EXIT SUB << je ne sais pas si c'est la même syntaxe sous .net 

EndIf

EndIf

EndSub

A+
Exploreur

 Linux a un noyau, Windows un pépin

jrivet · Answer

Salut,
Je pense que c'est aprce que cette ligne TextBox5.Text = "" appelle une nouvelle fois le même événement.

Essaie en utilisant l'événement KeyDown ou KeyPress

@+: Ju£i?n
Pensez: Réponse acceptée

cs_Exploreur · Answer

Salut,

Je dirais aussi en complément de la réponse de Jrivet, que, si ce n'est pas un numérique je ne vois pas l'intêret de faire un TextBox5.Text = ""...

Si ce n'est pas un numérique tu sort tout simplement de la procédure et Keyascii = 0

A+
Exploreur

 Linux a un noyau, Windows un pépin

drikce06 · Answer

+1 ou alors tu fais TextBox5.Text = "0"

 Drikce 06 (Nouveau !!! Forum Exclusivement Office Et VBA By Mortalino)

Pb avec la saisie not isnumeric de mon textbox

4 réponses

Votre réponse

Discussions similaires