commande SHIFT + TAB

**Dewey12** · 23/01/2012, 16h46

(Re) Bonjour,

Je refais appel à vous, dans une nouvelle discussion car je penses que ca peut être utile à d'autres !
Donc j'aurais aimé que lorsque l'utilisateur (novice) appuie sur F2 le curseur revienne au champ (TabIndex) précédent.
Toujours pareil j'ai une base qui marche lors d'un KeyPress mais dans mon cas (KeyDown) ca ne fonctionne pas.
Voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
 
Dim ctr3 As TextBox
        ctr3 = CType(sender, TextBox)
 
        If e.KeyCode = Keys.F2 Then
            Me.SelectNextControl(ctr3, False, True, True, True)
            Exit Sub
        End If
End Sub

Apparemment l'erreur se situe au niveau de ctr3 = CType(sender, TextBox). Une idée ?

**asmduty** · 23/01/2012, 16h54

2 choses :

- Tu déclares "ctr" et tu utilises "ctr3" (EDIT :corrigé apparemment)
- Quand tu as ce genre d'erreur met un point d'arrêt et regarde ce qui ne va pas. Dans ce cas tu dis que l'erreur est sur la ligne Ctype, ce qui signifierais que ton sender n'est pas un textbox, avec un point d'arrêt + espion tu sauras quel est ton sender.

De plus ta logique n'est pas bonne, si l'utilisateur fait F2 sur tout autre control qu'un textbox ça plantera, tu devrais en premier lieu regarder de quel type est ton sender, ainsi tu corrigeras ton erreur.

**Sankasssss** · 23/01/2012, 19h45

Re,

je te renvoie à notre précédente discussion.

L'erreur vient bien de ce bout de code car ce n'est pas les textBox qui lèvent l’évènement mais ta Form1.

Si tu voulais que se soit les textBox qui lèvent l’évènement il te faut reprendre le code de griftou.

P.S. : L'utilisateur peut déjà dans Windows passer les contrôles en sens inverse avec MAJ + TAB, une petite phrase le précisent dans ton application serait peut-être mieux que d'habituer les utilisateurs à un autre raccourcis qui n'existera que dans ton application. (c'est juste ma façon de penser hein

)

**chrismonoye** · 24/01/2012, 00h15

Bonsoir
le mot clé Handles à la fin d'une déclaration de procédure, impose que le contrôle cité explicitement à sa suite est le seul à gérer l'événement.
(On peut en désigner plusieurs).
C'est ou se sont le ou les "sender".
En l’occurrence, ici "sender" est donc le formulaire et :

Code :

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

ctr3 = CType(sender, TextBox)

Lèvera une exception, caster un Form en TextBox n'est pas impossible.

Tout à fait d'accord avec Sankasssss et aussi le fait de désorienter l'utilisateur avec de nouveaux raccourcis.

Néanmoins, cela reste faisable si Me.KeyPreview = True :

- Si la touche appuyée est F2,
- On récupère le contrôle actif,
- si celui ci est de type TextBox... Alors action :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
 
        If e.KeyCode = Keys.F2 Then
            Dim ctr3 As Control
            ctr3 = Me.ActiveControl
 
            If TypeOf ctr3 Is TextBox Then
                Me.SelectNextControl(ctr3, False, True, True, True)
            End If
        End If
 
    End Sub

**Dewey12** · 24/01/2012, 09h59

Merci pour vos réponses !

P.S. : L'utilisateur peut déjà dans Windows passer les contrôles en sens inverse avec MAJ + TAB, une petite phrase le précisent dans ton application serait peut-être mieux que d'habituer les utilisateurs à un autre raccourcis qui n'existera que dans ton application. (c'est juste ma façon de penser hein )

En voulant faire simple il est vrai que je complique la chose

Je prévois de faire une feuille explicative avec, pour que les utilisateurs comprennes facilement.

asmduty je ne peux pas faire ce genre de test car je ne développe pas pour un pc mais pour une "sorte" de pistolet à code barre avec Windows Ce 5.0 dessus et je n'ai pas d'émulateur sur le PC !

Merci à tous en tout cas.
Super communauté.

**Kropernic** · 24/01/2012, 10h09

@Sankasssss : chrismonoye répond à la question que je posais hier à savoir : "comment connaitre le contrôle dans lequel se trouve le user si on travaille avec la propriété keypreview ?".

Ca va me changer la vie cette propriété ^^

**asmduty** · 24/01/2012, 10h24

Envoyé par Dewey12

asmduty je ne peux pas faire ce genre de test car je ne développe pas pour un pc mais pour une "sorte" de pistolet à code barre avec Windows Ce 5.0 dessus et je n'ai pas d'émulateur sur le PC !

pratique

**Kropernic** · 24/01/2012, 10h30

M'enfin... Il y a quand même moyen quand on crée un projet de dire que c'est un projet pour WIN CE et il en tient compte quand on debuggue (ortho?) non ?

J'avais un projet en C# quand j'étais encore à l'école pour un programme sur un robot (donc avec win ce) et on debuggait (ortho ?? firefox me propose budgétisait 0_0) très bien...

Bref, tu dois pouvoir faire ce genre de tests dewey...

**Sankasssss** · 24/01/2012, 10h41

Envoyé par griftou

