Le 5 juin 06 à 16:39, Mark O'Neill a écrit :
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...
Thanks ... but :
No reaction on Mac or PC ;o)
I downloaded the Demo PC.
Any of my programs do not work !
regards,
--
Tehenne Saint-Denis de la Réunion
_______________________________________________
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>
