Hey,
in meinem Skript möchte ich 50*50 Buttons erzeugen.
Das klappt auch ganz gut.
Nur ich möchte die Button Variablen so anordnen:
$Button[$i][$h]=GUICtrlCreateButton(""....)
[/autoit]Jedoch erhalte ich Fehlermeldungen, dass ich den Button so nicht erstellen kann.
Hier mein Skript:
Spoiler anzeigen
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#Region Variablen
Dim $Field[49][49]; Array mit 50x50 Feldern. (0 wird mitgezählt)
For $i=0 to UBound($Field)-1 ;Füllen des Arrays
For $h=0 to UBound($Field)-1
$Field[$i][$h]=0 ;Jedes Feld wird auf 0 gesetzt (vom Wert her)
Next
Next
$CountLeft = 5
$CountTop = 5
#Region Variablen
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 745, 765, -1, -1)
$MenuDatei = GUICtrlCreateMenu("Datei")
$MenuStart = GUICtrlCreateMenuItem("Start", $MenuDatei)
$MenuEnde = GUICtrlCreateMenuItem("Ende", $MenuDatei)
$MenuEinstellungen = GUICtrlCreateMenu("Einstellungen")
ButtonCreate() ; Eigene Funktion die die Button erstellt (siehe unten)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func ButtonCreate()
For $i=0 to UBound($Field)-1
For $h=0 to UBound($Field)-1
$Button[$i][$h] = GUICtrlCreateButton("", $CountLeft, $CountTop, 15, 15)
$CountLeft = $CountLeft+15
Next
$CountTop = $CountTop+15
$CountLeft = 5
Next
EndFunc
Func ButtonCheck()
For $i=0 to UBound($Field)-1
For $h=0 to UBound($Field)-1
If $Field[$i][$h]=1 Then
GUICtrlSetBkColor($Button[$i][$h], 0xff0000)
EndIf
Next
Next
EndFunc
