วันเสาร์ที่ 19 มิถุนายน พ.ศ. 2553

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

วันพฤหัสบดีที่ 17 มิถุนายน พ.ศ. 2553

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