Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
808to812
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
808to812
808to812
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeichnen v.Objekten verhindern

Zeichnen v.Objekten verhindern
09.10.2006 14: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
Anzeige
AW: Zeichnen v.Objekten verhindern
10.10.2006 19: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 07: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
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige