Comment régler la zone utilisable de l'écran ?

MadM@tt Messages postés 2167 Date d'inscription mardi 11 novembre 2003 Statut Membre Dernière intervention 16 juillet 2009 - 27 juin 2004 à 15:14
MadM@tt Messages postés 2167 Date d'inscription mardi 11 novembre 2003 Statut Membre Dernière intervention 16 juillet 2009 - 28 juin 2004 à 14:36
Je fait un programme qui se met a droite de l'écran dans windows, et je voudrai savoir comment faire pour que les icones du bureau et les fenêtres maximisées ne s'agrandissent pas sur mon programme, comme la barre des taches.

j'ai trouvé une source sur ce site pour retrouver les dimensions, mais j'aimerai savoir comment les modifier.

merci et @ +

voici le code que j'ai trouvé sur vbfrance :

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

1 réponse

MadM@tt Messages postés 2167 Date d'inscription mardi 11 novembre 2003 Statut Membre Dernière intervention 16 juillet 2009 1
28 juin 2004 à 14:36
Merci c'est bon j'ai réussi à le faire, pour ceux que ça intéresse, c'est à l'adresse :
http://www.vbfrance.com/code.aspx?ID=24091

@ +
MadMatt
0