Discussion :

[jdddeschamps]

Bonjour,

J'ai appliqué la FAQ "Comment détecter le changement de résolution de l'écran" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Function WindowProc(ByVal HWnd As Long, ByVal msg As Long, _
                           ByVal wParam As Long, ByVal lParam As Long) As Long
Dim X As Long, Y As Long
 
 If msg = WM_DISPLAYCHANGE Then
     'la résolution a changé
     X = Screen.Width / Screen.TwipsPerPixelX    'résolution horizontale
     Y = Screen.Height / Screen.TwipsPerPixelY   'verticale
     frmParametres.lblResolutionEcran.Caption = X & " x " & Y
 End If
 
 'Appelle la procédure de fenêtre par défaut pour que Windows puisse traiter l'évènement
 WindowProc = CallWindowProc(oldWndProc, HWnd, msg, wParam, lParam)
 
End Function

Cependant, la résolution affichée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

frmParametres.lblResolutionEcran.Caption = X & " x " & Y

est celle d'avant le changement !
J'ai essayé un "sleep (1000)" mais j'ai toujours la résolution d'avant.
Comment faire pour connaître la nouvelle résolution de l'écran ?

Merci

[ProgElecT]

Bienvenue sur DVP

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Function WindowProc(ByVal hwnd As Long, ByVal msg As Long, _
                           ByVal wParam As Long, ByVal lParam As Long) As Long
 
    If msg = WM_DISPLAYCHANGE Then
        'la résolution a changé
     DoEvents '<============chez moi avec cela sa fonctionne =================== 
     Form1.Label1.Caption = "Nouvel resolution :" & Form1.ScaleY(Screen.Width, vbTwips, vbPixels) _
     & " X " & Form1.ScaleX(Screen.Height, vbTwips, vbPixels)
    End If
 
    'Appelle la procédure de fenêtre par défaut pour que Windows puisse traiter l'évènement
    WindowProc = CallWindowProc(oldWndProc, hwnd, msg, wParam, lParam)
 
End Function

Sans le Doevents j'avais le même probléme (je suis sous Vista).

[vb]

Bonjour à vous,
Voici mon code simple que je mets dans le "Load d'une feuille.....
Juste dans cet exemple mettre un "Label pour afficher le résultat...ici le l'ai nommé lblRésolution

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
lblRésolution.Caption = "Résolution écran : " & Screen.Width / Screen.TwipsPerPixelX _
                            & "x" & Screen.Height / Screen.TwipsPerPixelY

Simple, rapide et sans appel de fonction... tu reload et c'est cool
Bien à vous.
vb

[ProgElecT]

Le titre de la discussion est détecter le changement de résolution de l'écran

Simple, rapide et sans appel de fonction... tu reload et c'est cool

Quand, avec quel evenement tu decides du reload ?

[jdddeschamps]

doevents, bien sûr !

ça marche, , merci pour cette réponse.

Je précise : je suis sous Windows XP SP3, DELL Latitude C160.

[vb]

Bonsoir,
Tu as raison ProgElecT moi dans ma solution(la plus simple) c'est de fermer et de Reload, mais comme tu l'as fais remarqué la question est autre..
Profil bas ...
Amicalement
vb