Discussion :

[electroremy]

Bonjour,

Actuellement dans un projet VB5 j'utilise le contrôle (OCX) SysInfo pour obtenir les coordonnées utilisable de l'écran (donc en dehors de la barre des tâches) :

SysInfo1.WorkAreaLeft
SysInfo1.WorkAreaTop
SysInfo1.WorkAreaWidth
SysInfo1.WorkAreaHeight

Je souhaite que mon programme n'utilise plus aucune OCX. Trop de problèmes de compatiblité...

Comment récupérer WorkAreaLeft, ... WorkAreaHeight sans OCX ? En utilisant l'API win32 (gdi32, kernel32, ...) ?

Attention le programme doit tourner même sous Windows95

Merci - à bientôt

[electroremy]

Voici la solution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
    Type WinRECT
        Left As Long
        Top As Long
        right As Long
        bottom As Long
    End Type
    Private Declare Function SystemParametersInfo Lib "user32" _
        Alias "SystemParametersInfoA" (ByVal uAction As Long, _
        ByVal uParam As Long, ByRef lpvParam As WinRECT, _
        ByVal fuWinIni As Long) As Long
    Private Const SPI_GETWORKAREA = 48
...
...
'        WaLeft = CiDess.PC_Info.WorkAreaLeft
'        WaTop = CiDess.PC_Info.WorkAreaTop
'        WaWidth = CiDess.PC_Info.WorkAreaWidth
'        WaHeight = CiDess.PC_Info.WorkAreaHeight
        Call SystemParametersInfo(SPI_GETWORKAREA, 0, wr, 0)
        WaLeft = wr.Left * Screen.TwipsPerPixelX
        WaTop = wr.Top * Screen.TwipsPerPixelY
        WaWidth = (wr.right - wr.Left) * Screen.TwipsPerPixelX
        WaHeight = (wr.bottom - wr.Top) * Screen.TwipsPerPixelY