Sub HideWindow(ByVal hWin As HWND, ByVal state As Long)
Скрывает(отображает) текущее окно
hWin - хендл окна
state - флаг, может быть:
1 - скрывает окно
0 - отображает окно
Windows , Linux
#Include "window9.bi"
Dim As HWND hwnd,hwnd1
hwnd=OpenWindow("1",300,10,500,500)
hwnd1=OpenWindow("2",10,10,500,500)
Do
var event=WaitEvent()
If event=EventClose Then End
If event=eventlbdown Then HideWindow(hwnd,1)
If event=eventrbdown Then HideWindow(hwnd,0)
Loop
Created with the Personal Edition of HelpNDoc: Full featured EBook editor