คอนโทรล 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