Discussion :

[sebast1]

Bonjour à tous,

Je souhaiterai indiquer à mon programme que lorsque l'utilisateur appuie sur la flèche du haut ou du bas que cela fasse descendre la ligne de sélection dans une FlexGrid.

Cela fonctionne bien lorsque je suis dans une TextBox mais pas lorsque que je suis dans un groupe de boutons Option. En fait mon évènement ou je vérifie si c'est la touche vbkeyup/vbkeydown est ignoré D'ailleurs je rencontre le meme problème lorsque je suis dans une combobox.

L'évènement intégré au composant lui meme (flèche du bas sur une combo engendre de de passer à l'élément suivant) ne peut il pas être "bloqué" ?

Merci d'avance.


Sébastien

[OhMonBato]

Désolé mais je ne comprends pas ce que tu veux.
Tu veux pouvoir utiliser les fleches ou bloquer l'utilisation des fleches et sur quels controles ? Tu parles de bouton radio, de FlexGrid, de zone text et de combo !

Il y a éventuellement la possibilité de mettre la propriété KeyPreview de ta feuille à True et d'intercepter l'appui des touches à ce niveau, tu regardes alors quel controle a le focus et tu agis en conséquence.

[ThierryAIM]

tu mélanges tout et on ne comprend rien à ce que tu veux faire !

Merci de vous exprimer CLAIREMENT pour exposer votre problème, on n'est pas ici pour jouer aux devinettes !!

[sebast1]

En gros je veux pouvoir utiliser les flèches directionnelles pour faire monter ou descendre le curseur dans la FlexGrid et ce avec tout composant de ma Form.

Avec une textbox, j'y arrive pas de souci mais en revanche avec une combo ou une optionlist je ne peux pas...

Est ce plus clair ?

[LeForestier]

Tu doit mettre les tests dans les événement KeyUp ou KeyDown
Exemple pour un flexGrid

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub MSFlexGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
    Case vbKeyUp
        If MSFlexGrid1.Row > MSFlexGrid1.FixedRows + 1 Then
            MSFlexGrid1.Row = MSFlexGrid1.Row - 1
        End If
    Case vbKeyDown
        If MSFlexGrid1.Row < MSFlexGrid1.Rows - 2 Then
            MSFlexGrid1.Row = MSFlexGrid1.Row + 1
        End If
    End Select
End Sub

Voila, j'espere que c'est ça que tu voulais.
A+

[sebast1]

Hello,

Merci pour ta réponse mais en fait j'avais réussit à faire ce que tu as mis sur la flexgrid.


Le problème que je rencontre est sur le composant optionlist lorsque le focus est dessus. Si j'appuie sur la flèche du haut ou du bas, je passe de mon optionlist(0) à optionlist(1) par exemple...

Alors que j'ai bien défini comme sur la grid, si vbkeyup=>grd.row=grd.row+1

[ProgElecT]

Lorsque je suis sur mon groupe d'option button, je veux pouvoir faire varier la ligne sélectionnée dans ma Grid (grace aux fleches haut et bas du clavier) et non passer d'un option button à un autre

Pour un groupe d'options (idem pour des CheckBoxs)

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
Option Explicit
Private Declare Function GetAsyncKeyState Lib "User32" (ByVal vKey As Long) As Integer
Private Sub Option1_Validate(Index As Integer, Cancel As Boolean)
'quelle touche ?
If GetAsyncKeyState(vbKeyDown) <> 0 Then
 Cancel = True
 If MSFlexGrid1.Row < MSFlexGrid1.Rows - 1 Then
  MSFlexGrid1.Row = MSFlexGrid1.Row + 1
  MSFlexGrid1.TopRow = MSFlexGrid1.Row
 End If
End If
If GetAsyncKeyState(vbKeyUp) <> 0 Then
 Cancel = True
 If MSFlexGrid1.Row > MSFlexGrid1.FixedRows Then
  MSFlexGrid1.Row = MSFlexGrid1.Row - 1
  MSFlexGrid1.TopRow = MSFlexGrid1.Row
 End If
End If
End Sub

Une ListBox

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
Private Sub List1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDown Then
 KeyCode = 0
 If MSFlexGrid1.Row < MSFlexGrid1.Rows - 1 Then
  MSFlexGrid1.Row = MSFlexGrid1.Row + 1
  MSFlexGrid1.TopRow = MSFlexGrid1.Row
 End If
End If
If KeyCode = vbKeyUp Then
 KeyCode = 0
 If MSFlexGrid1.Row > MSFlexGrid1.FixedRows Then
  MSFlexGrid1.Row = MSFlexGrid1.Row - 1
  MSFlexGrid1.TopRow = MSFlexGrid1.Row
 End If
End If
End Sub

Un ComboBox

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
Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDown Then
 KeyCode = 0
 If MSFlexGrid1.Row < MSFlexGrid1.Rows - 1 Then
  MSFlexGrid1.Row = MSFlexGrid1.Row + 1
  MSFlexGrid1.TopRow = MSFlexGrid1.Row
 End If
End If
If KeyCode = vbKeyUp Then
 KeyCode = 0
 If MSFlexGrid1.Row > MSFlexGrid1.FixedRows Then
  MSFlexGrid1.Row = MSFlexGrid1.Row - 1
  MSFlexGrid1.TopRow = MSFlexGrid1.Row
 End If
End If
End Sub

Je pense qu'il doit être possible de faire la même chose pour d'autres contrôles ....

je lui offre 1 an d'abonnement gratuit à dvp.com

A+