สอบถามเรื่องการแสดงผลใน Label เมื่อ Click Checkbox

[jullathep]

Code: Select all

Private Sub CommandButton1_Click()
Label1.Caption = CheckBox1.Caption & (" ")
Label1.Caption = CheckBox2.Caption & (" ")
Label1.Caption = CheckBox3.Caption & (" ")
Label1.Caption = CheckBox4.Caption & (" ")
Label1.Caption = CheckBox5.Caption & (" ")
Label1.Caption = CheckBox6.Caption & (" ")
Label1.Caption = CheckBox7.Caption & (" ")
End Sub

จากในไฟล์แนบ เมือผมคลิก Checkbox แต่ละตัวค่ามันแสดงออกตามที่กำหนด แต่พอผมกลับไปคลิกตัวแรก มันกลับไม่ส่งค่าการแสดง ของ Checkbox อันแรกครับ ผมควรแก้ยังไงดีครับ ขอบคุณมากครับ

[snasui]

คลิก ChekBox แล้วจะให้เกิดสิ่งใดก็ต้องเขียน Code ใน Event Click ของ CheckBox นั้นครับ เช่น

Code: Select all

Private Sub CheckBox1_Click()
    If CheckBox1.Value = True Then
        Label1.Caption = CheckBox1.Caption
    End If
End Sub

Private Sub CheckBox2_Click()
    If CheckBox2.Value = True Then
        Label1.Caption = CheckBox2.Caption
    End If
End Sub

[jullathep]

คลิก ChekBox แล้วจะให้เกิดสิ่งใดก็ต้องเขียน Code ใน Event Click ของ CheckBox นั้นครับ เช่น

Code: Select all

Private Sub CheckBox1_Click()
    If CheckBox1.Value = True Then
        Label1.Caption = CheckBox1.Caption
    End If
End Sub

Private Sub CheckBox2_Click()
    If CheckBox2.Value = True Then
        Label1.Caption = CheckBox2.Caption
    End If
End Sub

อ๋อขอบคุณครับอาจารย์ คือจะมีกี่ Check ก็ต้องวาง Code ดังกล่าวลงไปใช่ไหมครับ ขอบคุณมากครับ

[snasui]

อ๋อขอบคุณครับอาจารย์ คือจะมีกี่ Check ก็ต้องวาง Code ดังกล่าวลงไปใช่ไหมครับ ขอบคุณมากครับ

ถูกต้องครับ

[jullathep]

อ๋อขอบคุณครับอาจารย์ คือจะมีกี่ Check ก็ต้องวาง Code ดังกล่าวลงไปใช่ไหมครับ ขอบคุณมากครับ

ถูกต้องครับ

ขอบพระคุณครับ ท่านอาจารย์