Уроки PureBasic

Categories

Other Sites

Other Sites



             Поиск по сайту

     

                


    Оставить мне сообщение:



Закрыть окно

Различные варианты кода закрытия окна :

Уроки PureBasic

1.

OpenWindow(0,0,0,200,50,"Close me ?",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)

CreateGadgetList(WindowID(0))
ButtonGadget(0,10, 10,100,24,"Закрыть")

Repeat
Event=WaitWindowEvent()
If Event= #PB_Event_Gadget And EventGadget()=0
Break ; Прерываем главный цикл
EndIf

Until Event = #PB_Event_CloseWindow
End


Уроки PureBasic

</span>

2.

hWnd =OpenWindow(0,0,0,200,50,"Close me ?",#PB_Window_BorderLess )

SetWindowColor(0, $F3C250) ;задаём цвет окна
CreateGadgetList(WindowID(0))
ButtonGadget(0,10, 10,100,24,"Закрыть")

Repeat
Event=WaitWindowEvent()

If Event = #WM_LBUTTONDOWN
SendMessage_(hWnd,#WM_NCLBUTTONDOWN, #HTCAPTION,0)
EndIf

If Event= #PB_Event_Gadget And EventGadget()=0 ; выбор гаджета с индификатором 0
Break ; Прерываем главный цикл
EndIf
ForEver



Уроки PureBasic



Второй вариант отличается от первого отсутствием системной рамки, системной кнопки "закрыть" и возможность перетягивания мышкой.
Уроки PureBasic

3.

OpenWindow(0,0,0,200,50,"Close me ?",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)

CreateGadgetList(WindowID(0))
ButtonGadget(0,10, 10,100,24,"Закрыть")

Repeat
Event=WaitWindowEvent()

If Event = #WM_LBUTTONDOWN
SendMessage_(hWnd,#WM_NCLBUTTONDOWN, #HTCAPTION,0)
EndIf

If Event= #PB_Event_Gadget And EventGadget()=0 ; выбор гаджета с индификатором 0
Break ; Прерываем главный цикл
EndIf
If event=#PB_Event_CloseWindow
MessageRequester("","Не закрывается, заржавела кнопка")

EndIf
ForEver


При нажатии на системную кнопку, всплывает окно сообщение....

</span>

Уроки PureBasic

 

Используются технологии uCoz