Hi There,
| In the Event Handlers of this window, I have only this :
|
| Function KeyDown(Key As String) As Boolean
| if keyBoard.MenuShortcutKey then
| select case key
| case "p"
| if keyboard.shiftKey then
| StaticText1.text="P majuscule"
| else
| StaticText1.text="p minuscule"
| end
| case "m"
| StaticText1.text="Ça marche"
| end select
| end
| End Function
Modified from the Language Reference:
if keyBoard.MenuShortcutKey and Keyboard.ShiftKey then
If Keyboard.AsynckeyDown(&h00) then
StaticText1.text = "Ctrl+Shift+A"
end if
end if
Hope that helps in some way...
All the best,
Mark.
--
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.1.394 / Virus Database: 268.8.1/355 - Release Date: 02/06/2006
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
