Close_Window

Синтаксис

Sub Close_Window(ByVal hWin As HWND)

Описание

Закрывает(уничтожает) окно. Вы должны понимать , что кроме окна уничтожаются гаджеты , но не очищаются ресурсы, выделенные под гаджеты , меню  и пр. Данные ресурсы занимают мало памяти , но все же при активном создании и удалении гаджетов и меню, утечки памяти могут вырасти до заметных величин.  Поэтому перед тем как удалять окно , следует удалить гаджеты и меню , размещенные в этом окне с помощью FreeGadget , Delete_Menu .

Параметры

hWin - окно, которое следует удалить

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Enum
  BUTTON  = 1
  TEXT
  EDITOR
End Enum
Sub FreeGadgets()
  For i As Long = BUTTON To EDITOR
     FreeGadget(i)
  Next
End Sub
Dim As Long event
Dim As HWND hwnd
hwnd=OpenWindow("Hello",10,10,150,250)
EditorGadget(EDITOR,10,10,100,100)
TextGadget(TEXT,10,120,100,30,"textstring")
ButtonGadget(BUTTON,10,160,70,30,"button")
Do
  event=WaitEvent()
  If Event=EventClose Then
     If EventHwnd()=hwnd Then
        FreeGadgets()
        Close_Window(hwnd)
        Exit Do
     EndIf
  EndIf
Loop

Created with the Personal Edition of HelpNDoc: Create HTML Help, DOC, PDF and print manuals from 1 single source