' ************************************************************************
' Comment faire pour qu'une application écrite en langage VB3 (16 bits)
' s'exécute en plein écran en masquant la barre des tâches de Windows,
' et restaure cette barre des tâches lors de la fermeture de l'application
' ************************************************************************
Source / Exemple :
' ------------------------------------------
' Déclarations de Fonctions de l'API 16 bits
' (une seule ligne par déclaration)
' ------------------------------------------
Declare Function FindWindow Lib "User" (ByVal lpClassName As String, ByVal lpWindowName As Any) As Integer
Declare Function SetWindowPos Lib "User" (ByVal h%, ByVal hb%, ByVal X%, ByVal y%, ByVal cx%, ByVal cy%, ByVal F%) As Integer
' ----------------------------------------------
' Procédures à incorporer dans un module général
' de l'application
' ----------------------------------------------
Sub HideTaskbar ()
Dim r As Integer
Dim hWin As Integer
hWin = FindWindow("Shell_TrayWnd", "")
r = SetWindowPos(hWin, 0, 0, 0, 0, 0, &H80)
End Sub
Sub UnHideTaskbar ()
Dim r As Integer
Dim hWin As Integer
hWin = FindWindow("Shell_TrayWnd", "")
r = SetWindowPos(hWin, 0, 0, 0, 0, 0, &H40)
End Sub
' -------------------------------------------
' Exemple d'appel de la procédure HideTaskbar
' Ce code sera incorporé dans la procédure
' événementielle Form_Load () s'exécutant
' au lançement de l'application
' -------------------------------------------
HideTaskbar
Form1.WindowState = 0
Width = Screen.Width
Height = Screen.Height
Left = (Screen.Width - Width) / 2
Top = (Screen.Height - Height) / 2
' ----------------------------------------------
' Exemple d'appels de la procédure UnHideTaskbar
' à incorporer dans les procédures s'exécutant
' à la fermeture de l'application
' ----------------------------------------------
Sub mnuQuitter_Click ()
UnHideTaskbar
End
End Sub
Sub Form_Unload (Cancel As Integer)
UnHideTaskbar
End
End Sub
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.