---

progressbar.jpg

Guten Tag, Leute!

Kurze Frage: Was muss ich einstellen, damit die Progressbar, in SolidWorks, während dem Aktuallisieren richtig dargestellt wird?
Den Fortschritt ist klar ersichtlich, nur das Formular hat einen weissen Hintergrund und wird nicht aktualisiert!?
Kennt das jemand?

------------------

http://www.worldcommunitygrid.org

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

---

Da hilft: DoEvents()

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

---

Bingo!!! 
Vielen, vielen Dank!

Du bist soeben um 10Üs reicher geworden!

------------------

http://www.worldcommunitygrid.org

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

---

Hm...!?
Es funktioniert, aber doch nicht ganz!

Wenn ich nun so eine Schleife habe, wo die ProgressBar dargestellt wird und den aktuellen Wert bekommt, wo setzte ich das UserForm1.ProgressBar1 = DoEvents() hin?
Das Formular wird aktuallisiert, aber der dargestellte Wert stimmt nicht mehr. Ich weiss, dass ich da was Falsch mache, aber was?

Code:

---

UserForm1.ProgressBar1.Max = 5000
UserForm1.ProgressBar1.Value = 0
UserForm1.Show 0
Zaehler = 0

For i = 1 To 5000

  UserForm1.ProgressBar1.Value = Zaehler
  Zaehler = Zaehler + 1

Next i

---

Wo kommt nun mein DoEvents() hin?

------------------

http://www.worldcommunitygrid.org

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

---

Hi,

ich glaub ein Refresh kann auch nichts schaden ...

Zitat:

---

Original erstellt von G. Dawg:

Wo kommt nun mein DoEvents() hin?

---

Code:

---

For i = 1 To 5000

  UserForm1.ProgressBar1.Value = Zaehler
  Zaehler = Zaehler + 1
  UserForm1.ProgressBar1.Refresh
  DoEvents

Next i

---

------------------
Stell dir vor, es geht, und keiner kriegts hin.

  

Zitat:

---

Interpunktion und Orthographie des Postings sind frei erfunden.
Eine Übereinstimmung mit aktuellen oder ehemaligen Regeln wäre rein zufällig und ist nicht beabsichtigt.

---

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

---

Ah! 
Vielen Dank, VBSpawn!

Werde das refresh mal ausprobieren.
Habe gerade, per Zufall, herausgefunden, dass das so auch geht:

Code:

---

UserForm1.ProgressBar1 = DoEvents()
For i = 1 To 5000
  UserForm1.ProgressBar1.Value = Zaehler
  Zaehler = Zaehler + 1
Next i

---

Ich werde das mal mit der Stoppuhr durchlaufen lassen ... ob es da einen Unterschied gibt?!

Vielen Dank nochmals für Eure Hilfe!

------------------

http://www.worldcommunitygrid.org

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

---

Zitat:

---

Original erstellt von G. Dawg:
UserForm1.ProgressBar1 = DoEvents()

---

ähm mach das lieber nicht so ;) .
Das DoEvents ist eine einfache Funktion die 'Immer' 0 zurückliefert (hab noch nie eine -1 gesehen)
Jedenfalls reicht ein einfacher Aufruf in einer Zeile mit dem DoEvents, da das dem Programm etwas Zeit gibt seine 'Warteschlage' abzuarbeiten.
Deswegen sollte es eigentlich innerhalb der Schleife ausgeführt werden, und nicht davor.

Gruß
Micha

------------------
Stell dir vor, es geht, und keiner kriegts hin.

  

Zitat:

---

Interpunktion und Orthographie des Postings sind frei erfunden.
Eine Übereinstimmung mit aktuellen oder ehemaligen Regeln wäre rein zufällig und ist nicht beabsichtigt.

---

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

---

Ok, werde das gleich ändern!
In der Hilfe steht auch etwas davon, dass es unerwünschte Resultate liefern kann! *woops*!

Thanks!

------------------

http://www.worldcommunitygrid.org

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

---

Zitat:

---

Original erstellt von G. Dawg:
Ok, werde das gleich ändern!
In der Hilfe steht auch etwas davon, dass es unerwünschte Resultate liefern kann! *woops*!
Thanks!

---

Jo, stimmt auch.

DoEvents ist wirklich mit Vorsicht zu verwenden, jedenfalls wenn man sehr Eventbasiert Arbeitet (MouseOver, MouseLeave, DocumentChange usw..... ) und es ist diesbezüglich in VB6 besser den SendMessage Befehl direkt an das Control zu Senden (hat den Vorteil das sich nicht alles 'NeuZeichnet' sondern nur die PBar) im VBA geht es nur etwas mühsam die Control Handles zu finden deswegen -> entweder das DoEvents verwenden oder eben die entsprechende Refresh, Paint oder Redraw Methode.

Gruß
Micha

------------------
Stell dir vor, es geht, und keiner kriegts hin.

  

Zitat:

---

Interpunktion und Orthographie des Postings sind frei erfunden.
Eine Übereinstimmung mit aktuellen oder ehemaligen Regeln wäre rein zufällig und ist nicht beabsichtigt.

---

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