Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #include <GUIConstantsEx.au3>
- #include <TabConstants.au3>
- #include <WindowsConstants.au3>
- #Region ### START Koda GUI section ### Form=
- $Form1 = GUICreate("Form1", 625, 443, 611, 368)
- $Tab1 = GUICtrlCreateTab(56, 64, 505, 201)
- GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
- $TabSheet1 = GUICtrlCreateTabItem("Tab1")
- $y = 100
- Dim $Array[10]
- Dim $Array2[10]
- For $i = 1 To 6 Step 1
- $Array[$i] = GUICtrlCreateCheckbox("CBox"&$i,70,$y)
- $y+=20
- Next
- $TabSheet2 = GUICtrlCreateTabItem("Tab2")
- $y = 100
- For $i = 1 To 6 Step 1
- $Array2[$i] = GUICtrlCreateCheckbox("CBox"&$i,70,$y)
- $y+=20
- Next
- GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")
- GUICtrlCreateTabItem("")
- GUISetState(@SW_SHOW)
- #EndRegion ### END Koda GUI section ###
- While 1
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $GUI_EVENT_CLOSE
- Exit
- EndSwitch
- WEnd
- Func WM_NOTIFY($hWnd, $MsgID, $wParam, $lParam)
- Local $tagNMHDR, $event, $hwndFrom, $code
- $tagNMHDR = DllStructCreate("int;int;int", $lParam)
- If @error Then Return 0
- $code = DllStructGetData($tagNMHDR, 3)
- If $wParam = $Array Then
- ;ConsoleWrite($code & @CRLF)
- Switch $code
- ;case -2 ;Klick
- Case -3 ;Doppelklick
- MsgBox(2,"","Dclick")
- EndSwitch
- EndIf
- Return $GUI_RUNDEFMSG
- EndFunc ;==>WM_NOTIFY
Add Comment
Please, Sign In to add comment