Trouble closing..

[oToom]

Okay stupid questions,

This closes (i dont get to see the very small box.

Code: Select all

; PureBasic Visual Designer v3.95 build 1485 (PB4Code)


;- Window Constants
;
Enumeration
  #Window_0
EndEnumeration


Open_Window_0()
OpenWindow(#Window_0, 702, 419, 5, 5, "",  #PB_Window_BorderLess | #PB_Window_ScreenCentered | #PB_Window_WindowCentered )
    CreateGadgetList(WindowID(#Window_0))
            BackColor(black)

AddKeyboardShortcut(#Window_0, #PB_Shortcut_Escape, #PB_Event_CloseWindow)

Repeat
  Event = WaitWindowEvent()
 
  Select Event

  
    Case #PB_Event_CloseWindow
      Break
  EndSelect
ForEver

Help appreviated, please and thanks!

[rsts]

The particular code you provided won't even run, so it's not surprising you don't see anything.

cheers

[netmaestro]

Code: Select all

Enumeration
  #Window_0
EndEnumeration

OpenWindow(#Window_0, 702, 419, 5, 5, "",  #PB_Window_BorderLess | #PB_Window_ScreenCentered | #PB_Window_WindowCentered )
SetWindowColor(#window_0, #Black)

AddKeyboardShortcut(#Window_0, #PB_Shortcut_Escape, 1)

Repeat
  Event = WaitWindowEvent()
  Select Event
    Case #PB_Event_Menu 
      If EventMenu()=1
        Break
      EndIf
  EndSelect
ForEver

This works, but bear in mind that if the tiny window doesn't have the keyboard focus, the ESC key won't do anything. Best replace it with something else like a hotkey or perhaps GetAsyncKeyState.

[oToom]

Thanks rsts for letting me know it wouldn't work.

Also thanks, netmaestro for some working code. Greatly appreciated