Office: Rahmen eines Lables animieren

hab es hier der code nur es läuft sehr langsam, wie kann ich das zeichnen ebschleunigen?

Private Sub Form_Timer()
Dim X As Integer
Dim start As Double
For X = 1 To 300
Me![hallo].Width = Me![hallo].Width + 10
Me![hallo].Height = Me![hallo].Height + 10
Me![hallo].Left = Me![hallo].Left - 10
Me.Repaint
DoEvents
Next X
Me.TimerInterval = 0
End Sub


danke für eure hilfe

 

hallo

wie kann ich bei dem von mir zuletzt geposteten code das "zeichnen" beschleunigen?

danke für eure hilfe!

 

Hallo
Du hast in deinem Code eine Schleife die nicht nötig ist der Zeitliche Ablauf wir über den Timerintervall geregelt.

Hier ein Code der Quadrat von 1 cm auf 4 cm innerhalb von 3 Sekunden vergrößert

Code:

wie kommt man jetzt auf diese werte

Vergrößerungsrate in Twips

(Endwert-Anfangswert)/Zeit in Sekunden*24

Für den Timerintervall
Zeit in Millisekunden/Zeit in Sekunden*24

In diesem Beispiel
(2268-567)/3*24=24 Twips pro Stufe
3000/3*24=42 Millisekunden je Timmer intervall

Die zahl 24 Ergibt sich aus Tatsche das Filme mit 24 Bildern pro Sekunde ablaufen.

Wie du siehst ist programmieren nicht nur Code schreiben sondern sich auch Gedanken über die Abläufe machen und das dann in Code umzusetzen. *wink.gif*

Ein kleines beispiel hängt an

 

Sorry, es muß natürlich heißen:

Vergrößerungsrate in Twips

(Endwert-Anfangswert)/Zeit in Sekunden/24

Für den Timerintervall
Zeit in Millisekunden/Zeit in Sekunden/24

In diesem Beispiel
(2268-567)/3/24=24 Twips pro Stufe
3000/3/24=42 Millisekunden je Timmer intervall

 

Was ist das was du mir da geschickt hast?

 

Und noch'n Vorschlag (A97):

 

das ist genaud as wonach ich suche nur habe ich ein hintergrundbild auf dem formular so dass wenn die prozedur läuft und sich das lebel vergrössert es ständig flackert bis es die position erreicht hat!

wie kann man das abstellen?

vielend ank für deine hilfe!

 

Wie hast du denn das Bild eingefügt?
Ole-Objekt, Eigenschaft 'Bild' im Formularentwurf, oder wie?

Aber wie auch immer, prinzipieller Vorschlag:
Bild erst einblenden, wenn Vergrößerung beendet.

 

Sorry, falsche DB

Aber....

Ich glaube mit meinem Posting kann auch was anfangen *confused.gif*

Das Flackern ist nicht ganz verschwunden, hier müßte man eventuell mit der Bildfrequenz experimentieren. Eventuell macht es auch sinn ein Bildobjekt zu vergrößern.

Aber das Kannst du doch nach all den Anregungen sicherlich auch in Eigeniniative. *idee

Wer suchet der wir finden oder was??

Nur hättest du die Lösung schon vorher haben können, sie steht nämlich schon in den Postings, auch über meine Ausführungen über die Bildfrequenz solltest du für eigene Gedanken machen und damit experimentieren!
Das Forum ist nicht dazu da für dich fertig Lösungen zu erstellen.

Die hier gemachten Ausführungen waren bereits zu einem früheren Zeitpunkt fähig dein Problem zu Lösen.

Wenn sich das Flackern nicht beseitigen läßt dann mußt eben damit Leben oder das ganze sein lassen.

Es stellt sich auch die Frage ob solche Gimmicks in einer DB etwas zu suchen haben. In meinen Jedenfalls nicht.

 

ich weiß zwar nicht warum du so unfreundlich wirkst, aber das problem ist gelöst, ein doevents und me.repaint löst wahre wunder aus:-)

vielen dank euch allen