Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Function scan2ascii(ByVal scancode, ByVal result)
- Dim hIMC As IntPtr = ImmGetContext(Me.Handle)
- Dim hKL As IntPtr = GetKeyboardLayout(0)
- Dim State = New Byte(255) {}
- If GetKeyboardState(State) = False Then
- Return 0
- End If
- Return MapVirtualKeyEx(scancode, 1, hKL)
- End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement