ปัญหาคือโปรแกรมมันจะยาวเกินความจำเป็นจึงลองคิดดูว่ามีวิธีย่อให้มันสั้นลงไหมแล้วลองทดสอบดูพบว่าใช้ได้ผลดี
Private Sub chk_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles chk1.Click, chk2.Click, chk3.Click, chk4.Click, chk5.Click, chk6.Click, chk7.Click, chk8.Click, chk9.Click Dim chkX As CheckBox chkX = sender If chkX.Checked = True Then chkX.Checked = False Else chkX.Checked = True End If MessageBox.Show("แต่หากต้องการแก้ไขหรือเปลี่ยนแปลง กรุณาเข้าไปแก้ข้อมูลตั้งต้นใน Work Order", "Read Only Data", MessageBoxButtons.OK, MessageBoxIcon.Information) End Sub
แล้ว Handles Click มันต่างกันกับ CheckedChanged และ CheckStateChanged ยังไง
ลองทดสอบดูแล้วพบว่ามันทำตามลำดับดังนี้
CheckedChanged, CheckStateChanged และ Click ตามลำดับ
No comments:
Post a Comment