Hallo,
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)
$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
Case $Field[$i][$h]
GUICtrlSetBkColor(-1, 0xff0000)
EndSwitch
WEnd
Func ButtonCreate()
For $i=0 to UBound($Field)-1
For $h=0 to UBound($Field)-1
$Field[$i][$h] = GUICtrlCreateButton("", $CountLeft, $CountTop, 15, 15)
$CountLeft = $CountLeft+15
Next
$CountTop = $CountTop+15
$CountLeft = 5
Next
EndFunc
Und zwar möchte ich abfragen ob einer der Buttons gedrückt wurde !
Mit einer For Next Schleife mit nem Case drin funktioniert nicht.
Ich kann doch jetzt nicht die 2500 Buttons selbst da reiin schreiben