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...
 
Merci

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
 
    hWndBureau = GetDesktopWindow()
    hDCBureau = GetDC(hWndEcran)
 
'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 ...

Oui justement je veux gerer ça...
 
Ok merci, j'ai juste a reduire la taille des polices apres non ?

Up

J'ai essayé de reduire la taille des polices, mais ça ne marche pas