Guest User

Untitled

a guest
Jan 24th, 2018
71
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.32 KB | None | 0 0
  1. #include <GUIConstantsEx.au3>
  2. #include <TabConstants.au3>
  3. #include <WindowsConstants.au3>
  4. #Region ### START Koda GUI section ### Form=
  5. $Form1 = GUICreate("Form1", 625, 443, 611, 368)
  6. $Tab1 = GUICtrlCreateTab(56, 64, 505, 201)
  7. GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
  8. $TabSheet1 = GUICtrlCreateTabItem("Tab1")
  9. $y = 100
  10. Dim $Array[10]
  11. Dim $Array2[10]
  12. For $i = 1 To 6 Step 1
  13. $Array[$i] = GUICtrlCreateCheckbox("CBox"&$i,70,$y)
  14. $y+=20
  15. Next
  16. $TabSheet2 = GUICtrlCreateTabItem("Tab2")
  17. $y = 100
  18. For $i = 1 To 6 Step 1
  19. $Array2[$i] = GUICtrlCreateCheckbox("CBox"&$i,70,$y)
  20. $y+=20
  21. Next
  22.  
  23.  
  24. GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")
  25.  
  26. GUICtrlCreateTabItem("")
  27. GUISetState(@SW_SHOW)
  28. #EndRegion ### END Koda GUI section ###
  29.  
  30. While 1
  31. $nMsg = GUIGetMsg()
  32. Switch $nMsg
  33. Case $GUI_EVENT_CLOSE
  34. Exit
  35.  
  36. EndSwitch
  37. WEnd
  38.  
  39.  
  40. Func WM_NOTIFY($hWnd, $MsgID, $wParam, $lParam)
  41. Local $tagNMHDR, $event, $hwndFrom, $code
  42. $tagNMHDR = DllStructCreate("int;int;int", $lParam)
  43. If @error Then Return 0
  44. $code = DllStructGetData($tagNMHDR, 3)
  45. If $wParam = $Array Then
  46. ;ConsoleWrite($code & @CRLF)
  47. Switch $code
  48. ;case -2 ;Klick
  49. Case -3 ;Doppelklick
  50. MsgBox(2,"","Dclick")
  51.  
  52. EndSwitch
  53. EndIf
  54. Return $GUI_RUNDEFMSG
  55. EndFunc ;==>WM_NOTIFY
Add Comment
Please, Sign In to add comment