UseGadgetList

Синтаксис

sub UseGadgetList(byval hWin As HWND)

Описание

Данная функция устанавливает\переключает нужное окно для размещения на нем гаджетов(контролов)

Параметры

hWin - хендл окна

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As HWND hwnd,hwnd1
hwnd=OpenWindow("1 окно",230,30,500,500)
ButtonGadget(1,10,10,80,20,"1 кнопка")
hwnd1=OpenWindow("2 окно",30,30,500,500)
ButtonGadget(2,10,10,80,20,"2 кнопка")
UseGadgetList(hwnd)
ButtonGadget(3,100,100,80,20,"3 кнопка")
Do
  var event=WaitEvent()
  If event=EventClose Then End
Loop

Результат

Created with the Personal Edition of HelpNDoc: Free PDF documentation generator