Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyF2 Call Gem_Click Case Else MsgBox "KeyCode: " & keyCode & Chr$(13) & Chr$(10) & "Shift: " & Shift End Select End Sub
til proaccess: Jeg har indsat din kode og får følgende resultat når jeg trykker "G"
KeyCode: 71 Shift: 0
Hvordan omsætter jeg denne viden til en brugbar genvejstast ("alt + g"). Funktionen skal jo ikke kaldes hver gang der bliver trykket g så det kan ikke være 71+0, da dette er lig g's værdi alene.
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyF2 Call Gem_Click Case 71 If Shift=0 then ' Her kommer koden, som skal køre når du taster 'G' End If Case Else MsgBox "KeyCode: " & keyCode & Chr$(13) & Chr$(10) & "Shift: " & Shift End Select End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyF2 Call Gem_Click Case vbKeyG If Shift=acAltMask then ' Her kommer koden, som skal køre når du taster 'Alt' & 'G' End If Case Else MsgBox "KeyCode: " & keyCode & Chr$(13) & Chr$(10) & "Shift: " & Shift End Select End Sub
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.