Manipulasi Button Pada VB.NET

Pada pembahasan vb.net kali ini gak tau apa judul materinya, soalnya pada pertemuan ini pak Dosen langsung aja ngasih latihan yang semua coding pada masing – masing toolbox didikte tanpa menjelaskannya terlebih dahulu. Tapi jika kita masih ingat latihan – latihan pada VB.Net yang kemarin, pada latihan kali ini semua yang akan kita praktekan pernah dibahas. Jadi misalnya belum pernah pelajari latihan – latihan pada materi yang kemarin, alangkah baiknya jika dipelajari dulu dech…

Pertama mari kita buat form terlebih dahulu seperti pada dibawah ini :

Setelah selesai pmbuatan form diatas, ubahlah properties pada masing – masing toolbox sesuai dibawah ini atau ubahlah sesuai keinginan kita agar kita mudah dalam memahami pada setiap codingnya.

Textbox1

Name = txtnpm

Text = -

Textbox2

Name = txtnama

Text = -

Textbox3

Name = txtnama

Text = -

Textbox4

Name = txtalamat

Text = -

Combox1

Name = cmbjurusan

Text = -

Button1

Name = btntambah

Text = Tambah

Button2

Name = btnubah

Text = Ubah

Button3

Name = btnhapus

Text = Hapus

Button4

Name = btnkeluar

Text = Keluar

Listbox1

Name = listboxt1

Setelah semua properties kita ubah, langsung aja kita masukan codingnya sesuai dibawah ini :

Public Class Form1

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

Call isicombo()

Call bersih()

End Sub

Sub isicombo()

Cmbjurusan.Items.Add("01 Tekinik Informatika")

Cmbjurusan.Items.Add("02 Teknik Informasi")

Cmbjurusan.Items.Add("03 Manajemen Informasi")

Cmbjurusan.Items.Add("04 Komputer Akutansi")

Cmbjurusan.Items.Add("05 Teknik Komputer")

End Sub

Sub bersih()

Txtnpm.Text = ""

Txtnama.Text = ""

Txtalamat.Text = ""

Txttelepon.Text = ""

End Sub

Sub normal()

Btntambah.Text = "Tambah"

Btntambah.Enabled = True

Btnubah.Text = "Ubah"

Btnubah.Enabled = True

Btnhapus.Text = "Hapus"

Btnhapus.Enabled = True

Btnkeluar.Text = "Keluar"

Btnkeluar.Enabled = True

End Sub

Private Sub Btntambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btntambah.Click

If Btntambah.Text = "Tambah" Then

Btntambah.Text = "Simpan"

Btnubah.Enabled = False

Btnhapus.Enabled = False

Btnkeluar.Text = "Batal"

Txtnpm.Focus()

Else

ListBox1.Items.Add(Trim(Txtnpm.Text) + " " + Trim(Txtnama.Text) + " " + Trim(Txtalamat.Text) + " " + Trim(Txttelepon.Text))

End If

End Sub

Private Sub Btnubah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnubah.Click

If Btnubah.Text = "Ubah" Then

Btntambah.Enabled = False

Btnhapus.Enabled = False

Btnkeluar.Text = "Batal"

Txtnpm.Focus()

End If

End Sub

Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click

If Btnhapus.Text = "Hapus" Then

Btntambah.Enabled = False

Btnubah.Enabled = False

Btnkeluar.Text = "Batal"

Txtnpm.Focus()

End If

End Sub

Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click

If Btnkeluar.Text = "Keluar" Then

Me.Close()

Else

Call bersih()

Call normal()

End If

End Sub

End Class