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
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.