@Sankasssss : chrismonoye répond à la question que je posais hier à savoir : "comment connaitre le contrôle dans lequel se trouve le user si on travaille avec la propriété keypreview ?".

Ca va me changer la vie cette propriété ^^

De fait, bien plus facile en récupérant le contrôle actif

P.S. : N'oublier pas de mettre +1 à la réponse de chrismonoye qui nous a aider, ca fait toujours plaisir d'arriver dans un topic où la réponse est en vert...

**Kropernic** · 24/01/2012, 10h50

Envoyé par Sankasssss

P.S. : N'oublier pas de mettre +1 à la réponse de chrismonoye qui nous a aider, ca fait toujours plaisir d'arriver dans un topic où la réponse est en vert...

C'est vrai que je ne pense jamais à ce +1...
Mais ça n'apparait de toute façon pas en vert chez moi. A moins de faire gaffe aux pouces sur chaque message, cela ne saute pas aux yeux.

**asmduty** · 24/01/2012, 11h27

Envoyé par griftou

C'est vrai que je ne pense jamais à ce +1...
Mais ça n'apparait de toute façon pas en vert chez moi. A moins de faire gaffe aux pouces sur chaque message, cela ne saute pas aux yeux.

ça apparait en vert à partir de 4 ou 5

**Kropernic** · 24/01/2012, 11h44

Envoyé par asmduty

ça apparait en vert à partir de 4 ou 5

A partir de 3 même. Il est en vert maintenant. Première fois que je vois ça sur ce forum ^^.

**Dewey12** · 24/01/2012, 13h01

Code :

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

1
2
3
4
5
6
7
8
9
10
 Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown, Me.KeyDown
 
If e.KeyCode = Keys.F2 Then
            Dim ctr3 As Control
            ctr3 = Me.ActiveControl
 
            If TypeOf ctr3 Is TextBox Then
                Me.SelectNextControl(ctr3, False, True, True, True)
            End If
        End If

Vu que je n'aime pas rester dans l'ignorance, il y a toujours une zone d'ombre pour moi (débutant dans ce langage

)
En dessus mon code, ou d'après ce que j'ai compris, j'ai ajouter "ME.keydown" au "Handles" mais il me trouve une erreur au niveau de "Me.ActiveControl" ...

Désolé pour ma lenteur de compréhension mais on est tous passé par la

**Sankasssss** · 24/01/2012, 13h38

Oui on est tous passé par là, c'est aussi pour cela que les membres s'entraide

Tu n'est pas obligé de laisser les deux, laisse uniquement Me.KeyDown.

Sinon pour ton erreur c'est bizarre car le code fonctionne chez moi.
Pourrais-tu donner le texte de l'erreur?

EDIT : Tu n'aurais pas oublié le end sub ???

**Dewey12** · 24/01/2012, 14h18

Non désolé c'est le copier coller qui a loupé !

Il me dis que :

'ActiveControl' n'est pas un membre de 'MonProjet.Form1'

Même chose si je met seulement "Me.KeyDown" :

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 Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.F2 Then
            Dim ctr3 As Control
            ctr3 = Me.ActiveControl
            If TypeOf ctr3 Is TextBox Then
                Me.SelectNextControl(ctr3, False, True, True, True)
            End If
        End If
 
        If e.KeyCode = Keys.F6 Then
            'Ferme le programme
            Me.Close()
            Exit Sub
        End If
 
    End Sub

Merci pour t'as compréhension

EDIT : La touche F6 fonctionne bien.

**Sankasssss** · 24/01/2012, 15h08

Tu as quoi comme Visual Studio? (Pour savoir quelle version du framework tu utilises)
car vu sur MSDN :

.NET Framework
Pris en charge dans : 4, 3.5, 3.0, 2.0, 1.1, 1.0

.NET Framework Client Profile
Pris en charge dans : 4, 3.5 SP1

Donc il n'est pris qu'a partir du FrameWork 3.5 SP1 en client Profile...

**Dewey12** · 24/01/2012, 16h05

Envoyé par Sankasssss

Tu as quoi comme Visual Studio? (Pour savoir quelle version du framework tu utilises)

J'utilise VS 2008 avec le framework 3.5 pour le client !
SP1 (je ne pense pas) mais si ça peut t'aider le fichier d'installation du framework ce nomme "NETCFv35.wce.armv4"
C'est la version qu'il me faut pour le type de client (pistolet teklogix 7535 G2)

Sinon c'est pas grave je ferais sans

Merci en tout cas, je dormirais moins con ou plus intelligent....
Bonne soirée à vous,

**Kropernic** · 24/01/2012, 17h22

Ce n'est pas le compact framework ?
Il me semble que tu as signalé que tu développais pour WIN CE non ?

**Sankasssss** · 24/01/2012, 17h45

Envoyé par griftou

Ce n'est pas le compact framework ?
Il me semble que tu as signalé que tu développais pour WIN CE non ?

Si c'est bien le compact framework (recherche NETCFv35.wce.armv4)

Mais je n'ai aucune connaissance dedans et je ne sais pas où l'on voit si une fonction en fait partie dans MSDN mais une rapide rehcerche dans google comble ce défaut : compact framework ActiveControl - Google zoeken

commande SHIFT + TAB

VB.NET

Discussions similaires

Partager

Partager