Forums PureBasic - Français
http://forums.purebasic.com/french/
Code : Tout sélectionner
If OpenWindow(0, 450, 200, 104, 0, "Dummy invisible window", #PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_TitleBar|#PB_Window_Invisible)
; La 1ère fenêtre ne sert qu'à cacher la seconde (elle n'apparaît pas dans la barre des tâches)
If OpenWindow(1, 450, 200, 402, 402, "Window", #PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_TitleBar|#PB_Window_BorderLess|#PB_Window_Tool, WindowID(0))
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
CloseWindow(0)
CloseWindow(1)
Break
EndSelect
ForEver
EndIf
EndIfCode : Tout sélectionner
; Auteur : Le Soldat Inconnu
; Version de PB : 4.50
;
; Explication du programme :
; ToolWindow sans bordure et invisible dans la barre des tâches
; Création de la fenêtre et de la GadgetList
If OpenWindow(0, 0, 0, 300, 300, "Test", #PB_Window_NoGadgets | #PB_Window_Invisible) = 0
End
EndIf
If OpenWindow(1, 0, 0, 300, 300, "Test", #PB_Window_BorderLess | #PB_Window_Invisible, WindowID(0)) = 0
End
EndIf
SetWindowLong_(WindowID(1), #GWL_EXSTYLE, GetWindowLong_(WindowID(1), #GWL_EXSTYLE) | #WS_EX_TOOLWINDOW)
HideWindow(1, 0)
Repeat
Event = WaitWindowEvent()
Until Event = #PB_Event_CloseWindow
Code : Tout sélectionner
; Auteur : Le Soldat Inconnu
; Version de PB : 4.50
;
; Explication du programme :
; ToolWindow sans bordure et invisible dans la barre des tâches
; Création de la fenêtre et de la GadgetList
; If OpenWindow(0, 0, 0, 300, 300, "Test", #PB_Window_NoGadgets | #PB_Window_Invisible) = 0
; End
; EndIf
OpenWindow(1, 0, 0, 300, 300, "Test", #PB_Window_BorderLess | #PB_Window_Invisible);, WindowID(0)) = 0
;End
;EndIf
SetWindowLong_(WindowID(1), #GWL_EXSTYLE, GetWindowLong_(WindowID(1), #GWL_EXSTYLE) | #WS_EX_TOOLWINDOW)
HideWindow(1, 0)
Repeat
Event = WaitWindowEvent()
Until Event = #PB_Event_CloseWindow
end
