Versuch es einmal so wie aufgeführt.
Gruß
Michael
Am 19.10.2005 um 19:43 schrieb Stefan Mettenbrink:
Ich benutze bei mir folgenden Code:
for i=0 to ListBox1.ListCount-1
if ListBox1.Selected(i)=true then
EditField2.Text=EditField2.Text+trim(ListBox1.Cell(i,SpalteINr))+","
end
next
dim n as integer
dim t as string
n=ListBox1.ListCount-1
for i=0 to n
if ListBox1.Selected(i)=true then
t=t+trim(ListBox1.Cell(i,SpalteINr))+","
end if
next
EditField2.Text=t
Bei knapp 200 Lstboxzeilen dauert das so lange, dass man schon
vermutet,
das Programm hängt. (G4/733 OS X 10.4, RB5.5)
Nun habe ich zusätzlich eine Progressbar eingefügt:
ProgressBar1.Value=0
ProgressBar1.Maximum=ListBox1.ListCount-1
ProgressBar1.Visible=true
for i=0 to ListBox1.ListCount-1
ProgressBar1.Value=i
ProgressBar1.Refresh
if ListBox1.Selected(i)=true then
EditField2.Text=EditField2.Text+trim(ListBox1.Cell(i,SpalteINr))+","
end
next
Dabei viel mir auf, das bei etwa knapp der Hälfte die Geschwindigkeit
deutlich zurückging.
Was kann ich ändern um diese simple Sache zu beschleunigen?
MfG, Metti.
|