Groupe de controles différents dans un tableau

Version imprimable

Bonjours,

J ai un problème j'ai une forme avec 4 controles Text(0),Text(1),Text(2) etText_ha.

Je voudrais effectuer les mêmes vérifications de saisie pour l’ensemble
des zones de texte sur la form.

Voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
Option Base 1
Dim t(1 To 4) As Control
Dim int_index As Integer
 
Private Sub Form_Load()
    Me.Show
    Set t(1) = Text(0)
    Set t(2) = Text(1)
   Set t(3) = Text_ha
   'Set t(3) = List
    Set t(4) = Text(2)
End Sub
 
Private Sub Text_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
 
        If KeyCode = vbKeyReturn Or KeyCode = vbKeyDown Then
 
      int_index = int_index + 1
 
        If int_index > 4 Then int_index = 1
 
            t(int_index).SetFocus
 
    ElseIf KeyCode = vbKeyUp Then
 
            int_index = int_index - 1
 
        If int_index < 1 Then int_index = 4
 
            t(int_index).SetFocus
 
    ElseIf KeyCode = vbKeyPageUp Then
            int_index = 1
            t(int_index).SetFocus
 
    ElseIf KeyCode = vbKeyPageDown Then
            int_index = 4
            t(int_index).SetFocus
 
 
End If
End Sub

Le problème c est que ça ne marche pas du tout :oops::oops: .

SI quelle qu'un a une solution a me proposer

Merci d'avance .

Bonjour,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
 
inutile Option Base 1
inutile  Dim t(1 To 4) As Control
inutile Dim int_index As Integer
 
Private Sub Form_Load()
inutile     Me.Show
inutile     Set t(1) = Text(0)
 inutile    Set t(2) = Text(1)
 inutile   Set t(3) = Text_ha
  inutile  'Set t(3) = List
 inutile    Set t(4) = Text(2)
End Sub
 
Private Sub Text_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
 
        If KeyCode = vbKeyReturn Or KeyCode = vbKeyDown Then
                If index> 4 Then index= 1
                text(index).SetFocus
 
                ElseIf KeyCode = vbKeyUp Then
                     If index < 1 Then index = 4
                     text(index).SetFocus
 
                ElseIf KeyCode = vbKeyPageUp Then
                     index = 1
                     text(index).SetFocus
 
                ElseIf KeyCode = vbKeyPageDown Then
                     index = 4
                     text(index).SetFocus
       End If
End Sub

Ainsi le code serait déjà plus clair

Peut-être qu'un select case serait plus approprié
A voir aussi le KeyPress à la place du KeyDown

A+

Merci de ton aide iclic .

Pour option base 1 j en aie besoin plus bas mais ici on ne voit pas le code car j ai copier le code ou j avais un problème.

Ensuite je suis obligé de créer un tableau pour contenir les 3 texbox groupé et la 4 ème textbox qui n appartient pas au groupe des 3 textbox je sais pas si tu me suis ....

Donc voici le code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
Dim t(1 To 4) As Control
Dim int_index As Integer
 
Private Sub Form_Load()
    Me.Show
    Set t(1) = Text(0)
    Set t(2) = Text(1)
   Set t(3) = Text_ha
   'Set t(3) = List
    Set t(4) = Text(2)
End Sub
 
Private Sub Text_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
 
        If KeyCode = vbKeyReturn Or KeyCode = vbKeyDown Then
 
      int_index = int_index + 1
 
        If int_index > 4 Then int_index = 1
 
            t(int_index).SetFocus
 
    ElseIf KeyCode = vbKeyUp Then
 
            int_index = int_index - 1
 
        If int_index < 1 Then int_index = 4
 
            t(int_index).SetFocus
 
    ElseIf KeyCode = vbKeyPageUp Then
            int_index = 1
            t(int_index).SetFocus
 
    ElseIf KeyCode = vbKeyPageDown Then
            int_index = 4
            t(int_index).SetFocus
 
 
End If
End Sub

Merci quand même pour ton aide, si quelle qu'un a une autre solution .

Un exemple un peu idiot mais juste pour le principe, il te suffit d'avoir 2 controle Text1 indexés 0 et 1 et un controle Text2

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
Verif Text1(Index), KeyCode, Shift
End Sub
Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
Verif Text2, KeyCode, Shift
End Sub
Public Sub Verif(Ctl As TextBox, KeyCode As Integer, Shift As Integer)
If KeyCode = 53 Then
 Ctl.Text = "Chiffre5"
Else
 Ctl.Text = "Autre"
End If
End Sub

Ce que je veux faire c est avoir par exemple 2 texbox: text1 indexés a 0 et 1 ensuite une listebox list1 et pour finir une 3 ème texbox text1 indexés a 2.

Ensuite je voudrais savoir passé de la textbox text1(1) a la listebox et de celle ci a la dernière texbox(2) a l'aide des touches directionnelles et des touches pageup page down
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 Dim t(1 To 4) As Control Dim int_index As Integer Private Sub Form_Load() Set t(1) = Text(0) Set t(2) = Text(1) Set t(3) = list1 Set t(4) = Text(2) End Sub Private Sub Text_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Or KeyCode = vbKeyDown Then int_index = int_index + 1 If int_index > 4 Then int_index = 1 t(int_index).SetFocus ElseIf KeyCode = vbKeyUp Then int_index = int_index - 1 If int_index < 1 Then int_index = 4 t(int_index).SetFocus ElseIf KeyCode = vbKeyPageUp Then int_index = 1 t(int_index).SetFocus ElseIf KeyCode = vbKeyPageDown Then int_index = 4 t(int_index).SetFocus End If End Sub
Je sais qu'avec ce code je suis pas loin de la solution car je l'avais déjà fait lors d'une formation mais n'ayant plus le code source je l'aie refais de tête mais ça ne fonctionne pas :oops:
Merci de votre aide .

11/08/2009, 18h58
OhMonBato

Le standard Windows pour passer d'un controle à l'autre est d'utiliser la touche Tabulation, la propriété TabIndex des controles étant là pour ça d'ailleurs. Pourquoi changer quelquechose auquel tout le monde est habitué ?
11/08/2009, 19h03
jacko842

Oui mais pour faciliter les raccourcis que certaines personnes utilisent beaucoup dont la touche directionnelle ou le bouton Enter pour passer d'une textbox a une autre .

De plus j en aie besoin car j ai un formulaire avec plusieurs textbox groupé je n'arrive pas a utiliser le MasquEdit si la textbox a un indexe .
11/08/2009, 20h07
jacko842

Bon Après mûre réflexion je vais utilisé Tabindex

Merci a tous et bonne soirée .