keys.Right et keys.Left pour le buton en vb net

Version imprimable

16/02/2012, 18h48
tawrirte

keys.Right et keys.Left pour le buton en vb net

j'ai 5 ({A,B},{C,D,E}) buton placer dans un deux panel different, par defaut il y a un ordre bien défini si on clik sur le button Right ou Left
par example:

A--Right -->B--Right -->C---Right --->D----Right ---->E---Right --->A....

de meme pour Left

A--Left-->E---Left--->D...

Mois je veux personnaliser un peu, je veux si je suis dans le button B apres Right revient sur le A ou aller directement a E
le truc A.Focus() ne marche pas par ce que il y a deja un ordre predefini
comment je doit faire merci
17/02/2012, 10h40
tawrirte

lors ce qu'on est sur un des buttons on fait un keys.Left ou Keys.Right le focus se deplace d'un button a un autre suivant l'ordre dans laquel les button ont été placer sur le panel, je parle pas du tabilation mai des 2 flech du clavier Keys.Left et Keys.Right
17/02/2012, 10h40
mactwist69

Bonjour...

Je veux bien t'aider mais il va falloir être plus clair...
Ce que j'ai compris:

Deux panels, 5 boutons...

Le focus est sur un bouton, et quand tu tapes sur le clavier sur le droite ou gauche, tu souhaites que le focus passe d'un bouton a un autre... et que quand il arrive au dernier, c'est le premier qui soit sélectionné.

J'ai pas compris non plus le problème du focus.
17/02/2012, 10h42
mactwist69

Ok, alors...

J'imagine que tu as du codes quand tu presses Left ou Right...

Tu peux savoir quel bouton a le focus avec la propriétés correspondantes...

Du coup, suivant le bouton et la touche pressé tu peux facilement en déduire quel bouton doit prendre le focus...

T'as du code ?

voila la fonction qui recuper les evenement apres la lecture du fichier XML, pour recuper l'enchainment a suivre

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
Protected Overrides Function ProcessCmdKey(ByRef msg As Message, ByVal keyData As Keys) As Boolean
    'recuper le control actvie qui a le focus 
Dim monControlActiv as Control = Me.ActiveControl 
   'recuper le control suivant comme define dans mon fichie XMl par la fonction 
   ' GetNextContor(monControlActiv ,) 
 
 
dim MyControlNext as control 
 
        Select Case keyData
 
            Case Keys.Right
MyControlNext =GetNextContor(monControlActiv,"Right" )
                MyControlNext .Focus()
 
            Case Keys.Left
MyControlNext =GetNextContor(monControlActiv,"Left" )
                MyControlNext .Focus()
 
            Case Keys.Up
MyControlNext =GetNextContor(monControlActiv,"Up" )
                MyControlNext .Focus()
 
            Case Keys.Down
MyControlNext =GetNextContor(monControlActiv,"Down" )
                MyControlNext .Focus()
 
            Case Keys.Tab
MyControlNext =GetNextContor(monControlActiv,"Tab" )
                MyControlNext .Focus()
 
            Case Keys.Tab Or Keys.Shift
MyControlNext =GetNextContor(monControlActiv,"Shift" )
              MyControlNext .Focus()
 
        End Select
 
    End Function

le truc march pour tout les controls mai ne march pas pour les buttons seul le Keys.Right et Keys.Left qui ne march pas

17/02/2012, 11h57
mactwist69

Citation:

Envoyé par tawrirte

le truc march pour tout les controls mai ne march pas pour les buttons seul le Keys.Right et Keys.Left qui ne march pas

C'est dur a comprendre.
17/02/2012, 11h59
mactwist69

Quand tu avances au "pas-à-pas"... le code passe t il dans les case "Keys.right" ?

Ou il n'y passe pas du tout?
17/02/2012, 12h07
tawrirte

je veux dir le truc Keys.Right et Keys.Left qui ne march pas pour les buttons,
pour le code pass bien par le case Keys.right et le Keys.left

je ai crée un projet winform ou il y a 4 button

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
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
 
        Me.KeyPreview = True
    End Sub
 
 
 
 Protected Overrides Function ProcessCmdKey(ByRef msg As Message, ByVal keyData As Keys) As Boolean
 
 
        Select Case keyData
 
            Case Keys.Right
                Button4.Focus()
 
            Case Keys.Left
                Button2.Focus()
 
            Case Keys.Up
                Button1.Focus()
 
            Case Keys.Down
                Button1.Focus()
 
            Case Keys.Tab
                Button1.Focus()
 
            Case Keys.Tab Or Keys.Shift
                Button1.Focus()
 
        End Select
 
    End Function

et j'ai le meme probleme avec le keys.right ou keys.left
Merci pour ta reponse

Le code arrives t il jusqu'à la ligne rouge ?:
Code:

1 2 3 4 Select Case keyData Case Keys.Right Button4.Focus()

Bonjour,
TomLev te le disais tantôt.
si tu ne dis pas que c'est traité, la touche appuyée aura son comportement normal et n'obéira pas à ton programme :
Code:

1 2 3 4 5 Select Case keyData Case Keys.Right btnD.Select() Return True
et le dernier Case :
Code:

1 2 3 4 Case Else Return MyBase.ProcessCmdKey(msg, keyData) End Select

17/02/2012, 15h04
tawrirte

oui bien sur il arrive (il execute bien l'instruction Button4.Focus())
puis apres dans l'affichage il met le focus dans un autre button au lieu du Button4

je voix bien que l'ordre est celle du tab index comment desactiver cette proprieté, j'ai met la TabStop a False mai n'a rien changer
Merci