Hallo zusammen, das ist mein erstes Thema hier im Forum.
Ich versuche normalerweise selbst eine Lösung zu finden, jedoch hänge ich an diesem Problem jetzt schon zu lange.
Es geht darum, per For-Loop Einträge aus einer INI-Datei zu lesen und die Sectionnames als Bezeichnung für Buttons zu nutzen.
Hier mal das Script:
$Sections = IniReadSectionNames ($ButtonsFile)
If @error Then Exit
Dim $Button[$Sections[0]]
For $i = 1 To $Sections[0]
$Position = StringSplit (IniRead ($ButtonsFile, $Sections[$i], "Position", ""), ",")
$Size = StringSplit (IniRead ($ButtonsFile, $Sections[$i], "Size", ""), ",")
$Image = StringSplit (IniRead ($ButtonsFile, $Sections[$i], "Image", ""), ",")
$Button[$i-1] = GUICtrlCreateButton ($Sections[$i], $Position[1], $Position[2], $Size[1], $Size[2], $BS_BITMAP)
GUICtrlSetImage (-1, @ScriptDir & "\gfx\" & $Image[1])
Next
Alles anzeigen
Die Buttons werden auch alle erstellt, jedoch werden nur 6 der insgesamt 8 Bilder auf die Knöpfe gelegt.
Ich würde eigentlich auch lieber GUICtrlCreatePic anstelle von GUICtrlCreateButton verwenden, da ich den gepunkteten Focus nicht wegbekomme, aber dann werden mir gar nicht erst alle Buttons bzw. Pics angezeigt, sondern auch wieder nur 6 von 8...
Button[$i-1] = GUICtrlCreatePic (@ScriptDir & "\gfx\" & $Image[1], $Position[1], $Position[2], $Size[1], $Size[2])
Es hat sicherlich was mit Arrays / UBound oder sonstwas zu tun, allerdings habe ich mich damit bisher so in den Wahnsinn getrieben, dass ich jetzt wirklich Hilfe dazu brauche