Discussion :

[tawrirte]

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]

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]

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]

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]

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

[mactwist69]

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.

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

[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

[tawrirte]

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

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

[mactwist69]

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

Code :

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

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

[chrismonoye]

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 :

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

1
2
3
4
5
        Select Case keyData
 
            Case Keys.Right
                btnD.Select()
                Return True

et le dernier Case :

Code :

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

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

[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