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!)
Comment est ce que je pourrai la modifier / ajouter pour qu'il me laisse tranquille si le textbox est vide ?
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
Parce que ça par exemple ça ne fonctionne pas : (oui je fais beaucoup de feeling...) :
Et du coup mon code appelant :
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
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 !
Partager