Problème bouton Echape dans VB6.0

Version imprimable

26/08/2015, 13h38
f_daly007

Problème bouton Echape dans VB6.0
Bonjour,
J'ai un projet avec 3 fenêtres, fiche Article, Fiche Client et Fiche Fournisseur.
j’ai ce
Code:

1 2 3 4 5 6 Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyEscape: Unload Me Case vbKeyF3: Rech_Click End Select End Sub
pour les deux premières formulaire, le bouton Échappe marche correctement, mais dans le 3 ème formulaire (Fiche Fournisseur) avec le même code, le bouton Échappe
ne marche pas, mais le bouton F3 marche correctement, même si je fait un point d'arrêt dans "select case" et je tape sur Echape, aucune action
ne se fait, comme il est inactive, mais si je tape F3, le programme se pointe dans "case vbKeyF3", si je teste dans les autres formulaire, l'action se fait, sauf dans fiche fournisseur.
Remarque: Si je tape Shift + Echape, l'action marche ( que dans fiche fournisseur)

Merci d'avance
26/08/2015, 17h21
ProgElecT

Salut f_daly007, bienvenue sur DVP

Quelle commande utilises tu pour ouvrir les formulaires (Show ?), le formulaire Fournisseur est il ouvert exactement comme les 2 autres ?
Essais de mettre la gestion des touches dans l’évènement Form_KeyUp plutôt que Form_KeyDown.
27/08/2015, 09h30
f_daly007

Salut ProgElecT, Merci pour votre attention,
j'utilise "Show" pour ouvrir les fenêtres, le formulaire fournisseur est ouvert exactement comme les 2 autres.
la problème est la même, quand je clique sur le bouton Échappe pour fermer le formulaire, aucune action se fait, mais si je tape shift+Échappe, l'action marche correctement,
les autre boutons marchent correctement sans shift.

Le problème vient du fait que le contrôle dont la propriété : TabIndex = 0 prend le focus et l'évènement KeyUp ou KeyDown ne s'effectue pas sur l'objet Form.
Si on désactive les contrôles, l'évènement(l'un et/ou l'autre) est reçu par l'objet Form(puis on réactive les contrôles si besoin est):
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Option Explicit Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyEscape: Unload Me Case vbKeyF3: Rech_Click End Select End Sub Private Sub Rech_Click() MsgBox "Action effectuée" End Sub Private Sub Rech_KeyDown(KeyCode As Integer, Shift As Integer) Rech.Enabled = False Call Form_KeyDown(KeyCode, Shift) End Sub

27/08/2015, 12h23
f_daly007

merci l_autodidacte pour votre attention

Le problème existe toujours , le problème est que le bouton Escape ne fonctionne dans aucune zone de texte ou bouton de cette fenêtre, mais si je tape Shift+Escape, ça marche bien et la fenêtre se ferme, mais si je tape F3, l'action se fait sans Shift.
Dans les autres fenêtres, le bouton Escape du clavier marche correctement sans problème.
Apparemment c'est un problème de Shift, si je l'active, le bouton Escape fonctionne.
27/08/2015, 12h33
ProgElecT
Salut
Dans ton formulaire Fournisseur ajoutes
Code:

1 2 3 Private Sub Form_Load() Me.KeyPreview = True End Sub
si cela n'est pas déjà fait en design.
27/08/2015, 12h39
f_daly007

salut ProgElecT

KeyPreview est déjà fait dans le design, les autre Bouton comme F1, F2 , F3 ... marche correctement mais le bouton Échappe non.
si je tape Shift + Échappe, le formulaire se ferme.
27/08/2015, 15h08
l_autodidacte
Et si tu mets ceci (testé sans problème avec plusieurs contrôles sur la feuille ):
Code:

1 2 3 Private Sub Form_Activate() Me.KeyPreview = True End Sub
Sinon il y a surement quelque chose dans ton code qui bloque l'évènement.
27/08/2015, 15h15
f_daly007

toujours le même problème, toutes les touches fonctionnent sauf le bouton Échappe.
27/08/2015, 16h33
l_autodidacte

Peut-on voir ton code à part celui de KeyDown ?

pour la fiche client

Code:

1
2
3
4
5
6
7
8
9
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
    Case vbKeyF2: CRel_Click
    Case vbKeyF3: Rech_Click
    Case vbKeyF4: Cenr_Click
    Case vbKeyF10: Csup_Click
    Case vbKeyEscape: Unload Me
End Select
End Sub

pour fiche article ce

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
 
    Select Case KeyCode
 
        Case vbKeyEscape: Unload Me
 
        Case vbKeyF3:Rech_Click
 
        Case vbKeyF4: Cenr_Click
 
    End Select
 
End Sub

pour fiche fournisseur ce

Code:

1
2
3
4
5
6
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case vbKeyEscape: Unload Me
        Case vbKeyF3: Rech_Click
    End Select
End Sub

le bouton échappe marche sans faute dans les 2 formulaires sauf fournisseur, inactive.

28/08/2015, 11h51
f_daly007

BJR,
si je tape sur Shift et Échappe en même Temp, le bouton se marche, mais sans shift ne marche pas, mais dans les 2 autres fenêtres, le bouton Échappe marche sans problème, la problème est au niveau de bouton Shift, peut être si on l'active et le mettre enfoncé à l'affichage de la fenêtre, le bouton échappe marche.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Form_Load()
DoEvents
Me.Tag = "nesfp"
OUI_MCHRD = False
CenterForm Me ' fait appelle à une procédure pour centrer la fenêtre
InitAjt ' fait appelle à une procédure pour vider tout les champs
 
