Forcer l'état d'affichage d'une fenêtre (agrandir, réduire).

rem ============================================================================
rem               ShowWindow
rem ============================================================================
rem Cette fonction permet de forcer l état d affichage d une fenêtre (agrandir, réduire).
rem La fonction demande deux paramètres :
rem hWnd est un pointeur (handle) vers une fenêtre.
rem nCmdShow peut prendre la valeur d une constante voir ci-dessous.
rem La fonction retourne 0 si la fenêtre était cachée,
rem et une valeur différente de 0 dans le cas contraire.
rem ============================================================================

form 10
form 20 : left 20,500

 ShowWindow(10)
end
rem ============================================================================
SUB  ShowWindow(Num_Form)
    dim_local hWnd,ret%
    dim_local SW_HIDE : SW_HIDE = 0 : ' Cache la fenêtre et en active une autre
    dim_local SW_MAXIMIZE : SW_MAXIMIZE = 3 : ' Agrandit la fenêtre
    dim_local SW_MINIMIZE : SW_MINIMIZE = 6 : ' Réduit la fenêtre et active la prochaine (dans l'ordre des tâches windows)
    dim_local SW_RESTORE  : SW_RESTORE  = 9 : ' Active et affiche la fenêtre à sa taille et position initiales
    dim_local SW_SHOW     : SW_SHOW     = 5 : ' Active et affiche la fenêtre
    dim_local SW_SHOWMAXIMIZED : SW_SHOWMAXIMIZED = 3 : ' Active et agrandit la fenêtre
    dim_local SW_SHOWMINIMIZED : SW_SHOWMINIMIZED = 2 : ' Active et réduit la fenêtre
    dim_local SW_SHOWNA   : SW_SHOWNA = 8 : ' Identique à SW_SHOW sauf que la fenêtre n'est pas activée
' ------------------------------------------------------------------------------
    dll_on "user32"
    hWnd = handle(Num_Form)
    ret% = dll_call2("ShowWindow",hWnd,0) : ' cache FORM(Num_FORM) et active la suivante
    pause 1000
    ret% = dll_call2("ShowWindow",hWnd,5) : ' Active et affiche FORM(Num_FORM)
    pause 1000
    ret% = dll_call2("ShowWindow",hWnd,3) : ' Agrandit FORM(Num_FORM)
    pause 1000
    ret% = dll_call2("ShowWindow",hWnd,6) : ' Réduit la fenêtre et active la prochaine (dans l'ordre des tâches windows)
    pause 1000
    ret% = dll_call2("ShowWindow",hWnd,2) : ' Active et réduit la fenêtre (en bas à gauche du bureau)
    pause 1000
    ret% = dll_call2("ShowWindow",hWnd,9) : ' Active et affiche la fenêtre à sa taille et position initiales
    pause 1000
    ret% = dll_call2("ShowWindow",hWnd,8) : ' Identique à SW_SHOW sauf que la fenêtre n'est pas activée
    pause 1000
    ret% = dll_call2("ShowWindow",hWnd,0) : ' cache FORM(Num_FORM) et active la suivante
    dll_off
END_SUB
rem ============================================================================