Am 19. Okt 2005 um 19:50 Uhr schrieb michaelkoop at t-online dot de:
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
vielleicht bringt das ja auch noch was
if ListBox1.Selected(i)=true then t=t+trim(ListBox1.Cell(i,SpalteINr))
+","
Claudius
--
G4/733 QS / MacOS X 10.4de / RB 5.5.5/ Valentina 1.10.0 & 2.0.4
Homepage http://www.ClaSai.de
iChat ryhoruk
RealBasic ListBoxes: [ I feel the need...the need for speed!!! ]
|