ฟอรั่มของบล็อก http://pssix.blogspot.com


ช่วยดู Checkbox ของผมหน่อยนะครับ

Share

chaodroger
PSsix Member Class II
PSsix Member Class II


จำนวนข้อความ : 30
ความนิยม : 0
เข้าร่วมเมื่อ : 30/12/2013

ช่วยดู Checkbox ของผมหน่อยนะครับ

ตั้งหัวข้อ by chaodroger on 17/02/14, 07:56 pm

Code:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>


$Form1 = GUICreate("Form1", 207, 321, 499, 129)
$Start = GUICtrlCreateButton("Start", 40, 168, 75, 25)
$Checkbox = GUICtrlCreateCheckbox("Checkbox", 40, 32, 97, 17)


GUISetState(@SW_SHOW)

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

           Sleep(500)
           Start()

    EndSwitch
 WEnd




Func Start()

If GUICtrlRead($Checkbox) = 1 Than
 
ToolTip( "Hello World" , 0, 0)

Endif
EndFunc

ในกระทูเก่าๆก็ย้อนไปอ่าน
ใน Google เอาตัวอย่างมาศึกษาทีละอัน F1 ก็กดอ่านดูแล้ว
ส่วนมากก็เห็นเค้าใช้ 

If GUICtrlRead($Checkbox) = 1 Than



ทำไมของผม Run สคริปไม่ขึ้นอ่ะครับ T-T

ปล.ขอบคุณครับ ตอนแรกว่าจะไม่โพสถามแล้วอยากหาด้วยเอง สุดท้ายก็หาไม่ได้ T0T
avatar
Arm
PSsix Member Super Class III
PSsix Member Super Class III

PSsix Master PSsix Program Coder
จำนวนข้อความ : 267
ความนิยม : 54
เข้าร่วมเมื่อ : 31/03/2011
อายุ : 19

Re: ช่วยดู Checkbox ของผมหน่อยนะครับ

ตั้งหัวข้อ by Arm on 17/02/14, 08:15 pm

Error! บรรทัดที่ #31 em232 เขียน Than ผิด แก้เป็น Then
(ไม่น่าจะเขียนผิดนะ เพราะมันก็มีตัวตรวจสอบไวยากรณ์อยู่แล้วนี่ครับ แต่ถ้ารีบๆก็ผิดได้) em228 

แล้วก็ GUICtrlRead($Checkbox) = 1 ที่ถูกต้องควรจะเขียนเป็น GUICtrlRead($Checkbox) = $GUI_CHECKED

Code:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

$Form1 = GUICreate("Form1", 207, 321, 499, 129)
$Start = GUICtrlCreateButton("Start", 40, 168, 75, 25)
$Checkbox = GUICtrlCreateCheckbox("Checkbox", 40, 32, 97, 17)
GUISetState(@SW_SHOW)

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

Func Start()
 If GUICtrlRead($Checkbox) = $GUI_CHECKED Then
 ToolTip( "Hello World" , 0, 0)
 Else
 ToolTip("")
 EndIf
EndFunc

EDIT: เสริม If Else ใน Func Start() ให้นิดนึง em230 ชินจัง 

chaodroger
PSsix Member Class II
PSsix Member Class II


จำนวนข้อความ : 30
ความนิยม : 0
เข้าร่วมเมื่อ : 30/12/2013

Re: ช่วยดู Checkbox ของผมหน่อยนะครับ

ตั้งหัวข้อ by chaodroger on 17/02/14, 08:41 pm

โห่่ววว ว่าแล้ว นั่ง งมทั้งวัน T0T ~~~~~ ขอบคุณครับ T^T

    เวลาขณะนี้ 24/04/17, 12:42 am