#include #include #include #include #include #Region ### START Koda GUI section ### Form= $Form1_1 = GUICreate("KIỂM TRA CÁC ĐIỀU KIỆN CHỌN", 417, 221, 202, 162) $Label1 = GUICtrlCreateLabel("Chọn các giá trị sau:", 168, 16, 127, 23) GUICtrlSetFont(-1, 12, 800, 0, "Times New Roman") GUICtrlSetColor(-1, 0x0000FF) $Label2 = GUICtrlCreateLabel("Chọn 1:", 56, 64, 54, 23) GUICtrlSetFont(-1, 12, 800, 0, "Times New Roman") GUICtrlSetColor(-1, 0xFF0000) $Label3 = GUICtrlCreateLabel("Chọn 2:", 56, 96, 54, 23) GUICtrlSetFont(-1, 12, 800, 0, "Times New Roman") GUICtrlSetColor(-1, 0xFF0000) $GT1 = GUICtrlCreateCheckbox("", 128, 64, 17, 26) $Input1 = GUICtrlCreateInput("", 168, 64, 217, 27) ; Ẩn Input 1 không hiện trên Form GUICtrlSetState($Input1, $GUI_HIDE) GUICtrlSetFont(-1, 12, 800, 0, "Times New Roman") GUICtrlSetColor(-1, 0x0000FF) $GT2 = GUICtrlCreateCheckbox("", 128, 104, 17, 18) $Input2 = GUICtrlCreateInput("", 168, 96, 217, 27) ; Ẩn Input 2 không hiện trên Form GUICtrlSetState($Input2, $GUI_HIDE) GUICtrlSetFont(-1, 12, 800, 0, "Times New Roman") GUICtrlSetColor(-1, 0x0000FF) $Button1 = GUICtrlCreateButton("KIỂM TRA", 168, 144, 145, 33) GUICtrlSetFont(-1, 10, 800, 0, "Times New Roman") GUICtrlSetColor(-1, 0x001F40) GUICtrlSetBkColor(-1, 0xFFFF00) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### ; Bản thân đối tượng Check box chỉ có giá trị TRUE = 1 hoặc FALSE vì vậy phải viết Case cho nút chọn CheckBox ; Và khi chọn thì gán giá trị cho Input và ta dùng giá trị này để thao tác trong Code While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $GT1 If GUICtrlRead($GT1)='1' Then ; Nếu giá trị = 1 tức là được chọn thì gán giá trị cho 1 $Input1 GUICtrlSetData($Input1,'1') Else GUICtrlSetData($Input1,'') EndIf Case $GT2 If GUICtrlRead($GT2)='1' Then ; Nếu giá trị = 1 tức là được chọn thì gán giá trị 2 cho $Input2 Guictrlsetdata($Input2,'2') Else Guictrlsetdata($Input2,'') EndIf Case $Button1 MsgBox(0, "Giá trị đã chọn:", "Giá trị thứ nhất là : " & GUICtrlRead($Input1) & @LF & "Giá trị thứ hai là : " & GUICtrlRead($Input2) ) EndSwitch WEnd