Discussion :

[jacko842]

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 :

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
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 .

SI quelle qu'un a une solution a me proposer

Merci d'avance .

[iclic]

Bonjour,

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
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+

[jacko842]

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 :

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
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 .

[OhMonBato]

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 :

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

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

[jacko842]

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 :

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
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
Merci de votre aide .

[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é ?