Hallo zusammen,
vielleicht schaut Ihr euch das einfach mal an.
Es werden Controls erstellt, allerdings die erste Spalte
stimmt nie! Die ist immer eins tiefer!
Spoiler anzeigen
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Form1", 800, 443, 192, 124)
$btnCheckbox = GUICtrlCreateButton("Checkbox", 504, 400, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
Global $Wahl,$reihenAnzahl,$spaltenNr
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $btnCheckbox
_Namen()
EndSwitch
WEnd
Func _Namen()
Dim $Links = 25
Dim $oben = 30
Dim $Zwischen = 50
Dim $Zeilen = 4
Dim $Abstand = 300
Dim $Namebreite = 100
Dim $Namehoehe = 10
$Wahl &= "c1 Name1|"
$Wahl &= "d2 Name2|"
$Wahl &= "e3 Name3|"
$Wahl &= "n4 Name4|"
$Wahl &= "n5 Name5|"
$Wahl &= "f6 Name6|"
$Wahl &= "p7 Name7|"
$Wahl &= "p8 Name8|"
$Wahl &= "r9 Name9|"
$WahlSplit = StringSplit($Wahl, "|")
Global $Checkbox[$WahlSplit[0]]
Global $CheckboxName[$WahlSplit[0]]
Global $arProgress[$WahlSplit[0]]
For $i = 1 To $WahlSplit[0]-1
If $i > 2 Then
If Mod($i - 1, $reihenAnzahl) = 0 Then $spaltenNr += 1
EndIf
$chkName = StringTrimLeft($WahlSplit[$i], 3)
$Checkbox[$i] = GUICtrlCreateCheckbox($chkName, $Links + Int($i / $Zeilen) * $Abstand, $oben + Mod($i, $Zeilen) * $Zwischen, $Namebreite, $Namehoehe)
$arProgress[$i] = GUICtrlCreateProgress($Links + 100 + Int($i / $Zeilen) * $Abstand, $Oben + Mod($i, $Zeilen) * $Zwischen, $Namebreite, $Namehoehe)
GUICtrlSetFont($Checkbox[$i], 10, 500, 0, "Arial")
[/autoit] [autoit][/autoit] [autoit]Next
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]EndFunc
[/autoit]Bin gespannt, was diesmal falsch war...
Liebe Grüße
Ilse