J'ai essayé de reduire la taille des polices, mais ça ne marche pas
BlackSunSoft
Up
BlackSunSoft
Oui justement je veux gerer ça...
Ok merci, j'ai juste a reduire la taille des polices apres non ?
HelloWorld
essaie de gerer quand meme ... car c'est encore + chiant pour l'utilisateur qui doit rebooter le PC a chaque fois qu'il veut utiliser ton soft.
sinon pour tester:
dans un module:
Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Declare Function GetDesktopWindow Lib "user32" () As Long
Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long
Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Public Const LOGPIXELSX = 88
Public Function TestPetitePolice() As Boolean
Dim hDCBureau As Long
Dim hWndBureau As Long
Dim ResH As Long
Dim hWndEcran As Long
'Obtenir la résolution horizontale en pixels logique
ResH = GetDeviceCaps(hDCBureau, LOGPIXELSX)
'Effacer le hDC du Bureau
Call ReleaseDC(hWndBureau, hDCBureau)
'Si le système utilise une petite police, alors ResH = 96
TestPetitePolice = ResH = 96
End Function
c'est fonction retourne TRUE si la police est petite ...
BlackSunSoft
salut,
Comment peut on eviter que les Grandes Polices (reglages dans les propriétés d'affichages, par defaut 96 dpi) ne soit utilisé dans mon soft qui utilises des skins car cela decale tout par la même occasion a cause des grande polices...
