Date de création : 29/04/2007 à 23:49:00 0 Commentaire(s)

MadMatt

Avant tout, il faut savoir que tous les écrans physiques sont contenus dans un écran virtuel.
Chaque écran a donc une position dans l'écran virtuel. Ici, on peut récupérer les dimensions de l'écran virtuel.

Voici un exemple pour mieux comprendre le principe :
http://www.vbfrance.com/codes/GERER-MULTI-ECRAN_39181.aspx

Capture :
http://www.vbfrance.com/codes_image/normal/39181.aspx

' Récupérer des dimensions du système
Public Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
' Infos sur les écrans
Public Const MONITORINFOF_PRIMARY = &H1
Public Const SM_XVIRTUALSCREEN = 76
Public Const SM_YVIRTUALSCREEN = 77
Public Const SM_CXVIRTUALSCREEN = 78
Public Const SM_CYVIRTUALSCREEN = 79
Public Const SM_CMONITORS = 80
Public Const SM_SAMEDISPLAYFORMAT = 81



'---------------------------------------------------------------------------------------
' Procedure : GetVirtualScreenDimensions
' DateTime  : 29/04/2007 22:43
' Author    : Vb System Library
' Purpose  : Renvoie les dimensions de l'écran virtuel
' Params    :
'---------------------------------------------------------------------------------------
Public Function GetVirtualScreenDimensions() As RECT
    With GetVirtualScreenDimensions
        .Left = GetVirtualScreenLeft()
        .Top = GetVirtualScreenTop()
        .Right = .Left + GetVirtualScreenWidth()
        .Bottom = .Top + GetVirtualScreenHeight()
    End With
End Function
Public Function GetVirtualScreenLeft() As Long
    GetVirtualScreenLeft = GetSystemMetrics(SM_XVIRTUALSCREEN)
End Function
Public Function GetVirtualScreenTop() As Long
    GetVirtualScreenTop = GetSystemMetrics(SM_YVIRTUALSCREEN)
End Function
Public Function GetVirtualScreenWidth() As Long
    GetVirtualScreenWidth = GetSystemMetrics(SM_CXVIRTUALSCREEN)
End Function
Public Function GetVirtualScreenHeight() As Long
    GetVirtualScreenHeight = GetSystemMetrics(SM_CYVIRTUALSCREEN)
End Function

Vous devez être connecté pour pouvoir poster un commentaire.