VB-Homepage Tipp 056

Zeitgewinn durch Ausschalten der Monitoraktualisierung

Mitunter hat man viele Operationen in seinem Programm laufen, auf dem Monitor wackelt alles und sieht unschön aus.
Um diesen Zeitraum zu minimieren und in der Zwischenzeit keine Veränderungen am Monitor (visuelles Erscheinungsbild) zuzulassen, können Sie die Monitoraktualisierung ausschalten.

Im Allgemein / Deklarationen Teil wird die API-Funktion definiert

Declare Sub SendMessage Lib "User" (ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any)
Const WM_SETREDRAW = &HB

Setzen und Aufheben der Monitoraktualisierung
Die Deaktivierung der Monitoraktualisierung erfolgt mit diesem Aufruf
Call SendMessage(Text1.hWnd, WM_SETREDRAW, False, 0&)
Aufgehoben wird dies durch nachfolgenden Aufruf
Call SendMessage(Text1.hWnd, WM_SETREDRAW, True, 0&)

Wie dies geht und welche Zeitvorteile es bringen kann, zeigt Ihnen das kleine VB3-Projekt im Download.


Anmerkung :
Für ein 32Bit Projekt muß die Funktionsdefinition folgender Maßen lauten.

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long

Tipp-Download

Quelle :

Zurück zur Übersichtsseite