Zeichnen v.Objekten verhindern

Forumthread: Zeichnen v.Objekten verhindern
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Zeichnen v.Objekten verhindern

09.10.2006 16:17:55

IngoH

Hallo allerseits,
nachdem ich mir 'recht viel Mühe beim Schreiben
von schnellen Funktionen und Code gegeben habe,
macht ein unangenehmer Effekt alles zu nichte...
In einer UF befindet sich eine größer Anzahl dynamisch
ersteller Label. Sobald eine Eigenschaft geändert wird,
z.B. Caption, werden alle Label neu gezeichnet.
Wenn es genügend Label sind und der Rechner obendrein ein
eher langsameres Model, kann man tatsächlich zusehen, wie
ein Objekt nach dem anderen neu erscheint.
Ich habe zwar keine große Hoffnung,
aber gibts' hier einen Trick 17 zur Abhilfe ?
Danke sehr und Gruß
Ingo

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zeichnen v.Objekten verhindern

10.10.2006 21:40:36

Kurt
AW: Zeichnen v.Objekten verhindern

11.10.2006 09:03:12

IngoH

AW: Zeichnen v.Objekten verhindern

10.10.2006 21:40:36

Kurt

Hi,
"eine größer Anzahl dynamisch
ersteller Label."
Wieviele?
"Sobald eine Eigenschaft geändert wird,
z.B. Caption, werden alle Label neu gezeichnet."
Glaub ich nicht, bzw. poste mal den Code, mit dem die Caption geändert wird.
mfg Kurt

AW: Zeichnen v.Objekten verhindern

11.10.2006 09:03:12

IngoH

Hallo Kurt,
in der UF/MultiPage sind momentan etwas über 1400 Label
Der größte Frame hat 33 * 31 Label


Sub Page1_Frame_Planung_Aktualisieren()
Dim i_z As Byte
Dim i_s As Byte
For i_z = 1 To 33
For i_s = 1 To TageImMonat(Datum_Aktuell)
Set cLabel = Me.MultiPage.Page1.Frame_Planung. _
Controls(Arr_Page1_Dienste(i_z, i_s))
If FreierTag(DateSerial(Year(Datum_Aktuell), Month(Datum_Aktuell), i_s)) = True Then
cLabel.BackColor = &H80FF80
Else
cLabel.BackStyle = 0
End If
Next i_s
Next i_z
End Sub

Auch wenn ich die Label als Collection zusammen anspreche und / oder nur eine Eigenschaft, z.B. .Caption ändere, habe ich den Effekt.
Reduziere ich die Anzahl auf z.B. 5 * 31 geht's so schnell, dass man
die Aktualisierung kaum bemerkt.
Je größer die Anzahl der Label, desto sichtbarer wird der Effekt.
Gruß, Ingo