การเขียนโปรแกรมเชิงวัตถุ
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 If

If 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 กลุ่มข้อมูล
    'คำสั่ง
Next

For 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 ต่อ

https://www.kritth.com

การเขียนโปรแกรมเชิงวัตถุ 21910-2011

อาจารย์กฤษณ์ ท.

VB in Actions

FORM

DataGridView

Label

ComboBox

TextBox

Button

VB in Action

วัตถุใช้สำหรับอ้างอิงข้อมูล เพื่อนำไปใช้งานในโปรแกรม

Variables (ตัวแปร)

iTotal เป็นตัวแปรประเภทจำนวนจริง (มีทศนิยมได้) ค่าเริ่มต้นเท่ากับศูนย์

intQty เป็นตัวแปรประเภทจำนวนเต็ม (ไม่มีทศนิยม)

itemName เป็นตัวแปรประเภทข้อความ / อักขระ

VB in Action

แสดงข้อความบน Form (ฟอร์ม)

เป็น Control ที่แสดงข้อความ

สามารถสร้างผ่านเมนู Toolbox

Label (ข้อความ)

VB in Action

ใช้สำหรับรับข้อความจากผู้ใช้งาน เพื่อนำไปใช้งานต่อ

InputBox (กล่องรับข้อความ)

VB in Action

InputBox (กล่องรับข้อความ)

VB in Action

ใช้สำหรับเลือกรายการข้อความจากผู้ใช้งาน

ComboBox (กล่องหล่น . . มีรายการให้เลือก)

VB in Action

ComboBox (กล่องหล่น . . มีรายการให้เลือก)

VB in Action

ใช้สำหรับแสดงข้อมูลในรูปแบบตาราง

DataGridView (ตารางข้อมูล)

VB in Action

DataGridView (ตารางข้อมูล)

VB in Action

ปุ่มกด สำหรับสั่งให้โปรแกรมดำเนินการตามคำสั่ง

Button (ปุ่มกด)

VB in Action

คำสั่ง ควบคุม สำหรับกรณี เงื่อนไข

สามารถเลือกไ่ม่ใช้งานได้

ตัวอย่างการใช้งาน

VB in Action

คำสั่ง ควบคุม สำหรับกรณี ทำซ้ำ

ตัวอย่างการใช้งาน

ทำการรวมผลผลตัวเลขจากแถวแนวตั้งที่ชื่อ "Column5"

VB in Action

MessageBox (กล่องข้อความ)

ใช้สำหรับแสดงข้อความ

มีหลายประเภท

สามารถส่งต่อการดำเนินการได้

VB in Action

MessageBox (กล่องข้อความ)

VB in Action

MessageBox (กล่องข้อความ)

การเขียนโปรแกรมเชิงวัตถุ
21910-2011