I know that we had better open the windows than close, but consider the following code:
Code: Select all
' uses WinGUI(12) by Lothar Schirm
#Include "WinGUI.bi"
#Include "fbgfx.bi"
Using FB
Dim As HWND Window_Main, Graphic_Screen, Button_Open, Button_Close
Dim As MSG msg
dim as string driver
Window_Main = Window_New (100, 100, 300, 300, "This window controls graphics")
Button_Open = Button_New (50, 100, 60, 20, "Open",, Window_Main)
Button_Close = Button_New (50, 200, 60, 20, "Close",, Window_Main)
Do
WaitEvent(Window_Main, msg)
Select Case msg.hwnd
Case Button_Open
If msg.message = WM_LBUTTONDOWN Then
ScreenRes 320, 200, 32
Print "Graphics Open"
End If
Case Button_Close
If msg.message = WM_LBUTTONDOWN Then
ScreenControl GET_WINDOW_HANDLE, Graphic_Screen
DestroyWindow(Graphic_Screen)
Print "Graphics Closed"
End If
End Select
Loop Until Window_Event_Close(Window_Main, msg)
DestroyWindow(Window_Main)
Print "Window Closed"
Sleep
End
"error 98: No matching overloaded function, SCREENCONTROL() in 'ScreenControl GET_WINDOW_HANDLE, Graphic_Screen'".
Probably I have missed something. Any clues appreciated.
Carlos