Guten Tag. Ich bin neu hier und habe ein bisschen Erfahrug mit AutoIt.
Ich habe eine Frage. Ich habe mit der GUI ein Feld erstellt wo 4 kleine Felder durch ein Raster getrennt sind. Anfangs sind diese weiß. Wenn ich ein Feld mit der linken Maustaste anklicke soll es Rot werden. Wenn ich die Felder aber mit der rechten Maustaste anklicke, sollen diese wieder weiß werden. Und genau dass ist für mich die Schwierigkeit. Ich weiß nicht wie die GUI dazu bringen soll auf einen Rechtsklick zu reagieren.
AutoIt
Opt("GUIOnEventMode", 1)
;Variablen
$fenster = 0
$rhorizontal1 = 0
$rhorizontal2 = 0
$rhorizontal3 = 0
$rvertikal1 = 0
$rvertikal2 = 0
$rvertikal3 = 0
;Anklickbare Felder von links nach rechts, von oben nach unten
$f1 = 0
$f2 = 0
$f3 = 0
$f4 = 0
$fenster = GUICreate ("GUI 4x4", 140, 140)
GUISetBkColor (0xFFFFFF)
GUISetOnEvent(-3, "_Exit")
$rvertikal1 = GUICtrlCreateGraphic (0, 0, 1, 140)
GUICtrlSetBkColor ($rvertikal1, 0xA0A0A0)
$rvertikal2 = GUICtrlCreateGraphic (70, 0, 1, 140)
GUICtrlSetBkColor ($rvertikal2, 0xA0A0A0)
$rvertikal3 = GUICtrlCreateGraphic (140, 0, 1, 140)
GUICtrlSetBkColor ($rvertikal3, 0xA0A0A0)
$rhorizontal1 = GUICtrlCreateGraphic (0, 0, 140, 1)
GUICtrlSetBkColor ($rhorizontal1, 0xA0A0A0)
$rhorizontal2 = GUICtrlCreateGraphic (0, 70, 140, 1)
GUICtrlSetBkColor ($rhorizontal2, 0xA0A0A0)
$rhorizontal3 = GUICtrlCreateGraphic (0, 140, 140, 1)
GUICtrlSetBkColor ($rhorizontal3, 0xA0A0A0)
$f1 = GUICtrlCreateGraphic (1, 1, 69, 69)
GUICtrlSetOnEvent(-1, "ueberpruefung")
$f2 = GUICtrlCreateGraphic (71, 1, 69, 69)
GUICtrlSetOnEvent(-1, "ueberpruefung")
$f3 = GUICtrlCreateGraphic (1, 71, 69, 69)
GUICtrlSetOnEvent(-1, "ueberpruefung")
$f4 = GUICtrlCreateGraphic (71, 71, 69, 69)
GUICtrlSetOnEvent(-1, "ueberpruefung")
GUISetState (@SW_SHOW)
While 1
Sleep (10)
Wend
Func ueberpruefung ()
Select
Case @GUI_CtrlId = $f1
GUICtrlSetBkColor ($f1, 0xFF0000)
Case @GUI_CtrlId = $f2
GUICtrlSetBkColor ($f2, 0xFF0000)
Case @GUI_CtrlId = $f3
GUICtrlSetBkColor ($f3, 0xFF0000)
Case @GUI_CtrlId = $f4
GUICtrlSetBkColor ($f4, 0xFF0000)
EndSelect
EndFunc
Func _Exit ()
Exit
EndFunc
Alles anzeigen
Es wäre schön wenn man mir helfen könnte!
Vielen Dank!