Monkeybread Xojo plugin - Example: /Win/Windows Hot Key

Platforms to show: All Mac Windows Linux Cross-Platform

Required plugins for this example: MBS Win Plugin

You find this example project in your Plugins Download as a Xojo project file within the examples folder: /Win/Windows Hot Key

This example is the version from Sun, 17th Mar 2012.

Project "Windows Hot Key.xojo_binary_project"

Class App Inherits Application

Const kEditClear = "&Delete"

Const kFileQuit = "&Quit"

Const kFileQuitShortcut = ""

End Class

Class Window1 Inherits Window

Control Listbox1 Inherits Listbox

ControlInstance Listbox1 Inherits Listbox

End Control

EventHandler Sub Open() m = new MyWindowsKeyFilterMBS if m.Install then Listbox1.AddRow "Event handler installed" else Listbox1.AddRow "failed to install event handler" end if End EventHandler

Property Protected m As myWindowsKeyFilterMBS

End Class

MenuBar MenuBar1

MenuItem FileMenu = "&File"

MenuItem FileQuit = "#App.kFileQuit"

MenuItem EditMenu = "&Edit"

MenuItem EditUndo = "&Undo"

MenuItem UntitledMenu1 = "-"

MenuItem EditCut = "Cu&t"

MenuItem EditCopy = "&Copy"

MenuItem EditPaste = "&Paste"

MenuItem EditClear = "#App.kEditClear"

MenuItem UntitledMenu0 = "-"

MenuItem EditSelectAll = "Select &All"

End MenuBar

Class MyWindowsKeyFilterMBS Inherits WindowsKeyFilterMBS

EventHandler Function KeyDown(vkCode as integer, scanCode as integer, flags as integer, time as integer) As Boolean if vkCode = &h74 then // F5 window1.Listbox1.AddRow "F5 down" Return true end if End EventHandler

EventHandler Function KeyUp(vkCode as integer, scanCode as integer, flags as integer, time as integer) As Boolean if vkCode = &h74 then // F5 window1.Listbox1.AddRow "F5 up" Return true end if End EventHandler

End Class

End Project