Visual Basic Forum

bufofahrer · Verfasst am: 25.06.2011, 17:46

Hallo ich bin ein ziemlich dummer VB6-Anfänger (unter Win XP) - wer kann mir einen Tip zu meinem Problem geben?

In meinem Programm lade ich ein etwas umfangreiches Excel-Objekt (40MB übers Netz = ca. 13 sec.). Nun möchte ich, daß der Anwender nicht denkt, das Programm sei abgestürtzt und habe daher eine Progressbar-Anzeige installiert. Vor dem Ldeprozeß des Excel-bjekts ist deren Status natürlich =0, nachher =100%. Aber wie erhalte ich denn in bestimmten Intervallen die Zwischen-Stati?

Ich würde mich über einen hilfreichen Tip freuen.
Danke für Eure Mühe im Voraus und
Grüße von bufofahrer

christopher.g · Überflieger Anmeldedatum: 03.05.2008 Beiträge: 565

hi
ich denke nicht dass du einfach so in den ladevorgang eingreifen kannst

die einzigen möglichkeiten die dir bleiben sind

eben die progressbar mit einem timer füllen ( auf gut glück)

oder
screen.mousepointer = vbhourglass

dass einfach eine sanduhr zu sehen ist
wärend der wartezeit solltest du aber auf jeden fall

bufofahrer · Verfasst am: 27.06.2011, 20:18

he, christopher g.,

danke , dass Du Dich mit meinem Problems beschäftigt hast. Ich habe mir das schon fast gedacht, daß ich während des Ladens keine Info von dem Prozess bekommen kann, deshalb hatte ich das mit dem Timer schon probiert. Da ich ja weiß, wie lang der Vorgang in etwa dauert, hatte ich einen Timer dementsprechend eingerichtet und wollte, daß er aller halben Sekunde die Progressbar weiterstellt.

Aber auch das klappt nicht - obwohl das Programm den Timer 'rennen' läßt, bevor das Laden gestartet wird, erscheint die Progressbar im Null-Zustand, dann witrd geladen, und erst, wenn dies beendet ist lassen die Timer-Intervalle die Progressbar laufen. Dort mache ich noch irgend etwas falsch - hättest Du da noch 'n Tip
Danke für Eure Mühe im Voraus und
Grüße von bufofahrer

christopher.g · Überflieger Anmeldedatum: 03.05.2008 Beiträge: 565

hmm hast du DoEvents bereits verwendet??

wenn ja wüsst ich jetzt leider nix mehr

etwas unschöne lösung wäre

[psydocode]
Msgbox "Geschätzte Downloadzeit: 13 sekunden",vbinformation,"Bitte warten"

screen.mousepointer = vbhourglass

'laden

screen.mousepointer = vbnormalcursor
[/psydocode]

lg

bufofahrer · Verfasst am: 28.06.2011, 08:48

Hallo Christopher G.,

Ja, leider bringt DoEvents() hier auch nichts, habe die Funktion direkt vor den Open-Befehl des Excel-Objekts gesetzt - hat aber keine Auswirkung. Danke nochmals für Deine Hilfe, werde jetzt so etwas in der Art DEines Vorschlags machen.
Danke für Eure Mühe im Voraus und
Grüße von bufofahrer