Platforms to show: All Mac Windows Linux Cross-Platform

/ComputerControl/Press key/Presskey Class Example
Function:
Required plugins for this example: MBS ComputerControl Plugin
You find this example project in your Plugins Download as a Xojo project file within the examples folder: /ComputerControl/Press key/Presskey Class Example
This example is the version from Sun, 23th Sep 2017.
Project "Presskey Class Example.xojo_binary_project"
Class Window1 Inherits Window
Control EditField1 Inherits TextField
ControlInstance EditField1 Inherits TextField
End Control
Control PushButton1 Inherits PushButton
ControlInstance PushButton1 Inherits PushButton
EventHandler Sub Action() ' You find the codes in your Xojo docs ' the same keycodes like for the spritesurface! dim p as PresskeyMBS p=new PresskeyMBS p.shift=true p.charcode=asc("H") p.keycode=4 p.press 'press H p.shift=false p.charcode=asc("e") p.keycode=14 p.press 'press e p.charcode=asc("l") p.keycode=37 p.press 'press l p.press 'press l p.charcode=asc("o") p.keycode=31 p.press 'press o End EventHandler
EventHandler Sub Open() me.enabled=targetmacOS End EventHandler
End Control
Control PushButton2 Inherits PushButton
ControlInstance PushButton2 Inherits PushButton
EventHandler Sub Action() ' You find the codes in your Xojo docs ' the same keycodes like for the spritesurface! dim p as PresskeyMBS p=new PresskeyMBS p.charcode=0 p.keycode=&h38 p.pressraw true 'shift down p.charcode=asc("H") p.keycode=4 p.pressraw true 'press H p.pressraw false p.charcode=0 p.keycode=&h38 p.pressraw false 'shift up p.charcode=asc("e") p.keycode=14 p.pressraw true 'press e p.pressraw false p.charcode=asc("l") p.keycode=37 p.pressraw true 'press l p.pressraw false p.pressraw true 'press l p.pressraw false p.charcode=asc("o") p.keycode=31 p.pressraw true 'press o p.pressraw false End EventHandler
EventHandler Sub Open() me.enabled=targetmacOS End EventHandler
End Control
Control PushButton3 Inherits PushButton
ControlInstance PushButton3 Inherits PushButton
EventHandler Sub Action() ' -1 is for this plugin the automatic mode dim p as PresskeyMBS editfield1.setfocus 'so we get something in it! p=new PresskeyMBS p.shift=true p.charcode=asc("H") p.virtualCode=-1 'automatically try to get this code p.press 'press H p.shift=false p.virtualCode=-1 'after a call you find the virtualCode there p.charcode=asc("e") p.press 'press e p.virtualCode=-1 p.charcode=asc("l") p.press 'press l p.press 'press l p.virtualCode=-1 p.charcode=asc("o") p.press 'press o End EventHandler
EventHandler Sub Open() me.enabled=targetwin32 End EventHandler
End Control
Control PushButton4 Inherits PushButton
ControlInstance PushButton4 Inherits PushButton
EventHandler Sub Action() dim p as PresskeyMBS dim k as KeyCodesMBS k=new KeyCodesMBS p=new PresskeyMBS p.command=true p.charcode=asc("q") p.Keycode=k.AsciiToKeyCode(asc("q")) 'p.keycode=12 'from the table for SpriteSurface keycodes p.virtualCode=-1 'auto generate VirtualCode on Windows p.press End EventHandler
End Control
End Class
MenuBar Menu
MenuItem UntitledMenu3 = ""
MenuItem UntitledMenu2 = "File"
MenuItem FileQuit = "Quit"
MenuItem UntitledMenu0 = "Edit"
MenuItem EditUndo = "Undo"
MenuItem UntitledMenu1 = "-"
MenuItem EditCut = "Cut"
MenuItem EditCopy = "Copy"
MenuItem EditPaste = "Paste"
MenuItem EditClear = "Clear"
End MenuBar
Class App Inherits Application
End Class
End Project

See also:

Feedback, Comments & Corrections

The items on this page are in the following plugins: MBS ComputerControl Plugin.

The biggest plugin in space...




Links
MBS FileMaker Plugins

Start Chat