Discussion :

[infosam76]

Bonjour

Depuis windows vista, le déplacement des contrôles en mode design provoquait un flickering et était très lente.

Il fallait désactiver « Composition du bureau » dans les propriétés de VB6.exe.

En windows 8, il est impossible de désactiver le DWM (Desktop Window Manager).

J’ai essayé en cochant « comptabilité windows XP ». Plus de flickering, mais alors une de nos fenêtres basées sur un contrôle Web affichant des page HTML ne s'affiche plus correctement. Des idées ?

[DarkVader]

Bonjour,

Vista puis Huit, tu les cherches !

Aucun problème sous Seven (64b) avec le webbrowser en mode «Compatibilité du bureau désactivé».

[infosam76]

Ben c'est au bureau en fait, on a eu les windows XP, Vista, 7 et mtn on commence avec le Win8. Logique en tant qu'éditeur de logiciel on doit suivre. Mais avec Win8 on a pas mal de problème

Maintenant Vb6 n'est pas récent mais j'espère que quelqu'un a trouvé une solution.

[ProgElecT]

Salut

Presque 1 an que la discussion a été ouverte mais ..... depuis une semaine je bagarre avec un projet que je voulais complété pour ajouter une fonctionnalité.

Bonjour

Depuis windows vista, le déplacement des contrôles en mode design provoquait un flickering et était très lente.

Il fallait désactiver « Composition du bureau » dans les propriétés de VB6.exe.

...............

Oui mais.... si on veut utiliser

Code :

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

1
2
3
4
5
6
7
8
9
10
'Pour obtenir l'image affichée à l'écran
Private Declare Function GetDesktopWindow Lib "user32.dll" () As Long
'Pour obtenir l'hdc, ici de l'image affichée à l'écran
Private Declare Function GetDC Lib "user32.dll" (ByVal hwnd As Long) As Long
'libère les ressources utilisées
Private Declare Function ReleaseDC Lib "user32.dll" (ByVal _
  hwnd As Long, ByVal hdc As Long) As Long
'Pour lire la couleur du pixel sous le curseur
Private Declare Function GetPixel Lib "gdi32" _
(ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long

et

Code :

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

1
2
3
4
5
6
    HwndBureau = GetDesktopWindow()  'obtenir la poignée du bureau
    HdcBureau = GetDC(HwndBureau)  'obtenir son contexte de périphérique
 
    'afficher la couleur qui se trouve sous le curseur
    'CouleuR = GetPixel(GetDC(GetDesktopWindow()), PosCurseur.X, PosCurseur.Y)
    CouleuR = GetPixel(HdcBureau, PosCurseur.x, PosCurseur.y)

L'appel à GetPixel renvoie systématiquement -1, donc pas évident pour debuguer .... en plus, même si vous lancez un exécutable quelconque qui utilise la lecture d'un pixel à l'écran, ben cela ne fonctionne pas tant que vous ne quittez pas l'éditeur VB6.

[infosam76]

Il est clair je pense que le soucis est que vb6 même s'il est encore relativement utilisé, n'est plus maintenu et a donc des soucis avec les nouvelles versions de Windows.

Personnellement je ne l'utilise plus sauf dans le cas de mon travail ou je dois debbuger et maintenir une assez grosse application.

Mais bon pour moi il n'y a pas de miracle, la question m'avait été posée en son temps par mon employeur à ce moment la et je n'avais pas trouvé de solution sur google d'ou ma question sur le forum. Depuis je suis passé du fournisseur chez un de ses clients donc je n'ai plus vraiment trop le soucis (on travaille tj avec Vb6 mais sous Win7 et la pas de soucis).

Pour moi je peux fermer le post sauf si ProgElecT attend éventuellement une solution à son soucis ?

[ProgElecT]

Salut infosam76

Mon propos été d'indiquer un disfonctionnement pour un code précis.
La solution proposée reste satisfaisante pour tout autre cas.

Pour moi je peux fermer le post sauf si ProgElecT attend éventuellement une solution à son soucis ?

La solution pour moi, j'ai décoché Désactiver la composition du Bureau.
Pour se qui est de taguer la discussion en , pourquoi pas car la solution Compatibilité reste valable, mis à part le cas que j'ai signalé.

[infosam76]

Oki pour moi donc ;-)