Connaitre les dimensions (largeur et hauteur) utilisables de l'ecran

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 352 fois - Téléchargée 43 fois

Contenu du snippet

Merci à Plug_Off (VBfrançais) pour ce code,

Les fonctions largeur_ecran et hauteur_ecran renvoie respectivement la largeur et la hauteur utilisable de l'écran (type : Long) elle prennent en compte, les barres offices, les menus démarrer et tout autre chose "fixe" à l'écran...

Source / Exemple :


Option Explicit

' Publié par 69VobD3 (DivX-Paradise.net)
' Merci à Plug_Off (VBfrançais) pour ce code

Private Type RECT
  left As Long
  tOp As Long
  Right As Long
  Bottom As Long
End Type

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

Public Function largeur_ecran() As Long
Dim prect As RECT
If SystemParametersInfo(SPI_GETWORKAREA, 0, prect, 0) Then
    largeur_ecran = (prect.Right - prect.left) * Screen.TwipsPerPixelX
End If
End Function

Public Function hauteur_ecran() As Long
Dim prect As RECT
If SystemParametersInfo(SPI_GETWORKAREA, 0, prect, 0) Then
    hauteur_ecran = (prect.Bottom - prect.tOp) * Screen.TwipsPerPixelY
End If
End Function

A voir également

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.