Userform Label-Größenänderung

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi danke nochmal.
Fortschrittsbalken eher nicht. Ich habe vor eine Art Titeleinblendung zu erschaffen...
Das Ganze ist aber noch nicht flüssig. Momentan:


Private Sub UserForm_Activate()
Dim h As Double
h = 42
Do While h >= 6
UserForm2.Label2.Height = h
h = h - 1
Application.Wait (Now + TimeValue("00:00:01") / 2)
UserForm2.Repaint
Loop
End Sub

Wenn ich jede Sekunde die Höhe ändere ist es noch sehr ruckartig. Daher dachte ich, ich könnte alle 0,5 Sekunde eine Änderung oder gar alle 0,1 Sekunde eine Änderung hervorrufen.... Ähnlich FPS.... Je schneller, desto flüssiger... aber das scheint nicht möglich zu sein. Das /2 in der Klammer führt dazu, dass der Balken in der Userform augenblicklich verschwindet.
Gibt es dazu einen Work-Around oder andere Ideen? Danke.

Hi
Danke für die Ergänzung. Ganz im Spirit des Forums; gefällt mir.
Geschmacksache meine ich so wie ich es sage, erstmal ohne Wertung. Es handelt sich um eine persönliche Ansicht von mir. Ich finde "Animationen" nur nervig. Es tut nichts zur Sache und macht das Bild unnötig "nervös". Zudem blockiert es die Bearbeitung, bis die Animation vollständig abgelaufen ist.
In einer Applikation, welche auf die Verarbeitung von Daten (Tabellenkalkulation) ausgerichtet ist, empfinde ich solche Sachen als Spielerei. Oft holen einem solche Extras früher oder später wieder ein, weil es den Code unübersichtlich macht und dabei das Wesentliche (die Datenverarbeitung) unter geht. Z.B. hat man bei einem allfälligen Fehler mehr zum Debuggen und es stellt eine zusätzliche Fehlerquelle dar.
Die Methode, um mit Millisekunden zu arbeiten, weist eine zusätzliche potenzielle Fehlerquelle auf. Es wird auf kernel32 verwiesen, was eine Datei vom Betriebssystem Windows ist, also nicht Bestandteil von Excel.
- Folglich wird der Code auf Apple nicht laufen
- Mit der Umstellung von 32bit auf 64bit benötigten solche API Schnittstellen eine Anpassung im Code. PtrSafe ist im Code nun zwar enthalten, aber es zeigt die Fehleranfälligkeit.
- Wenn Windows eines Tages entscheidet kernel32 zu ersetzen oder zu löschen, wird der Code nicht mehr funktionieren.
Tönt jetzt alles dramatisch, ist es aber nicht. Spielereien kann man machen, muss man aber nicht. Für mich persönlich wäre das Aufwand-/Ertragsverhältnis einfach nicht gegeben bzw. ich würde mich eher auf eine benutzerfreundliche und fehlerfreie Datenverarbeitung konzentrieren und dort die Zeit investieren. Ist zwar weniger effektvoll, aber langfristig nachhaltiger.
cu
Chris

Code:

Sub test()
 Dim b As Integer
 
 UserForm1.Show
 b = 10

 Do While b <= 100
    UserForm1.Label1.Width = b
    Application.Wait (Now + TimeValue("00:00:01"))
    UserForm1.Repaint
    b = b + 10
 Loop
End Sub

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Userform Label-Größenänderung

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread