Visual Basic Forum

Verfasst am: 18.06.2009, 12:01 Aufrufe: 669

Name: NewDoEventsFunktion: 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: KeineBeschreibung: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]Visua ...

Verfasst am: 15.06.2009, 12:35 Aufrufe: 2649

Da wir nur Zeilen zählen wollen, brauchen wir nicht jede Zeile extra einlesen.(zCount = zCount + 1)Zeilenanzahl wird um 1 erhöht.(DoEvents)DoEvents benötigt man, da sonst diese Schleife das Programm so auslasten würde, dass es einfriert.Besser wäre es aber DoEvents durch die gepostete Version "NewDoEvents" bei den sources, zu ersetzen.Dann wird DoEvents nicht bei jedem einzelnen Aufruf ausgeführt und man erhöht dadur ...

Verfasst am: 06.03.2008, 19:28 Aufrufe: 4075

Da wir nur Zeilen zählen wollen, brauchen wir nicht jede Zeile extra einlesen. (zCount = zCount + 1) Zeilenanzahl wird um 1 erhöht. (DoEvents) DoEvents benötigt man, da sonst diese Schleife das Programm so auslasten würde, dass es einfriert. Besser wäre es aber DoEvents durch die gepostete Version "NewDoEvents" bei den sources, zu ersetzen. Dann wird DoEvents nicht bei jedem einzelnen Aufruf aus ...

Verfasst am: 06.01.2008, 20:39 Aufrufe: 459

... ür die For Schleife Dim zCount as long 'Zähler für die Zeilen Dim buffer as string 'Für iwelche Strings zCount = 0 'Datei öffnen Open "Pfad zu Datei" for Input as #1 'Zuerstmal sollten wir rausfinden wieviele Zeilen in der Datei sind. Do Until EOF(1) 'Läuft solange bis das Ende erreicht ist Line Input #1, buffer zCount = zCount +1 DoEvents 'besser wäre die Funktion NewDoEvents ...

Verfasst am: 08.12.2007, 21:06 Aufrufe: 2013