Checkboxen mit Hotkeys anwählen

[AlvinX2]

Moinsen. Ich sitz mal wieder an nem wahrscheinlich banalen Problem, find aber die Lösung nicht. Ich will die Hotkeys F1-F6 mit funktionen belegen, in denen dann Checkboxen angehakt und abgehakt werden. Hier ein Beispiel, denn den ganzen Code kann ich bzw will ich nicht posten da er 600 Zeilen lang ist. Post kommt wenn dann auf anfrage.

PHP Code:

Func _HKoff()
    GUICtrlSetState($Checkbox1, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox2, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox3, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox4, $GUI_UNCHECKED)
    GUICtrlSetState($Checkbox5, $GUI_UNCHECKED)
    GUICtrlSetData($l1," ")
    GUICtrlSetData($l2," ")
    GUICtrlSetData($l3," ")
    GUICtrlSetData($l4," ")
    GUICtrlSetData($l5," ")
EndFunc

HotKeySet("{F1}",_HK1())
HotKeySet("{F2}",_HK2())
HotKeySet("{F3}",_HK3())
HotKeySet("{F4}",_HK4())
HotKeySet("{F5}",_HK5())
HotKeySet("{F6}",_HKoff()) 


Ich sitz nun mehr seit 4 Stunden dran und hab halb Google durchforstet, komme aber auf keinen grünen Zweig.

[butter123]

du brauchst für jeden hotkey eine funktion die _HK1(), _HK2() ... heißen. und in jeder einzelnen wird nur eine checkbox angesprochen. so wird nur was bei F6 passieren und da dann alle.

[AlvinX2]

Originally Posted by butter123

du brauchst für jeden hotkey eine funktion die _HK1(), _HK2() ... heißen. und in jeder einzelnen wird nur eine checkbox angesprochen. so wird nur was bei F6 passieren und da dann alle.

Das weiß ich, hab ich auch so Aber es geht nicht.

[butter123]

PHP Code:

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 355, 202, 192, 124)
$Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 56, 32, 97, 17)
GUICtrlSetState(-1, 0)
$Checkbox2 = GUICtrlCreateCheckbox("Checkbox2", 64, 88, 97, 17)
GUICtrlSetState(-1, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

HotKeySet("a","_togglea")
HotKeySet("s","_toggles")

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd


Func _togglea()
    If GUICtrlRead($Checkbox1)=$GUI_CHECKED Then
        GUICtrlSetState($Checkbox1, $GUI_UNCHECKED)
    Else
        GUICtrlSetState($Checkbox1, $GUI_CHECKED)
    EndIf
EndFunc


Func _toggles()
    If GUICtrlRead($Checkbox2)=$GUI_CHECKED Then
        GUICtrlSetState($Checkbox2, $GUI_UNCHECKED)
    Else
        GUICtrlSetState($Checkbox2, $GUI_CHECKED)
    EndIf
EndFunc 


[lolkop]

das ganze ist auch schön über GetAsyncKeyState lösbar...

hier mal ein beispiel:

Dim $p[255],$s[5]=[0,4,0,0,1],$cb[6],$gui=GUICreate('GUI', 150, 140, Default, Default, 0x10C80000)
For $i=0 To 5
	$cb[$i]=GUICtrlCreateCheckbox('Checkbox '&$i+1, 10, 10+$i*20, 130, 20)
Next

While True
	Switch GUIGetMsg()
		Case -3
			Exit
	EndSwitch
	For $i=0 To 5
		If _IsPressed(0x70+$i) Then
			If Not $p[0x70+$i] Then GUICtrlSetState($cb[$i],$s[GUICtrlRead($cb[$i])])
			$p[0x70+$i]=True
		Else
			$p[0x70+$i]=False
		EndIf
	Next
WEnd

Func _IsPressed($key)
	Local $a_R = DllCall('user32.dll', 'short', 'GetAsyncKeyState', 'int', $key)
	Return BitAND($a_R[0], 0x8000) <> 0
EndFunc