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

**tawrirte** · 16/02/2012, 18h48

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

**tawrirte** · 17/02/2012, 10h40

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

**mactwist69** · 17/02/2012, 10h40

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.

**mactwist69** · 17/02/2012, 10h42

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 ?

**tawrirte** · 17/02/2012, 11h23

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

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