Krit Th.
20+ yrs in programming professional markets, FMCG researchers, system analyst, university lecturers, broadcasting expert, and so on.
การเขียนโปรแกรมเชิงวัตถุ
21910-2011
อาจารย์กฤษณ์ ท.
VB in Actions
FORM
DataGridView
Label
ComboBox
TextBox
Button
VB in Action
-
วัตถุใช้สำหรับอ้างอิงข้อมูล เพื่อนำไปใช้งานในโปรแกรม
Variables (ตัวแปร)
Dim iTotal As Double = 0
Dim intQty As Integer
Dim itemName As String| ส่วนประกอบ | ความหมาย |
|---|---|
| Dim | คำสั่งประกาศตัวแปร |
| iTotal | ชื่อตัวแปร |
| Double | ชนิดข้อมูลตัวเลขทศนิยม |
| 0 | ค่าเริ่มต้น |
-
iTotal เป็นตัวแปรประเภทจำนวนจริง (มีทศนิยมได้) ค่าเริ่มต้นเท่ากับศูนย์
-
intQty เป็นตัวแปรประเภทจำนวนเต็ม (ไม่มีทศนิยม)
-
itemName เป็นตัวแปรประเภทข้อความ / อักขระ
VB in Action
-
แสดงข้อความบน Form (ฟอร์ม)
-
เป็น Control ที่แสดงข้อความ
-
สามารถสร้างผ่านเมนู Toolbox
Label (ข้อความ)
VB in Action
-
ใช้สำหรับรับข้อความจากผู้ใช้งาน เพื่อนำไปใช้งานต่อ
InputBox (กล่องรับข้อความ)
VB in Action
InputBox (กล่องรับข้อความ)
| คำสั่ง | ตัวอย่างจากโค้ด | คำอธิบายสั้น ๆ |
|---|---|---|
| .Text | txtQty.Text | ใช้อ่านหรือกำหนดข้อความใน TextBox |
| = | txtItemTitle.Text = "ดินสอ" | ใช้กำหนดค่าให้ TextBox |
| .Text = "" | txtQty.Text = "" | ใช้ล้างข้อความใน TextBox |
| Format() | txtGrandTotal.Text = Format(iTotal, "#,###,##0.00") | จัดรูปแบบตัวเลขก่อนนำไปแสดงใน TextBox |
| IsNumeric() | IsNumeric(txtQty.Text) | ตรวจสอบว่าข้อความใน TextBox เป็นตัวเลขหรือไม่ |
| .Contains() | intQty.Contains(".") | ตรวจสอบว่าข้อความมีอักขระที่กำหนดหรือไม่ |
| CDbl() | CDbl(txtItemPrice.Text) | แปลงข้อความใน TextBox ให้เป็นตัวเลขชนิด Double |
VB in Action
-
ใช้สำหรับเลือกรายการข้อความจากผู้ใช้งาน
ComboBox (กล่องหล่น . . มีรายการให้เลือก)
VB in Action
ComboBox (กล่องหล่น . . มีรายการให้เลือก)
| คำสั่ง / Property | ตัวอย่างจากโค้ด | คำอธิบายสั้น ๆ |
|---|---|---|
| .SelectedIndex | cbItem.SelectedIndex | ดูว่าผู้ใช้เลือกตัวเลือกอันดับที่เท่าไร |
| -1 | cbItem.SelectedIndex = -1 | หมายถึงยังไม่ได้เลือกข้อมูล |
| = 0, 1, 2... | cbItem.SelectedIndex = 0 | ใช้ตรวจว่าผู้ใช้เลือกตัวเลือกใด |
| .SelectedIndexChanged | cbItem.SelectedIndexChanged | เหตุการณ์ที่ทำงานเมื่อผู้ใช้เปลี่ยนรายการที่เลือก |
| .Text | cbItem.Text | อ่านข้อความที่แสดงอยู่ใน ComboBox |
| .Items.Add() | cbItem.Items.Add("001") | เพิ่มรายการเข้า ComboBox |
| .Items.Clear() | cbItem.Items.Clear() | ล้างรายการทั้งหมดใน ComboBox |
VB in Action
-
ใช้สำหรับแสดงข้อมูลในรูปแบบตาราง
DataGridView (ตารางข้อมูล)
VB in Action
DataGridView (ตารางข้อมูล)
| คำสั่ง / Property | ตัวอย่างจากโค้ด | คำอธิบายสั้น ๆ |
|---|---|---|
| .Rows | dtMain.Rows | ใช้เข้าถึงแถวทั้งหมดในตาราง |
| .Rows.Add() | dtMain.Rows.Add(...) | เพิ่มข้อมูล 1 แถวลงในตาราง |
| .Rows.Count | dtMain.Rows.Count | นับจำนวนแถวในตาราง |
| .CurrentCell.RowIndex | dtMain.CurrentCell.RowIndex | ดูว่าเซลล์ที่เลือกอยู่แถวที่เท่าไร |
| .CurrentCell.ColumnIndex | dtMain.CurrentCell.ColumnIndex | ดูว่าเซลล์ที่เลือกอยู่คอลัมน์ที่เท่าไร |
| .Cells() | row.Cells("Column5").Value | อ่านค่าจากเซลล์ในคอลัมน์ที่กำหนด |
| .Value | Cells("Column5").Value | อ่านค่าที่อยู่ในเซลล์ |
| .Rows.RemoveAt() | dtMain.Rows.RemoveAt(coorX) | ลบแถวตามหมายเลขแถว |
| For Each ... In .Rows | For Each row ... In dtMain.Rows | วนอ่านข้อมูลทุกแถวในตาราง |
VB in Action
-
ปุ่มกด สำหรับสั่งให้โปรแกรมดำเนินการตามคำสั่ง
Button (ปุ่มกด)
VB in Action
คำสั่ง ควบคุม สำหรับกรณี เงื่อนไข
If เงื่อนไข Then
'คำสั่งกรณีเป็นจริง
Else
'คำสั่งกรณีเป็นเท็จ
End IfIf cbItem.SelectedIndex = 0 Then
txtItemTitle.Text = "ดินสอ"
ElseIf cbItem.SelectedIndex = 1 Then
txtItemTitle.Text = "ยางลบ"
ElseIf cbItem.SelectedIndex = 2 Then
txtItemTitle.Text = "ปากกา"
End Ifสามารถเลือกไ่ม่ใช้งานได้
ตัวอย่างการใช้งาน
VB in Action
คำสั่ง ควบคุม สำหรับกรณี ทำซ้ำ
For Each ตัวแปร In กลุ่มข้อมูล
'คำสั่ง
NextFor Each row As DataGridViewRow In dtMain.Rows
iTotal = iTotal + CDbl(row.Cells("Column5").Value)
Nextตัวอย่างการใช้งาน
ทำการรวมผลผลตัวเลขจากแถวแนวตั้งที่ชื่อ "Column5"
VB in Action
MessageBox (กล่องข้อความ)
-
ใช้สำหรับแสดงข้อความ
-
มีหลายประเภท
-
สามารถส่งต่อการดำเนินการได้
VB in Action
MessageBox (กล่องข้อความ)
| คำสั่ง / ส่วนประกอบ | ตัวอย่างจากโค้ด | คำอธิบายสั้น ๆ |
|---|---|---|
| MessageBox.Show() | MessageBox.Show("กรุณาเลือกรหัสสินค้า") | แสดงกล่องข้อความ |
| MessageBoxButtons.OK | MessageBoxButtons.OK | แสดงปุ่ม OK |
| MessageBoxButtons.YesNo | MessageBoxButtons.YesNo | แสดงปุ่ม Yes / No |
| MessageBoxIcon.Warning | MessageBoxIcon.Warning | แสดงไอคอนเตือน |
| MessageBoxIcon.Question | MessageBoxIcon.Question | แสดงไอคอนคำถาม |
| DialogResult | Dim result As DialogResult | ตัวแปรสำหรับรับผลว่าผู้ใช้กดปุ่มอะไร |
| DialogResult.Yes | If result = DialogResult.Yes Then | ตรวจว่าผู้ใช้กด Yes หรือไม่ |
VB in Action
MessageBox (กล่องข้อความ)
Dim result As DialogResult
result = MessageBox.Show(
"คุณต้องการลบข้อมูล 002 หรือไม่",
"ระวัง",
MessageBoxButtons.YesNo,
MessageBoxIcon.Question)
'ตัวแปร result สามารถนำไปใช้งานต่อได้
'โดยจะมีค่าเป็น True (จริง) หรือ False (เท็จ)
'มักนำไปใช้งานร่วมกับ If ... End If ต่อ
© Aj. Krit Th.
https://www.kritth.com
21910-2011 OOP 2026-01 VB Practice
By Krit Th.
