Hauteur de l'écran sans la barre de tâche

Commenter

Contenu du snippet

Voici un module qui permet de faire un maximize de sa forme mais uniquement sur la hauteur.
Dans le load de votre forme placer ceci :
call Maximize_Height (Me)

Source / Exemple : 


Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long

Private Const SPI_GETWORKAREA = 48

Private Type RECT   ' Partie visible de l'écran
Left   As Long      ' Position de départ
Top    As Long      ' Position de départ
Right  As Long      ' Largeur
Bottom As Long      ' Hauteur
End Type

Public Sub Maximize_Height(Form As Object)
Dim WorkArea As RECT

Call SystemParametersInfo(SPI_GETWORKAREA, 0, WorkArea, 0)

If WorkArea.Top <> 0 Then
   ' La barre de tâche se trouve en haut
   Form.Top = WorkArea.Top * Screen.TwipsPerPixelY
   Form.Height = (WorkArea.Bottom - WorkArea.Top) * Screen.TwipsPerPixelY
Else
   Form.Top = 0
   Form.Height = WorkArea.Bottom * Screen.TwipsPerPixelY
End If

End Sub

A voir également

S'inscrire maintenant

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.

Du même auteur (Orthonic)