Xojo Conferences
XDCMay2019MiamiUSA

Listbox erkennt eingabe nicht ?? (Real Studio network user group Deutschland Mailinglist archive)

Back to the thread list
Next thread: Drawpicture druckt Zahlen verwaschen


Probleme mit String Bearbeitung   -   Markus Schnell
  Listbox erkennt eingabe nicht ??   -   nobe

Listbox erkennt eingabe nicht ??
Date: 30.08.11 07:56 (Tue, 30 Aug 2011 08:56:09 +0200)
From: nobe
Die suche geht weiter: ich hatte in meiner letzten mail geschrieben,
dass nicht angezeigt wird, welche der beiden checkboxen der letzten
reihe angeklickt wird. Das stimmt so nicht. Es ist vielmehr der letzte
klick in eine checkbox, der nicht angezeigt wird. Hier nochmals der
dazugehörige code:

/im open-event:/

me.DeleteAllRows
me.ColumnType(1) = 2
me.ColumnType(2) = 2
name = "Alfa,Bravo,Charly,Delta,Fox"
for nm as integer = 1 to 5
me.AddRow NthField(name,",",nm)
next
z = 0 'zählt die anzahl der angeklickten checkboxen

/im cellclick-event:/

if column = 1 then
me.Cellstate(row,2) = CheckBox.CheckedStates.Unchecked
elseif column = 2 then
me.Cellstate(row,1) = CheckBox.CheckedStates.Unchecked
end
if z = 5 then
for i = 0 to me.ListCount-1
if me.CellState(i,1) = CheckBox.CheckedStates.checked then
tn1 = tn1+chr(44)+me.cell(i,0)
elseif me.CellState(i,2) = CheckBox.CheckedStates.Checked then
tn2 = tn2+chr(44)+me.cell(i,0)
end
next
' führende kommata entfernen
if left(tn1,1) = chr(44) then
tn1 = right(tn1,len(tn1)-1)
end
tn3 = "Anwesend: " + tn1
if left(tn2,1) = chr(44) then
tn2 = right(tn2,len(tn2)-1)
end
tn4 = "Entschuldigt: " + tn2
end
TextArea1.text = tn3 + EndOfLine + tn4

Nochmals zur verdeutlichung: klicke ich die checkboxen der reihe nach
an, egal in welcher reihenfolge, so wird jeweils der letzte (hier der
5.) klick nicht angezeigt. Sehe ich mir das im debugger an, so bleibt
die row-anzeige bei 4 stehen. Was ist da los ???

Gruss enno