Visual Basic Forum

ZiG · Überflieger Anmeldedatum: 16.04.2008 Beiträge: 421

Name: NewDoEvents
Funktion: Führt DoEvents nur aus falls mit der Maus oder Tastatur etwas gedrückt wurde. Aber auch spätestens nach 100 Aufrufen. (Kann man ändern)
Rückgabe: Keine

Beschreibung:
Das seltene Aufrufen, bzw. nur wenn es gebraucht wird, von DoEvents führt zu einer höheren Geschwindigkeit des Programmes.

Benötigte Api:
Visual Basic: [code]Private Declare Function GetInputState Lib "user32" () As Long[/code]
Visual Basic: [code]Public Sub NewDoEvents()
Static xCount As Integer
If GetInputState() Then
DoEvents
ElseIf xCount = 100 Then
DoEvents
xCount = 0
Else
xCount = xCount + 1
End If
End Sub[/code]
_________________