VB6 KeyDown avec la touche Shift

Question

Salut à tous...

J'ai un petit prob avec La touche Shift et F6...

Je veux que si j'appuis sur Shjift et F6 cela modifira quelque truc...

Bref quand je fais Shift-F6 c'est comme si je fesais que la touche F6 il ne tient pas compte du Shift... Pourquoi ???????

merci d'avance

Voici une partie de mon code...

Private Sub form_Keydown(KeyCode As Integer, Shift As Integer)

txtContrat.SetFocus
   Select Case KeyCode

Code que je vous épargne......
   
        Case vbKeyF6
            lblAbsent.Caption = ""
            lblAbsent.BorderStyle = 0
            cboListe.Text = "(F6) Minute"
            Call cmdOuvrir_Click
            
        Case vbKeyF6 And Shift
            lblAbsent.Caption = ""
            lblAbsent.BorderStyle = 0
            cboListe.Text = "(F6) Minute TIF"
            Call cmdOuvrir_Click
            
Autre code que je vous épargne....        
        
        End Select
End Sub

cs_casy · Answer

As-tu regarder l'exemple fourni dans l'aide pour l'évènement KeyDown, c'est clairement expliqué

Private Sub form_Keydown(KeyCode As Integer, Shift As Integer)
Dim ShiftDown As Integer

   Const vbShiftMask =  1
   ShiftDown = (Shift  And  vbShiftMask) > 0

txtContrat.SetFocus
Select Case KeyCode

' Code que je vous épargne......

Case vbKeyF6
If Not ShiftDown Then
lblAbsent.Caption  = ""
            lblAbsent.BorderStyle =  0
            cboListe.Text = "(F6) Minute"
 Call  cmdOuvrir_Click
Else
lblAbsent.Caption  = ""
            lblAbsent.BorderStyle =  0
            cboListe.Text = "(F6) Minute TIF"
 Call  cmdOuvrir_Click
End If

' Autre code que je vous épargne....        

End Select
End Sub

---- Sevyc64  (alias Casy) ----<hr size ="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

cs_casy · Answer

Oupps, l'indentation à quelque peu merdé

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

jmfmarques · Answer

C'est parce que Keycode et Shift sont des variables différentes

Tu n'as normalement pas besoin de faire un Select case, mais j'en fais un ici pour que tu comprennes :

Private Sub form_Keydown(KeyCode As Integer, Shift As Integer)
   Select Case KeyCode
        Case vbKeyF6
            If Shift Then MsgBox "OUI" Else MsgBox "oui"
         Case Else
        End Select
End Sub

cs_JeffC1977 · Answer

Merci de votre aide    très apprécié...

A+

VB6 KeyDown avec la touche Shift

4 réponses

Votre réponse

Discussions similaires