Trouver l'espace de travail de windows

Soyez le premier à donner votre avis sur cette source.

Snippet vu 2 590 fois - Téléchargée 42 fois

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

Ajouter un commentaire

Commentaire

Messages postés
1491
Date d'inscription
dimanche 19 novembre 2000
Statut
Modérateur
Dernière intervention
7 juillet 2014

It's good

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.