Discussion :

[Adakhum]

Bonjour ! Je pense mon problème assez simple, je n'ai juste pas la bonne formulation. Je m'explique.

J'ai pas mal de Textbox dans mon form. J'ai une fonction qui me permet de vérifier s'ils sont "IsNumeric" ou pas. Si pas "IsNumeric" > msgbox(err).

Jusque là ça va. Mais je me suis aperçu qu'il me mettais aussi une erreur si le/les textbox étaient vides. Donc vide pour lui c'est idem que pas "IsNumeric".

Voici ma fonction très pratique : (qui marche bien!)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Function IsAllTextBoxNumeric(ByVal conteneur As Control)
        Dim i As Integer
        For Each txt As TextBoxBase In conteneur.Controls.OfType(Of TextBoxBase)()
            Try
                If Not Double.TryParse(txt.Text, i) Then Return False
            Catch
            End Try
        Next
        Return True
    End Function

Comment est ce que je pourrai la modifier / ajouter pour qu'il me laisse tranquille si le textbox est vide ?
Parce que ça par exemple ça ne fonctionne pas : (oui je fais beaucoup de feeling...) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Function IsAllTextBoxNumeric(ByVal conteneur As Control)
        Dim i As Integer
        For Each txt As TextBoxBase In conteneur.Controls.OfType(Of TextBoxBase)()
            Try
                If Not Double.TryParse(txt.Text, i) Or Not Nothing.TryParse(txt.Text, i) Then Return False
            Catch
            End Try
        Next
        Return True
    End Function

Et du coup mon code appelant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ElseIf Not IsAllTextBoxNumeric(Panel_controlX) Then
          MsgBox("Il y a des entrées non numériques, veuillez vérifier.")

Merci !

[wallace1]

Bonjour Adakhum,

Dans ta boucle tu peux inclure une conditionnelle du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If txt.Text = String.empty Then
    Continue For
End If

A+

[Adakhum]

Et bien en fait je crois que j'ai réussi à résoudre mon problème ...

Si je met ça à l'air correct ? :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Function IsAllTextBoxNumeric(ByVal conteneur As Control)
        Dim i As Integer
        For Each txt As TextBoxBase In conteneur.Controls.OfType(Of TextBoxBase)()
            Try
                If Object.Equals(txt.Text, "") Then Return True
                If Not Double.TryParse(txt.Text, i) Then Return False
            Catch
            End Try
        Next
        Return True
    End Function

EDIT : Nan, en fait je croyais que ça marchait au début mais ça continue de déconner, j'essaie ta solution Wallace

[Adakhum]

En fait je ne comprend pas pourquoi ça ne marche pas .. Avec ce code par exemple, si je rentre un vide il me met le msgbox, et il me met aussi le msgbox si je rentre une lettre et aussi un chiffre !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Function IsAllTextBoxNumeric(ByVal conteneur As Control)
        Dim i As Integer
        Dim bool As Boolean
        For Each txt As TextBoxBase In conteneur.Controls.OfType(Of TextBoxBase)()
            Try
                If Not Double.TryParse(txt.Text, i) Then bool = False   ' si c'est une lettre ou un vide > bool = false mais on test quand même la ligne suivante !
                If txt.Text = String.Empty Then Return True   ' si c'est un vide, ça devrait renvoyer "True" et la fonction est quittée ! et ça ne le renvoie pas ... 
                If bool = False Then Return False  ' si ce n'était pas non plus un vide ça retourne false car c'était bien une lettre ..
            Catch
            End Try
        Next
        Return True
    End Function

Est ce que mes commentaires sont théoriquement bon ?

Rappel Code appelant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ElseIf Not IsAllTextBoxNumeric(PL_TS_MD) Then
          MsgBox("Il y a des entrées non numériques, veuillez vérifier.")

EDIT : en fait, quand je met ça par exemple : If Textbox.Text = "" Then Exit Sub et que j'effectue un pas à pas détaillé pour voir ce qui se cache, s'il n'y a rien dans le textbox, il ne fait pas "Exit Sub" je ne comprend pas ? Rien c'est bien "" ? !

[wallace1]

Ce qu'i serait bon d es avoir c'est déclenches-tu ta sub IsAllTextBoxNumeric depuis un gestionnaire d’événement :

- des textbox en question ?
- un bouton (au clic en guise de vérification) ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
EDIT : en fait, quand je met ça par exemple : If Textbox.Text = "" Then Exit Sub et que j'effectue un pas à pas détaillé pour voir ce qui se cache, s'il n'y a rien dans le textbox, il ne fait pas "Exit Sub" je ne comprend pas ? Rien c'est bien "" ? !

Rien = Nothing
Vide = Empty

Ce sont 2 choses différentes qui doivent être traitées indépendamment !

[Adakhum]

Ce qu'i serait bon d es avoir c'est déclenches-tu ta sub IsAllTextBoxNumeric depuis un gestionnaire d’événement :

- des textbox en question ?
- un bouton (au clic en guise de vérification) ?

Depuis le changement de texte d'un panel encadrant des textbox :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
        For Each txt As TextBoxBase In conteneur.Controls.OfType(Of TextBoxBase)()
            AddHandler txt.TextChanged, AddressOf PL_TG_MD_TextChanged
        Next
    End Sub

En fait la difficulté c'est vraiment de cerner toutes les textbox en même temps, car du coup si dans l'une par exemple j'ai un vide, puis dans la suivante j'entre une lettre, il va quand même me dire que ça va bien parce que dans l'autre textbox j'ai rentrer un vide mais je lui ai dit que c'était "pas grave" (je me comprend ^^)

EDIT : Ici j'ai réussi à programmer pour UNE textbox le code et surtout le résultat que je souhaiterai obtenir :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub TB_traverse_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TB_traverse.TextChanged
        Dim i As Int16
        If TB_traverse.Text = String.Empty Then Exit Sub
        If Not Double.TryParse(TB_traverse.Text, i) Then MsgBox("Il y a des entrées non numériques, veuillez vérifier.")
    End Sub

Reste plus qu'a le généraliser aux panel avec l'événement text_changed ..
Merci pour ton aide wallace1

[wallace1]

Et pourquoi ne pas créer une extension du contrôle Textbox ? Je propose ce genre d e contrôle ici :

http://3dotdevcoder.blogspot.fr/2014...e-textbox.html


...Car à force ça risque d'être difficilement maintenable ton code !

PS : il faut savoir qu'en DotNet nous n'inventons plus rien tout a déjà été fait.