- Offizieller Beitrag
Hier war der Fehler:
[autoit]Case $erntenbutton
$read = GUICTrlRead($angepflanztes)
If $read = "" Then ; Du hattest statt Leerstring auf ein Leerzeichen geprüft!!
GUICtrlSetBKColor($feld,0x8C4600)
Else
MsgBox(0,"Ernten","Du willst also folgendes ernten:" & @CRLF & $read)
$List1CurSel = _GUICtrlListBox_GetCurSel ($angepflanztes)
_GUICtrlListBox_DeleteString ($angepflanztes, $List1CurSel)
$geld += 120
GUICTrlSetDAta($geldanzeige,$geld)
EndIf
Und vereinfache mal die Befüllung der Listen:
$listview = GUICtrlCreateList("",530,40,200,200)
GUICTRlSetDAta(-1,"Weizen|Gerste|Rüben|Salat|Mais|Klee|Gras")
$kaufliste = GUICTrlCreateList("",770,40,200,200)
GUICTrlSetData(-1,"Traktor 1|Traktor 2|Pflug|Sämaschiene|Mähdräscher|Eigenes Haus|Kartoffelernter|Mähwerk|Rübenvollernter|Halle 1|Halle 2")