ListIcon - Mit einträgen in Column rechnen!

[FISCHAUGE]

Code: Alles auswählen

For c=1 To CountGadgetItems(4)
erg=Val(GetGadgetItemText(4,c$,2))
erge=0+erg
e$=Str(erge)
Debug e$
Nex

Ich habe in diesem ListIconGadget eine unbestimmte anzahl an Einträgen!
Im Column 2 befinden sich z.B. "Beträge 10.00"
Ich möchte nun das er alle Einträge zählt die schleife so lange durchlaufen lässt wie es einträge sind, und alle "Beträge" aus dem Column addiert!

Was mache ich Falsch? oder besser gesagt was fehlt!?

danke im vorraus!

[Jilocasin]

Was mache ich Falsch?

vieles

Nein ernsthaft... so müsste es gehen:

Code: Alles auswählen

erg = 0
For index = 0 To CountGadgetItems(4)-1
  erg + Val(GetGadgetItemText(4,index,2))
Next
Debug erg

//nachtrag

Allerdings ist der zweite Column im Gadget die Zahl 1 im Befehl... also:

Code: Alles auswählen

...
GetGadgetItemText(4,index,1)
...

[#NULL]

das hier macht keinen sinn

Code: Alles auswählen

erge=0+erg 

entweder du schreibst

Code: Alles auswählen

erge+erg 

oder

Code: Alles auswählen

erge=erge+erg 

<edtit- gemeint war fischauge>

[FISCHAUGE]

Was mache ich Falsch?

//nachtrag

Allerdings ist der zweite Column im Gadget die Zahl 1 im Befehl... also:

Code: Alles auswählen

...
GetGadgetItemText(4,index,1)
...

Also normal ist der erste Column = 0, der zweite Column = 1 und der Dritte in meinem Fall dieser Column = 2, deshalb habe ich zweiter Column geschrieben

Aber vielen dank!

[mike41]

Hi Fischauge

Variablen und Strings sind ein mächtiges Werkzeug, an denen sich schon hartgesottene Programmierer festgebissen haben (mich eingeschlossen )

Hier der Code der garantiert funktioniert (weil getestet

Code: Alles auswählen

      For sum = 0 To CountGadgetItems(#ListIcon_0)
        r.l=Val(GetGadgetItemText(#ListIcon_0,sum,0))+r
        f.s=Str(r)
      Next sum

Viel Spass und nicht verzagen

Mfg Mike

PS: "for sum = 0 to " weil du willst ja sicherlich alle Zeilen berechnen