KeyCodesMBS.AsciiToKeyCode(ascii as Integer) as Integer

You get the main key, not any modifier which may also be pressed.

Some examples using this method:

• /ComputerControl/Keycodes
• /ComputerControl/Presskey Class Example
• /MacExtras/Apple Remote/AppleRemote Receiver

KeyCodesMBS.KeyCodeToAscii(keycode as Integer) as Integer

dim k as KeyCodesMBS

k=new KeyCodesMBS

// makes a big A on a german keyboard:
MsgBox chr(k.KeyCodeToAsciiWithSecondKeyCode(0+512))

Note on a Mac:
Bit 0 to 6 are the keycode, bit 7 is 1 if key goes up and 0 if key goes down.
Bit 8 to 15 are modifier keys:

Constants for the modifier keys:

shiftKey	512	shift key down?
alphaLock	1024	alpha lock down?
optionKey	2048	option key down?
controlKey	4096	control key down?
rightShiftKey	8192	right shift key down?
rightOptionKey	16384	right Option key down?
rightControlKey	32768	right Control key down?

Not available in 64-bit.
See MacTextForKeyCode method in RemoteControlMBS module.

KeyCodesMBS.KeyCodeToAsciiWithSecondKeyCode(keycode as Integer) as Integer

dim k as KeyCodesMBS

k=new KeyCodesMBS

MsgBox str(k.KeyCodeToAscii(&h0A))
MsgBox chr(k.KeyCodeToAsciiWithSecondKeyCode(0))

// gives â on a German Keyboard

On the first call of KeyCodeToAscii you get the ASCII char, but if you call KeyCodeToAsciiWithSecondKeyCode and the state property is not changed, you can get what the user gets if he presses several keys.
KeyCodeToAscii resets state to 0 before calling.
On Windows, KeyCodeToAscii and KeyCodeToAsciiWithSecondKeyCode are equal.

Note on a Mac:
Bit 0 to 6 are the keycode, bit 7 is 1 if key goes up and 0 if key goes down.
Bit 8 to 15 are modifier keys:

Constants for the modifier keys:

shiftKey	512	shift key down?
alphaLock	1024	alpha lock down?
optionKey	2048	option key down?
controlKey	4096	control key down?
rightShiftKey	8192	right shift key down?
rightOptionKey	16384	right Option key down?
rightControlKey	32768	right Control key down?

Not available in 64-bit.

KeyCodesMBS.TestForAsciiKeyDown(ascii as Integer) as boolean

KeyCodesMBS.TestForKeyDown(keycode as Integer) as boolean

Dim k As New KeyCodesMBS

Const VK_SHIFT = &h10 // for Windows
If k.TestForKeyDown(VK_SHIFT) Then
  MsgBox "shift"
Else
  MsgBox "no shift"
End If

Some examples using this method:

• /ComputerControl/Keycodes