Trouver l'espace de travail de windows

Commenter

Contenu du snippet

Cette routine permet de trouver l'espca de travail de windows(la portion d'écran qui n'est pas utilisée par la barre des taches ou tout autre barre)

Source / Exemple : 


'A mettre dans un module

Public Const SPI_GETWORKAREA = 48
Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long

Public Type RECT
    Left   As Long
    Top    As Long
    Right  As Long
    Bottom As Long
End Type

'Routine
Dim lngTop, lngLeft, lngRight, lngBottom As Long
Dim typRect As RECT

Call SystemParametersInfo(SPI_GETWORKAREA, vbNull, typRect, 0)
With typRect
    lngTop = .Top
    lngLeft = .Left
    lngRight = .Right
    lngBottom = .Bottom
End With

'On récupère les coordonnées dans:
' typRect.Bottom
' typRect.Top
' typRect.Left
' typRect.Right

Conclusion :


That's all..

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 (Tilois)