ACCÉLÉRATION DE LA VITESSE D'AFFICHAGE EN "GELANT" LE RAFRAÎCHISSEMENT D'UN CONT
cs_MyC
Messages postés
94
Date d'inscription
lundi 23 septembre 2002
Statut
Membre
Dernière intervention
22 avril 2003
-
23 déc. 2002 à 10:59
NISANDSYSTEMS Messages postés 146 Date d'inscription vendredi 1 novembre 2002 Statut Membre Dernière intervention 13 décembre 2014 - 13 déc. 2014 à 15:15
NISANDSYSTEMS Messages postés 146 Date d'inscription vendredi 1 novembre 2002 Statut Membre Dernière intervention 13 décembre 2014 - 13 déc. 2014 à 15:15
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/5427-acceleration-de-la-vitesse-d-affichage-en-gelant-le-rafraichissement-d-un-controle
https://codes-sources.commentcamarche.net/source/5427-acceleration-de-la-vitesse-d-affichage-en-gelant-le-rafraichissement-d-un-controle
13 déc. 2014 à 15:15
pour eviter le clignotement du controle il suffit juste de supprimer doevents dans les deux procedures tout simplement.
A+
22 nov. 2006 à 14:09
Merci de ta réponse. J'ai essayé de mon coté d'utiliser la méthode "cache-cache" sur ton projet. Je passe à 20ms......... En revanche, au lieu d'obtenir un effet de clignotement, j'ai plutôt un effet d'interrupteur (jour/nuit). C'est sans doute dûe à ma machine qui est assez performante (sur mon lieu de travail :-) ).
Je peux en revanche justifier mon choix sur mon projet d'éditeur de texte. Le projet doit permettre une gestion multi-fenêtre à l'interieur de l'appli (avec une fenêtre MDI et des fenêtres filles). Donc lors d'une modification de masse sur un fichier, il est intéressant de voir sur lequel on travaille, surtout quand tous les fichiers sont modifiés les uns après les autres par le même traitement (modif séquentielle de chaque fichier en fait...).
Donc je vais essayé ton api pour essayer de grapiller quelques centièmes...
Je vais également essayé ton projet à plus grande échelle (100 000, 300 000 lignes à remplir) pour voir... Peut être qu'à cette échelle, elle est plus rapide...
Encore merci et a+
Arcanis
22 nov. 2006 à 12:24
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
22 nov. 2006 à 11:47
D'abord bravo pour cette source. L'optimisation via les API est toujours bon à prendre !!!
J'aimerais toutefois vous demander conseil. J'ai développé un éditeur de texte en vb qui permet des modifs de masse sur fichier(s), et j'ai fait l'erreur de choisir un objet listview comme zone de reception du fichier.
Après de nombreuses fonctionnalités ajoutées, je me suis rendu compte d'un manque de performances. En effet, à la base le programme devait servir à ouvrir de petits fichiers.
Maintenant, il est utilisé pour des fichiers dépassant les 300 000 lignes...........
Autant dire que ma listview en prend un coup à chaque manipulation. Pour optimiser, j'ai opté pour la méthode "on cache la listview" ce qui permet un énorme gain de puissance.
Toutefois, d'après vous, vaut il mieux utilisé cette api ou ma méthode de "cache-cache" ???
Merci d'avance pour vos réponses...
PS : épargnez moi les conseils du style "utilise plutôt une textbox", c'est impossible. Autant jeter à la poubelle 2 ans de dev... Je DOIS maintenir la listview...
Arcanis
29 sept. 2006 à 09:41
19 mars 2005 à 03:11
aven modif 210ms
apre modif 32ms
19 mars 2005 à 03:10
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
11 mars 2005 à 20:53
il y a pas moyen d'empecher complément le clignotement ??
28 nov. 2003 à 12:36
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
14 sept. 2003 à 11:42
14 sept. 2003 à 11:18
14 sept. 2003 à 08:37
Si cela marche ou nécessite l'une ou l'autre modif, tu pourras nous en faire part...
14 sept. 2003 à 01:10
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 !!
13 sept. 2003 à 19:04
En fait, je ne vois pas très bien ce que tu veux obtenir...
Mais personnellement, je me dis qu'au lieu de geler tous les contrôles de ta Form, tu peux peut-être geler celle-ci...
13 sept. 2003 à 17:55
19 août 2003 à 04:16
merci a toi :)
21 juil. 2003 à 16:15
A++
21 juil. 2003 à 12:53
Zetais pô temeraire nan plus pour ezzayer avec d'autres controles (qui ont un evenment paint) !!! :o|
Je pense pouvoir tester avec Picturebox et les menus... je vous dis quoi si jamais zà plante grave l'ordi ! :op
21 juil. 2003 à 10:25
- 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...
21 juil. 2003 à 03:45
Les deux API zappliquent que pour les listview ? :o|
Moins idiot... à quoi zert les autres arguments (où tas mis &0) de zes fonctions API ? :o.
Merzi pour la réponse ;op
25 juin 2003 à 22:35
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 !
24 déc. 2002 à 13:56
il fige l'affichage du controle au début de ta procedure
puis le défige à la fin,cette API permet d'ajouter des élements à un EX:listview sans provoquer l'affichage de chaque élément il n'y à pas besoin de boucle il faut le mettre au début de la procédure puis à la fin
est-ce clair ?
A++
23 déc. 2002 à 22:10
arrrrrrrrrrrgggggggghhhhhhhh burk burk win 98 :-)))))))) ^^
++
23 déc. 2002 à 18:24
Je ne sais pas... Je n'ai pas essayé en mettant la fonction en dehors de la boucle...
Est-ce là une autre méthode que tu proposes ??
23 déc. 2002 à 17:49
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&)
23 déc. 2002 à 17:21
23 déc. 2002 à 15:27
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....
23 déc. 2002 à 12:55
La ligne de code peut être traduit de la manière suivante :
If (i Mod 10) = 0 signifie que toutes les 10 boucles...
Then InvalidateRect... on redessine la ListView1
Ainsi et suivant les PC, le clignotement peut encore apparaître mais à une moindre fréquence...
Effectivement, en supprimant cette ligne de code, on accélère encore le temps de réalisation de la boucle puisque qu'on ne la redessine plus (ce qui se faisait 1000/10=100 fois)
23 déc. 2002 à 12:35
23 déc. 2002 à 10:59