Ctrl+t

Ascii koden for Ctrl er 17
Og for t er 84

Koden 84 er så vidt jeg ved "T". Men anyway, jeg kan ikke få følgende kode til at fungere:

If KeyAscii = (116 + 17) Then
MsgBox "OK"
End If

Hvorfor?

jeg har lavet et lille program til det med ascii værdier...

Du er velkommen til at downloade det

www.tms.adsl.dk/AsciiVærdier.exe

Kan du ikke skrive det. Det er ikke tilladt på min arbejdsplads at downloade fra nettet.

Private Const VK_F5 = &H74

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

Private Sub Form_Load()
  Me.Caption = Asc(Chr(VK_F5))
  Me.KeyPreview = True
End Sub

Koden resulterer ikke i det jeg skal bruge. Koden indsætter 116 i me.caption og viser ved tastetryk koden for tasten.

Det jeg skal bruge er:

Ved samtidigt tryk på ctrl og t, skal en meddelelsesboks vises med teksten 'ok'.

Kan du klare den?

du kan jo lave noget med:

Dim intVar as integer
Dim intKC as integer

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  intKC = keycode
  Intvar = intvar + intkc
 
  If intVar = 133 (den samlede ascii værdi) then
      msgbox "OK", vbokonly+vbinformation, "Succes"
  End if
End Sub

Og så lav formload'en om til:

Private Sub Form_Load()
  Me.KeyPreview = True
End Sub

Det virker ikke.

Men jeg opdager at jeg har undladt at nævne, at koden skal bruges i vba. Så måske derfor har jeg ikke me.preview i samlingen og koden ikke virker.

JA!

Eller:

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

If Shift = 2 And KeyCode = 84 Then MsgBox "OK"

End Sub

Mvh
Martin

Du skal så bare skifte Form_KeyDown ud med KeyDown event'en for din textbox...

Tusind tak brobaek. Det var jo enkelt.

Selv tak...