Member Avatar for gian10890

here's my code:

this code executes by pressing ALT Q, then the msgbox will return the key value of Q which is 81

Private Sub Form_KeyUp(KeyCode As Integer, x As Integer)
If x = vbAltMask Then
    If KeyCode = vbKeyQ Then
        MsgBox KeyCode
    End If
End If
End Sub

actually dis code works but all I want to happen is that every time I hit the ALT Q, its like pressing the numpad7 at the same time...

help me guys.
tnx in advance, merry Christmas

Edited by Nick Evan because: Added code-tags
  • 2 Contributors
  • 3 Replies
  • 105 Views
  • 1 Day Discussion Span
  • Latest Post Latest Post by vb5prgrmr
Member Avatar for vb5prgrmr

So you want to have it seem like you are pressing ALT+Q+7??? Or just 7?

If just 7 then KeyCode = vbKey7

Good Luck

Member Avatar for gian10890

no sir,
each time i press the alt Q, the program should also press the numpad7.
its like hotkey for dota...

ALT Q= numpad7
ALT W= numpad8
ALT A= numpad4
ALT S= numpad5
ALT Z= numpad1
ALT X= numpad2

Member Avatar for vb5prgrmr

So then only 7...

If Shift = vbAltMask Then
  If KeyCode = vbKeyQ Then KeyCode = vbKey7
End If

However, I don't see how this code helps you as I did a simple test with a text box and even though I changed the keycode with the above, it did not input it into the text box. I even tried...

If Shift = vbAltMask Then
  If KeyCode = vbKeyQ Then
    KeyCode = vbKey7
    Shift = 0
  End If
End If

and still did not help with resetting shift key. However, text1.text = text1.text & "7" did work but I'll warn you now. Only use the down or up and not both :)...

Good Luck

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.