Zeitliches Problem bei Inkrement
12.04.2005 14:37:35
Robert
bei einem Makro ist mir etwas seltsames aufgefallen. Der Makro sollte bei einem Klick auf einen Command Button auf diesem die jeweils nächste Primzahl ausgeben, anfangend mit 1.
Das Problem ist, dass der Makro die Berechnung - je nach Klickgeschwindigkeit - teilweise nicht durchgeführt wurde. Im Debugger-Modus oder bei sehr langsamer Klickgeschwindigkeit hat es richtig funktioniert.
Hat man zu normal bis schnell geklickt, wurde die Berechnung nicht immer ausgeführt, die Beschriftung des Buttons änderte sich nicht.
Man kann das Problem vereinfachen, die Auswirkung ist die selbe:
'######################################################
Option Explicit
Dim zahl As Integer
Private Sub cmd_1_Click()
'Variable <zahl> wird um den Wert 1 inkrementiert
zahl = zahl + 1
'Die inkrementierte Variable <zahl> wird
'auf dem Command Button cmd_1 ausgegeben
cmd_1.Caption = zahl
End Sub
'######################################################
Anscheinend hat man eine zeitliche Begrenzung für den Zugriff auf eine Variable über einen Command Button. Gibts eine Lösung dafür?