Warum will dr Code nicht piepen?
Code: Alles auswählen
Enumeration
#Window
#ShortcutReturn
EndEnumeration
OpenWindow(#Window, #PB_Ignore, #PB_Ignore, 300, 300, "Shortcut-Test", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
AddKeyboardShortcut(#Window, #PB_Key_Return, #ShortcutReturn)
Repeat
Select WindowEvent()
Case #PB_Event_Menu
Select EventMenu()
Case #ShortcutReturn
Beep_(150, 150)
EndSelect
Case #PB_Event_CloseWindow
CloseWindow(#Window)
End
Default
Delay(5)
EndSelect
ForEver
einfach nicht - wahhHH zu Hilfe!