Advertisement
Sprenger120

Accelerator Demo

Jun 29th, 2011
130
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 0.59 KB | None | 0 0
  1. #include <GUIConstantsEx.au3>
  2. ;Eine Accelerator Demo
  3. ;accelerators verknüpfen hotkeys mit controls
  4. GUICreate("AcceleratorDemo", 500, 500) ;gui erstellen
  5. $Button1 = GUICtrlCreateButton("Button1", 80, 96, 121, 57) ;einen button erstellen
  6. Global $aAcc[1][2] = [["a",$Button1]];Die Accelerator Liste erstellen
  7. ;[   ["Kotkey",$ControlID] ]
  8. GUISetAccelerators($aAcc);accelerator setzen
  9.  
  10. GUISetState(@SW_SHOW)
  11. ;bitte a drücken um das event auszulösen
  12.  
  13.  
  14. While 1
  15.     $nMsg = GUIGetMsg()
  16.     Switch $nMsg
  17.         Case $GUI_EVENT_CLOSE
  18.             Exit
  19.         Case $Button1
  20.             MsgBox (0,"","pressed")
  21.     EndSwitch
  22. WEnd
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement