Discussion :

[budylove]

bonjour,

voila sur ma forme, j'ai plein de textbox, permettant la saisie des paramètres machines.

afin de valider uniquement les caracteres j'ai codé ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub TxtCt1R2_change()
   Dim OldSelStart As Long
 
i = Len(TxtCt1R2.Text)
      If Not IsNumeric(Right(Left(TxtCt1R2.Text, i), 1)) Then
        If Not (Right(Left(TxtCt1R2.Text, i), 1)) = "." Then
            If Not (Right(Left(TxtCt1R2.Text, i), 1)) = "," Then
            ' Enregistre la position actuelle du curseur dans le Text1
                OldSelStart = TxtCt1R2.SelStart
            ' Reprend la valeur contenue dans le Text1 ("123b" => 123 ; "b123" => 0)
                TxtCt1R2.Text = CStr(Val(TxtCt1R2.Text))
            ' Restaure la position du curseur
                TxtCt1R2.SelStart = OldSelStart
            End If
        End If
  End If
End Sub

Au lieu de l'état change j'aurais préféré l'etat validation mais il ne veux pas fonctionner.

Mon soucis, c'est que j'ai 26 textbox à controler, n'y aurait il pas une méthode me permettant de ne pas répéter cette action 26 fois, afin que mon code soit moins lourds ?

cordialement

[callo]

Salut,
Essaie de créer une procédure avec en parmètre le nom du textbox.

[AurelieB]

Pour simplifier tu peux creer un array de TextBox, ainsi la fonction de validation que tu viens d'ecrire marchera pour toutes les controls de l'array.

[budylove]

j'avais pensé a cette solutions, faire une liste est faire un for each obj...


mais comment m'y prendre..

[AdHoc]

Bonjour,
personnellement, je ne contrôle jamais la saisie utilisateur en cours de frappe, (c'est trop lourd à programmer et encore plus à utiliser), mais seulement à la fin sur un bouton validation.
Si c'est correct, demande confirmation sinon, Message erreur, Raz des données saisies et l'utilisateur doit se retaper la saisie (ça lui apprendra !!!).
Dans ton cas, tu aurais juste à faire un isnumeric sur tes controles et si tu les as indexés, un parcours de l'index ou de la collection
=> 3 ou 4 lignes de codes pour l'ensemble de tes contrôles (pas pour chacun !!).
On utilise aussi un certain nombre de contrôles "payants" (InputPro de farpoint pour ne pas le nommer) un peu plus évolués qu'une textbox (saisie de nombres pré-formatés par exemple) mais de toutes façons généralement le problème n'est que déplacé (ex: valeur impossible).

[AurelieB]

Si la methode parait convenir, je ne suis pas tres forte pour expliquer la theorie. Je vais te dire comment j'aurais procede, en esperant que ca t'eclaire:

1. je cree un text_box, je le nomme, mets les proprietes qu'il faut.
2. je fais une copie du text_box dans la meme form, VB demande si je veux creer un array de control text_box? je reponds oui!
3. en double-cliquant sur l'un deux, on me propose d'ecrire le code pour

Private Sub Text1_Change(Index As Integer)
........ ici tu ecris le code cite dans ton post
...............if Text1(Index).text = ........then
End Sub

4. Ensuite si ca marche, je peux creer 24 copies suplementaires de Text1 et on obtient 1 array avec 26 text_box et une seule fonction.

Bon courage!

[khany]

Remplace les IF End If par un Select Case, plus simple et tu peux grouper les textboxes qui nécessitent les mêmes contrôles de données dans le même "Case" !

C'est vraiment la base de la programmation cela, il faudrait peut-être relire les cours VB accessibles dans la page cours.

Si tu vérifies juste des chiffres, il existe aussi la fonction IsNumeric de base dans VB6 !

[budylove]

Bon j'ai réglé mon soucis, j'ai fais comme toi aurélie, ca marche mes controle son bon

merci à tous pour vos réponses!

@ khany -> je suis désolé pour toi, je comprend que tu sois blasé par une question comme la mienne, qui comme beaucoup de question est simple quand on connait le langage.
promis je relis les bases vb, pour la fonction IsNumeric qui est de base dans vb oui je connaissais, elle est meme plus haut dans le code.