zu Doevents
05.05.2005 01:26:46
chris
Habe dazu auch ein Beispiel aber irgendwie komm ich nicht klar mit der erklärung und dem beispiel das ich mir selbst erstellen wollte.
Hier erst einmal das was ich schon habe.Inklusive erklärung
Mit dem Doevents ist Excel nicht behindert während der Wartezeit von 5 sek kann mann weiter arbeiten !
Dim Pausenlänge, Start, Ende, Gesamtdauer
If (MsgBox("5 Sekunden Pause?", 4)) = vbYes Then
Pausenlänge = 5 ' Dauer festlegen.
Start = Timer ' Anfangszeit setzen.
Do While Timer DoEvents ' Steuerung an andere Prozesse
' abgeben.
Loop
Ende = Timer ' Ende festlegen.
Gesamtdauer = Ende - Start ' Gesamtdauer berechnen.
MsgBox "Die Pause dauerte " & Gesamtdauer & " Sekunden"
Else
End
End If
Die DoEvents-Funktion gibt einen Wert vom Typ Integer zurück, der die Anzahl der geöffneten Formulare in eigenständigen Versionen von Visual Basic (z.B. Visual Basic, Professional Edition) repräsentiert. In allen anderen Anwendungen gibt DoEvents Null zurück.
DoEvents übergibt die Ablaufsteuerung an das Betriebssystem. Das Programm erhält erst dann die Steuerung wieder zurück, wenn das Betriebssystem alle wartenden Ereignisse verarbeitet hat und alle wartenden Tastenanschläge in der SendKeys-Warteschlange abgearbeitet sind.
DoEvents ist für einfache Operationen besonders hilfreich, wenn z.B. einem Benutzer die Möglichkeit gegeben werden soll, einen Prozeß abzubrechen, nachdem er begonnen wurde, beispielweise die Suche nach einer Datei. Bei länger andauernden Vorgängen sollte die Steuerung besser mit Hilfe eines Zeitgebers an den Prozessor abgegeben werden, oder die Aufgabe sollte einer ActiveX-EXE-Komponente übertragen werden. Im zweiten Fall kann die Aufgabe vollkommen unabhängig von Ihrer Anwendung durchgeführt werden, und das Betriebssystem übernimmt das Multitasking und die Zuteilung der Prozessorzeit.
Vorsicht°°°Jedesmal wenn Sie die Steuerung zeitweise innerhalb einer Ereignisprozedur an den Prozessor abgeben, sollten Sie sicherstellen, daß die Prozedur nicht von einem anderen Teil des Codes aufgerufen wird, bevor der erste Aufruf beendet ist. Die Folgen eines solchen Aufrufs sind nicht vorhersehbar. Führen Sie DoEvents auch dann nicht aus, wenn Sie nicht ausschließen können, daß andere Anwendungen in irgendeiner Weise eine Verbindung mit der Prozedur herstellen, während das Betriebssystem die Ausführung steuert.
'------------------ Bis hier-----------------------
um das ganze jetzt zu verstehen wollte ich das nachbauen wie ich diesen befehl verstehe also wozu er benötigt wird. Hier mein versuch.
Sub start()
For x = 1 To 60000
Cells(x, 1) = "etst"
Cells(x, 2) = "etst"
Cells(x, 3) = "etst"
DoEvents
Next
End Sub
Private Sub CommandButton1_Click()
MsgBox ("OK")
Exit Sub
End Sub
'----------------------------------------------------------
Ich habe jetzt gedacht wenn ich die schleife ohne doevents laufen lasse das ich dann in excel nichts arbeite4n kann so lange die schleife läuft.Aber mit dem Doevents kann ich dann die schleife abbreche.
So habe ich jetzt als erstes das Makro Start gestartet und dann auf den Commandbutton auf meinem tabellenblatt geklickt und eigentlich erwartet das das Makro abgebrochen wird.
Wird es aber nicht.
Habe ich diesen befehl richtig verstanden oder wird er für andere Sachen genutzt. Bitte um Eure Hilfe ! Danke und schönen Feiertag grüße Christian