คอนโทรล Button
คอนโทรล Button
คอนโทรล Button เป็นปุ่มกดสำหรับการทำงานบางอย่าง จัดได้ว่าเป็นคอนโทรลที่มีการใช้งานมากที่สุด
อีเวนต์ของคอนโทรล Button มีดังนี้
- Click เกิดเมื่อมีการคลิกที่ Button
ตัวอย่างการใช้ปุ่ม Button
1. สร้าง Project ใหม่
2. นำ Button มาวางตามรูป
ตั้งชื่อใหม่ให้กับ ปุ่ม ดังนี้
3. เมื่อเริ่ม Run ให้ปุ่ม “ดำเนินการต่อไป” ไม่สามารถใช้งานได้
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
btnContinue.Enabled = False
End Sub
4. เมื่อคลิกปุ่ม “ใส่ข้อมูล” จะนำ InputBox มารับข้อมูล ถ้าหากไม่ใส่ข้อมูลปุ่ม “ดำเนินการต่อไป” จะใช้งานไม่ได้ แต่ถ้าใส่ข้อมูลจึงจะให้ใช้งานได้
Private Sub btnEnterdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnterdata.Click
Dim data As String
Data=InputBox("กรุณาใส่ข้อมูล")
If data = "" Then
btnContinue.Enabled = False
Else
btnContinue.Enabled = True
End If
End Sub
5. โค้ดสำหรับปุ่ม “ดำเนินการต่อไป” และปุ่ม “เลิกงาน”
Private Sub btnContinue_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnContinue.Click
MessageBox.Show("ดำเนินการเสร็จแล้ว ") btnContinue.Enabled = False
End Sub
Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
Me.Close() ' หรือ Me.Dispose() หรือ End
End Sub