|
ปุ่มคำสั่งมีหน้าที่
ตอบสนองต่อการคลิกเมาส์
ของผู้ใช้ที่สั่งงานมายังโปรแกรม
การเกิดอีเว็นต์ Click
ของปุ่มคำสั่ง
1. เกิดจากการ
คลิกเมาส์ของผู้ใช้
2. เกิดจากการกดปุ่ม Enter
สำหรับปุ่มคำสั่งที่กำหนดให้กับคุณสมบัติ
AcceptButton ของฟอร์ม
3. เกิดจากการกดปุ่ม Esc
สำหรับปุ่มคำสั่งที่กำหนดให้กับคุณสมบัติ
CancelButton ของฟอร์ม
4. เกิดจากการกดปุ่ม Alt +
ตัวอักษรขีดเส้นใต้อยู่
(สามารถกำหนดในคุณสมบัติ Text
โดยการใส่ &
หน้าตัวอักขระที่ต้องการให้มีการขีดเส้นใต้)
5.
เกิดจากการย้ายโฟกัสไปยังปุ่มคำสั่งด้วยการกดปุ่ม
Tab และเลือกปุ่มนั้น โดยการกดปุ่ม
Spacebar หรือ Enter
6. เกิดจากการเรียกเมดถอด
PerformClick ในโค้ดโปรแกรม
คุณสมบัติที่สำคัญของปุ่มคำสั่ง
|
ชื่อคุณสมบัติ
|
คำอธิบาย
|
|
Image |
กำหนดรูปภาพที่แสดงบนปุ่มคำสั่ง |
|
BackgroundImage |
กำหนดรูปภาพที่แสดงบนพื้นหลังของปุ่มคำสั่ง |
|
ImageAlign |
กำหนดตำแหน่งที่จะแสดงรูปภาพที่เรากำหนดในคุณสมบัติ
Image |
|
Text |
ข้อความที่ปรากฏบนปุ่มคำสั่ง |
|
TextAlign |
กำหนดตำแหน่งที่จะแสดงข้อความบนปุ่มคำสั่ง
มีชิดซ้าย ขวา หรือตรงกลาง |
|
Font |
กำหนดรูปแบบฟอนต์ที่จะแสดงบนคอนโทรล |
|
Enabled |
กำหนดให้ปุ่มคำสั่งใช้งานได้หรือไม่ |
|
Visible |
กำหนดให้คอนโทรลสามารถมองเห็นได้ในตอนรันหรือไม่ |
ตัวอย่างโปรแกรมการใช้ปุ่มคำสั่ง
(ButtonDemo)
เป็นตัวอย่างที่แสดงการใช้งานปุ่มคำสั่ง
เมื่อเราใส่ข้อความลงไปในเท็กบ็อกซ์
ปุ่มคำสั่งจะตอบสนองต่อการคลิกเมาส์ได้
แต่ถ้าไม่มีข้อความในเท็กบ็อกซ์
ปุ่มคำสั่งจะไม่ตอบสนองต่อการทำงาน
1. สร้างโปรเจ็กต์ชนิด Windows
Application และวางคอนโทรลดังรูป
และกำหนดคุณสมบัติต่างๆ
ของคอนโทรลดังตาราง
|
ชนิดคอนโทรล
|
คุณสมบัติ
|
ค่าที่กำหนดให้
|
คำอธิบาย
|
|
Form |
Name |
Form1 |
ชื่อฟอร์ม |
|
Button |
Name |
Button1 |
ชื่อปุ่มคำสั่ง |
|
Text |
Show Name |
ข้อความที่ปรากฏบนปุ่มคำสั่ง |
|
Image |
Face02.ICO |
รูปภาพของปุ่มคำสั่ง |
|
ImageAlign |
Left |
กำหนดให้รูปภาพแสดงชิดซ้าย |
|
Label |
Name |
Label1 |
ชื่อเลเบล |
|
Text |
Name: |
ข้อความที่กำหนดให้เลเบล |
|
TextBox |
Name |
TextBox1 |
ชื่อเท็กบ็อกซ์ |
|
Text |
"" |
ข้อความที่ปรากฏในเท็กบ็อกซ์ |
2. ใส่คำสั่งโปรแกรม
Private Sub Button1_Click(ByVal
sender As System.Object,
ByVal e As System.EventArgs)
Handles Button1.Click
MsgBox("Full Name = "
& TextBox1.Text, vbOKOnly)
End Sub
Private Sub
TextBox1_TextChanged(ByVal
sender As System.Object,
ByVal e As System.EventArgs)
Handles TextBox1.TextChanged
If TextBox1.Text <> ""
Then
Button1.Enabled =
True
Else
Button1.Enabled =
False
End If
End Sub |
3. แสดงผลลัพธ์ของโปรแกรม
|
