ListBox : การลบข้อมูลออกจากListBox

1. สร้าง TextBox1
2. สร้าง ListBox1
3. สร้าง สร้างปุ่มสำหรับลบ

พิมพ์ code ที่ปุ่มลบนะครับ

ListBox1.Items.Remove(ListBox1.SelectedItem)

ListBox : การเพิ่มข้อมูลลงListBox

1. สร้าง TextBox1
2. สร้าง ListBox1
3. สร้าง ฺButton1

พิมพ์ code ที่ปุ่มนะครับ

ListBox1.Items.Add(TextBox1.Text)

Button : ปุ่ม backspace

*เขียนcode ที่่ปุ่มน่ะครับ

If TextBox1.Text < " " Then
TextBox1.Text = Mid(TextBox1.Text, 1, Len(TextBox1.Text) - 1 + 1)
Else
TextBox1.Text = Mid(TextBox1.Text, 1, Len(TextBox1.Text) - 1)
End If

DateTime : แสดงเวลาปัจจุบัน

1. เพิ่ม Label1
2. พิมพ์ code ที่ Event Load

Label1.Text = "ขณะนี้เวลา " & Now

PictureBox : เพิ่มรูป

1. เพิ่ม OpenfileDialog
2. เพิ่ม PictureBox
3. เพิ่ม Button
4. พิมพ์ code ที่ button


With OpenFileDialog1
.CheckFileExists = True
.ShowReadOnly = False
.Filter = "All Files|*.*|Bitmap Files (*)|*.bmp;*.gif;*.jpg"
.FilterIndex = 2
If .ShowDialog = DialogResult.OK Then

PictureBox1.Image = Image.FromFile(.FileName)

End If
End With

Datetime : แสดงวันเวลา ปัจจุบัน

1. พิมพ์ code ที่ Event Load ของฟอร์ม

Dim d, t As New DateTime()
d = DateTime.Parse(Today)

t = TimeOfDay


Dim msg As String = ""

msg &= "วันเดือนปี: " & d.ToLongDateString() & vbNewLine
msg &= "เวลา: " & t.ToLongTimeString() & vbNewLine
msg &= "วันนี้เป็นวัน : " & d.DayOfWeek().ToString() & vbNewLine
msg &= "ปีนี้เดือนกุมภาพันธ์มี 29 วัน: " & _
DateTime.IsLeapYear(d.Year) & vbNewLine
'อีกเพิ่ม 10 วัน'
d = d.AddDays(10)
msg &= "อีก 10 วันจะตรงวันที่: " & d.ToLongDateString()

MsgBox(msg)

MsgBox : ออกจากโปรแกรมหรือไม่?

1. สร้างปุ่ม Exit
2. ใส่ Code ที่ ปุ่ม Exit

Dim mbr As MsgBoxResult
mbr = MsgBox("ออกจากโปรแกรมหรือไม่?",
MsgBoxStyle.OkCancel + _
MsgBoxStyle.Question + _
MsgBoxStyle.ApplicationModal, _
"ออกจากโปรแกรม")
If (mbr = MsgBoxResult.Ok) Then
Me.Close()
End If
End Sub

MsgBox : แสดงข้อความต้อบรับ

1. พิมพ์ code ทีj Event load


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


Dim str As String

str = "Hello World : " & vbNewLine
str &= "My Name Is 9aood" & vbNewLine
str &= "***************" & vbNewLine
str &= "i like VB 2010"
MsgBox(str, MsgBoxStyle.Information, "ทดสอบ MsgBox")



End Sub

TextBox : การเปลี่ยนรูปแบบอักษร[FontDialog]

1. เพิ่ม FontDialog จาก ToolBox
2. เพิ่ม ปุ่ม
3. .ใส่ Code ที่ปุ่ม

FontDialog1.ShowDialog()
TextBox1.Font = FontDialog1.Font

TextBox : การคัดลอกข้อมความทั้งหมดจาก Textbox1 ไป Textbox1

* พิมพ์ Code ที่ ปุ่ม

TextBox1.SelectAll()
TextBox2.Text = TextBox1.SelectedText

TextBox : ลบข้อความจากบรรทัดแรก ของ textbox

* เขียน code ที่ปุ่มน่ะ

Dim b As String() = Split(TextBox1.Text, vbNewLine)
TextBox1.Text = String.Join(vbNewLine, b, 1, b.Length - 1)

TextBox : สร้างปุ่มวางข้อความจากคลิปบอร์ด

การสร้างปุ่มเพื่อวางข้อความจากคลิปบอร์ด ใส่ในtextbox

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnpaste.Click
If My.Computer.Clipboard.ContainsText Then
TextBox1.Text = My.Computer.Clipboard.GetText
End If
End Sub

TextBox : Input ตัวเลขเท่านั้น

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

If Asc(e.KeyChar) <> 13 And Asc(e.KeyChar) <> 8 Then

If Not IsNumeric(e.KeyChar) Then

MessageBox.Show("กรุณาใส่ตัวเลขเท่านั้น !")

e.Handled = True
End If

End If
End Sub

TextBox : การเคลียร์ข้อความใน TextBox ทั้งหมด

1. สร้าง textbox ขึ้นมา
2. สร้างปุ่มสำหรับเคลียร์
3.พิมพ์ Code ที่ ปุ่มเคลียร์

Dim a As Control
For Each a In Me.Controls
If TypeOf a Is TextBox Then
a.Text = Nothing
End If
Next