ACCÉLÉRATION DE LA VITESSE D'AFFICHAGE EN "GELANT" LE RAFRAÎCHISSEMENT D'UN CONTRÔLE

Commentaire de MyC le 23/12/2002 12:35:25

Peux-tu me dire à quoi sert cette ligne : "If (i Mod 10) = 0 Then InvalidateRect ListView1.hWnd, 0&, 0&", car comme j'ai mis cette ligne en commentaire comme il est suggéré dans le code, et au lieu de 15751 ms, en vue grandes icônes, avec 1000 items, et avec cette ligne, cela se fait en 99 ms avec les mêmes propriétés mais avec la ligne en commentaire et sans le moindre petit clignotement. Alors j'aimerai savoir, si est est obligatoire dans certains cas et sinon à quoi sert-elle ? Merci d'avance pour ta réponse, et encore bravo pour cette source très utile !  

Commentaire de FPatrick le 23/12/2002 15:27:32

Bonjour tout d'abord.
Si tu mets la liste ou les controles dans un picturebox et que tu rends invisible ce picturebox lors d'un chargement , la vitesse de chargement et d'affichage est considérablement augmenté (remarqué plusieurs fois dans mes applications) . Par contre on charge un controle donc de la mémoire , a voir ....
Merci d'avance pour tes commentaires....

Commentaire de BFR le 23/12/2002 17:49:05

'-FIGER L'AFFICHAGE DU LISTVIEW,TREEVIEW ETC...***************************************
  Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
  Public Const WM_SETREDRAW = &HB
'-FIGER L'AFFICHAGE DU LISTVIEW,TREEVIEW***************************************



'-Je désactive l'affichage du contrôle
  lRet = SendMessage(ListView1.hwnd, WM_SETREDRAW, False, 0&)

'-J'active l'affichage du contrôle
  lRet = SendMessage(ListView1.hwnd, WM_SETREDRAW, True, 0&)

Commentaire de Billou le 23/12/2002 22:10:44

super ce code mercie 10/10

arrrrrrrrrrrgggggggghhhhhhhh burk burk win 98 :-)))))))) ^^

++

Commentaire de Zeroc00l le 25/06/2003 22:35:38

Franchement... C'est cool !
V'est le petit truc dégueulasse dans les applis que tout le monde avaient envie de virer ! je vais reprendre ce qu'a dit MyC:
"même si cette source n'est pas de toi" , "c'est une très bonne contribution".

Et en plus ca accélère le code. ^_^

8/10  +1/10 (pour l'originalité ) + 1/10 (Source apparement unique )

donc un piti 10/10

-={[ ZeroCool ]}=-

P.S. : Je kiffe le "Quelle touche.exe" sur ton bureau :D mdr !

Commentaire de PROGRAMMIX le 21/07/2003 10:25:58

>Réponse à olid
- Je pense que l'on peut utiliser les API pour d'autres contrôles que le ListView puisqu'en fait on demande à Windows de "redessiner" ou non le contrôle ;
- En ce qui concerne les arguments, je ne connais pas leur utilité (je rappelle que c'est une astuce qui émane Xavier LECLERCQ) et je ne me suis pas "amusé" à les changer pour voir les conséquences (je ne suis pas du genre téméraire).

Voilà une réponse qui ne répond pas vraiment à tes attentes, mais c'est tout ce que je peux faire...

Commentaire de BFR le 21/07/2003 16:15:29

Effectivement j'ai déja essayé avec un richtexbox et ça marche
A++

Commentaire de FrostByte le 13/09/2003 17:55:57

Vous allez peut-être me rire au nez, mais peut-on geler un ensemble de controle durant le redimenssionement d'un formulaire si oui, pourriez vous m'indiquer la methode !!

Commentaire de FrostByte le 14/09/2003 01:10:04

Je m'explique :
quand un formulaire contient beaucoup de composants, et, que tu dois tous les redimmensionner lors de l'evenement form_resize, tu as un effet (qui se nomme "flickering" je crois) qui fait que les controles clignotent lors du redimensionnement, ma question était peut-on essayer de bloquer cet effet "flickering" avec ta technique de gele grâce à la fonction Freeze et ainsi ne pas utiliser de subterfuge (voir ssubtimer6.dll voir l'exemple de steve mc mahon www.vbaccelerator.com), et donc de pvoir redimmensionner sans cet effet !! si tu as trvé la reponse ou une autre technique mail moi !!

Commentaire de FrostByte le 14/09/2003 11:18:49

ouais logik, je vais essayer mais geler bcp de controles sa va pas ralentier la becane ?

Commentaire de Kike le 28/11/2003 12:36:52

alors
avec optimisation 310ms
sans optimisation 11600ms
moi 40 ms
On rend la liste invisible au début du remplissage et on la ré affiche en fin.
simple et sans effet clipping
Voici le code (pour les débutants)
rajouter un bouton "command 3 " et le code suivant

Private Sub Command3_Click()
    
    Dim nStart As Long
    Dim i As Integer
    
    'Démarre le "chrono"
    nStart = GetTickCount()
    ListView1.Visible = False
    'Pour un affichage de type "Report"
    ListView1.View = 3
    
    'Efface la liste
    ListView1.ListItems.Clear
    
    'Boucle pour ajouter 1000 éléments
    For i = 1 To 1000
        ListView1.ListItems.Add , , "Chaîne " & CStr(i)
        
        '-- Rend la main à Windows
        DoEvents
    Next i
    ListView1.Visible = True
    MsgBox Str(GetTickCount() - nStart) & " ms", vbOKOnly, "Sans optimisation :"

End Sub

Commentaire de papipsycho le 19/03/2005 03:10:13

apre modif du code joptien 32 ms !!!!!!

Private Sub Command2_Click()
    
    Dim nStart As Long
    Dim n As Integer
    Dim i As Integer
    nStart = GetTickCount()
    ListView1.View = 3
    n = 1000
    ListView1.ListItems.Clear
        
    For i = 1 To n
        ListView1.ListItems.Add , , "Chaîne " & CStr(i)
            
        '-- En validant la région, il n'y aura pas de génération d'un message WM_PAINT
        ValidateRect ListView1.hWnd, 0&
            
        '-- "Rafraîchit" la liste
'(=>) Essayez également en désactivant cette ligne...
        If (i Mod n) = 0 Then InvalidateRect ListView1.hWnd, 0&, 0&
            
        '-- Autorise le multi-tâche
        DoEvents
    Next i
    
    InvalidateRect ListView1.hWnd, 0&, 0&
    MsgBox Str(GetTickCount() - nStart) & " ms", vbOKOnly, "Avec optimisation :"

End Sub

Commentaire de cavo789 le 29/09/2006 09:41:42

Merci pour tout vos conseils.

Commentaire de PROGRAMMIX le 22/11/2006 12:24:10

Arcanis,

Aucune idée...
Il me semble qu'avec la méthode "cache-cache", il y a un effet de clignotement qui peut être désagréable (c'est du moins ce que j'ai pu observer sur mes premiers essais du genre et de vieux pc).

Le mieux serait de faire une copie de ton projet, de remplacer le cache-cache par les API et de comparer.

C'est hélas, tout ce que je peux dire, vu que je ne suis pas un expert en API et que je n'ai plus touché à VB depuis un bon moment.

Bien à toi,

Programmix