MadM@tt
Messages postés2167Date d'inscriptionmardi 11 novembre 2003StatutMembreDernière intervention16 juillet 2009
-
27 juin 2004 à 15:14
MadM@tt
Messages postés2167Date d'inscriptionmardi 11 novembre 2003StatutMembreDernière intervention16 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