XL 2021 Calendrier DTPiker

patricktoulon à dit:

avec la fusion et l'api dans un if vba7 en espérant qu'avec win 7 l'api ne soit pas relevée comme erreur d'entré de la dll

Cliquez pour agrandir...

Private Declare PtrSafe Function GetDC Lib "user32" (ByVal hWnd As LongPtr) As LongPtr
Private Declare PtrSafe Function ReleaseDC Lib "user32" (ByVal hWnd As LongPtr, ByVal hDC As LongPtr) As Long
Private Declare PtrSafe Function GetDeviceCaps Lib "gdi32" (ByVal hDC As LongPtr, ByVal nIndex As Long) As Long
Private Const LOGPIXELSX As Long = 88

Private Function AppDpi() As Long
    Dim hDC As LongPtr
    Dim dpi As Long
    hDC = GetDC(0)
    dpi = GetDeviceCaps(hDC, LOGPIXELSX)
    ReleaseDC 0, hDC
    If dpi <= 0 Then dpi = 96   ' fallback sécurité
    AppDpi = dpi
End Function

patricktoulon à dit:

Mr le prend mal par ce qu'on luimet ses erreurs sous le nez

Cliquez pour agrandir...

patricktoulon à dit:

tu partage que quand tu crois avoir raison toi

Cliquez pour agrandir...