'initialisation de table lstRemQT
LstRemQT.Columns(1).EditMask = "##/##/####"
LstRemQT.Columns(1).EditMaskUpdate = True
LstRemQT.Columns(1).Alignment = dbgCenter
LstRemQT.Columns(2).EditMask = "##/##/####"
LstRemQT.Columns(2).EditMaskUpdate = True
LstRemQT.Columns(2).Alignment = dbgCenter
LstRemQT.Columns(4).Alignment = dbgRight
End Sub

Ton problème est vraiment curieux car nous ne réussissons pas à le reproduire, il doit y avoir une autre partie du code autre que dans le

Code:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

qui contrarie la détection du KeCode sur le formulaire Fournisseur.
Fais un copier/coller et remplace par
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 27 Or KeyCode = vbKeyEscape Then MsgBox "Valeur de" & vbNewLine _ & "Keycode: " & KeyCode & vbNewLine _ & "Shift: " & Shift, vbInformation Stop End If Select Case KeyCode Case vbKeyEscape Unload Me Case vbKeyF3: Rech_Click End Select End Sub
Sans avoir appuyé sur la touche Shift, appuis sur la touche Echap.
Tu dois voir le message des valeurs KeyCode et Shift, réponds Ok à la boite de message.
Dés cet instant tu te retrouves dans l'éditeur VB6, pour continuer, fais une suite de touche F8 (déroulement pas à pas), regardes le déroulement
de la suite du programme, tu dois forcement passer par le Case vbKeyEscape.
Si la boite de message n'est jamais jouée, là cela dépasse mes humbles compétences, je ne pourrais pas plus t'aider.

28/08/2015, 12h36
f_daly007

malheureusement, la même problème, le bouton Échappe est toujours inactive, aucune action se fait quand je clique sur Échappe.
Merci pour Votre Aide en tout cas :)

......
Essais de mettre en commentaire comme cela
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Private Sub Form_Load() DoEvents Me.Tag = "nesfp" OUI_MCHRD = False 'CenterForm Me ' fait appelle à une procédure pour centrer la fenêtre 'InitAjt ' fait appelle à une procédure pour vider tout les champs ''initialisation de table lstRemQT 'LstRemQT.Columns(1).EditMask = "##/##/####" 'LstRemQT.Columns(1).EditMaskUpdate = True 'LstRemQT.Columns(1).Alignment = dbgCenter 'LstRemQT.Columns(2).EditMask = "##/##/####" 'LstRemQT.Columns(2).EditMaskUpdate = True 'LstRemQT.Columns(2).Alignment = dbgCenter 'LstRemQT.Columns(4).Alignment = dbgRight End Sub
Mes en route ton programme jusqu’à afficher ton formulaire Fournisseur.
Surtout n'appuies pas sur la touche Shift , place ton curseur souris sur un composant quelconque du formulaire, maintenant appuies sur la touche Echap.

Si cela ne fonctionne pas :arf::wow::scarymov:

Si cela fonctionne :aie:, le formulaire se ferme, arrêtes ton programme.
Supprimes une à une les ' en relançant comme décrit plus haut entre chaque déblocage d'une ligne.
Tu devrais trouver quel ligne libérée provoque la non prise en compte de la touche Echap.

29/08/2015, 10h13
f_daly007

bonjour,
LE même problème existe toujours, j'ai commenté le code un par un, mais toujours le bouton Échappe ne fonctionne pas
Mais j'ai décidé d'ajouter une autre fenêtre, et j'ai copié le même code, mais dans le formulaire, je n'ai laissé qu'une zone de texte , le bouton Échappe fonctionne, puis j'ai ajouté les contrôles un par un, les zones de texte de l'autre fenêtre ( Fiche Fournisseur ), puis l'exécution, puis les frames, puis les boutons, le bouton Échappe fonctionne dans la nouvelle fenêtre, mais enfin j'ai copier le bouton "Fermer" ----> le bouton Échappe ne fonctionne pas.
j'ai comparé les propriétés de ce bouton avec le bouton fermer de Fiche client j'ai trouvé la différence est que la propriétés "Cancel" doit être False, si non le bouton Échappe ne fonctionne pas.
Donc LE problème n'est pas dans le code, mais dans les boutons, il faut mettre la propriété Cancel de chaque Bouton----> False sinon il provoque la non prise en compte de la touche Échappe .

Merci pour vous tous
Merci pour votre aide :) :mouarf:
29/08/2015, 11h30
ProgElecT

:ccool:
Merci pour l’explication, elle peut être utile à d'autres, n'ayant jamais modifié cette propriété du bouton, je ne savais pas que cela annulait l'enclenchement de l'événement du KeyDown, KeyPress et du KeyUp.
A souligner que seule la touche Echap ne déclenche plus ces événements.
29/08/2015, 16h06
l_autodidacte

J'ajouterais qu'il ne faut oublier, dans ce cas, d'ajouter Me.KeyPreview = True dans Form_Activate ou dans Form_Load
31/08/2015, 09h34
f_daly007

Oui bien sur