DraaFil
Messages postés264Date d'inscriptionmercredi 16 avril 2003StatutMembreDernière intervention23 mars 2012
-
27 août 2006 à 18:03
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 2011
-
27 août 2006 à 21:00
Bonjour a tous,
c'est la premiere fois que j'utilise le clavier dans mon programme. j'explique ce que je veux faire, p-t pourriez-vous m'aider.
j'ai un listview, je me deplace a l'aide du clavier. J'aimerais lorsques j'appuie sur "ENTER" cela m'affiche dans un msgox la valeur de la ligne selectionne.
Je sais qu'il y a un code pour le caractere "ENTER" mias je voudrais aussi celui de :"ESC" et "F12"
Private Sub List1_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
' *** exemple avec la touche F12, tu auras en message l'item sélectionné
Case vbKeyF12: MsgBox List1
' *** exemple avec la touche Entrée, tu auras en message l'item sélectionné
Case vbKeyReturn: MsgBox List1
' *** exemple avec la touche Echap, tu auras en message l'item sélectionné
Case vbKeyEscape: MsgBox List1
End Select
End Sub
DraaFil
Messages postés264Date d'inscriptionmercredi 16 avril 2003StatutMembreDernière intervention23 mars 2012 27 août 2006 à 20:49
autre question en lien avec cela, savez-vous comment faire un if et non un case pour une touche.
comment faire pour que si j'appuie sur enter que le focus soit sur n'importe quel controle, cela fait un evenement. car pour le moment la selection est sur la listview et sa fonctionne mais pour le programme en general, je ne sais pas comment faire .
Private Sub List1_KeyDown(KeyCode As Integer, Shift As Integer)
' *** exemple avec la touche F12, tu auras en message l'item sélectionné
If KeyCode = vbKeyF12 Then
MsgBox List1
' *** exemple avec la touche Entrée, tu auras en message l'item sélectionné
ElseIf KeyCode = vbKeyReturn Then
MsgBox List1
TonControl.SetFocus ' *** sélection du contrôle
' *** exemple avec la touche Echap, tu auras en message l'item sélectionné
ElseIf KeyCode = vbKeyEscape Then
MsgBox List1
End If
End Sub