---

Moin,

mein Programm, was ich geschrieben habe, rechnet (je nach Einstellung des Nutzers) relativ lange. Ich würde dem Nutzer ganz gerne die Entscheidungsmöglichkeit eines Abbruchs geben.
Ich hab da auch schon nen relativ plausiblen Quelltext gefunden. Hier mal das Beispiel (Userform mit Start-und Stopp-Button und einem Label):

Code:

---

Dim bAbbruch As Boolean
   
Private Sub cmdCancel_Click()
    bAbbruch = True
End Sub
   
Private Sub cmdStart_Click()
    bAbbruch = False
    cmdCancel.Enabled = True
    cmdStart.Enabled = False
    MachWas
End Sub
   
Private Sub UserForm_Initialize()
    cmdCancel.Enabled = True
    cmdCancel.Cancel = True
End Sub
   
Private Sub MachWas()
    Dim i As Long
    Dim a As Integer
    a = 0
    For i = 1 To 1000000
        a = i + 1
        Debug.Print a
        If bAbbruch Then
            bAbbruch = False
            If MsgBox("Wirklich Abbrechen", vbYesNo + vbQuestion) = vbYes Then
                lblInfo.Caption = "Abgebrochen"
                cmdCancel.Enabled = False
                cmdStart.Enabled = True
                Exit Sub
            End If
        End If
        lblInfo.Caption = i
    Next i
    lblInfo.Caption = "bin Fertig"
    cmdCancel.Enabled = False
    cmdStart.Enabled = True
End Sub

---

Nun ist das Problem, dass ich beim Starten des Programms der Stopp-Button zwar (theoretisch) aber praktisch nicht anwählber ist.
Kennt jemand das Problem und/oder ne Lösung?

Beste Grüße
F.Drebin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Frank,
also in Delphi müsste man in so einem Fall die Processmessages aufrufen, damit das Programm mal kurz guckt, ob noch andere Nachrichten in der Schlange stehen. Dein cmdCancel_Click() erzeugt nur eine Nachricht in der Schlange, die erst bearbeitet wird, wenn der Rechenprozess abgeschlossen ist.
Ich kann jetzt allerdings nicht sagen, wie das in SWX-API bzw VB anzugeben ist.
Bevor du bAbbruch auswertest, müsstest du die Nachrichtenschlange verarbeiten:
  Delphi-Syntax:
  Application.ProcessMessages;
  If bAbbruch Then begin ....

Vielleicht kann da jemand mit VB-Kenntnissen helfen.

------------------
Grüße aus Dresden
Volkmar Grube

Es gibt keine Probleme, es gibt nur Aufgaben.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hmmm ... das dachte ich mir auch schon. Hatte nur gehofft, dass jemand hier eventuell so viel Ahnung von VBA hat, dass er gleich ne Lösung parat hat.

Trotzdem danke.
Gruß aus Dresden nach Dresden ... hehe

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ich hab das mal gegoogelt:
guck mal da:
http://www.experts-exchange.com/Programming/Languages/Visual_Basic/Q_10485383.html

Grüße  aus Dresden
Volkmar Grube

Es gibt keine Probleme, es gibt nur Aufgaben.

[Diese Nachricht wurde von Volkmar Grube am 08. Jan. 2011 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Das hat tatsächlich geholfen. Ich danke Dir recht herzlich!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo zusammen,

ich konnte jetzt den Link von Volkmar nicht lesen, da sich das hinter einem (später kostenpflichtigen?) Abo versteckt, aber ich vermute, dass dort auch nur steht, dass in VB/VBA der entsprechende Befehl DoEvents heißt.

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite    http://solidworks.cad.de
Stefans SolidWorks Blog

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ist mir das peinlich. Normalerweise passe ich da immer auf.
Aber man wird halt älter. Entschuldigung.

------------------
Grüße aus Dresden
Volkmar Grube

Es gibt keine Probleme, es gibt nur Aufgaben.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP