Membuat form daftar

Postingan kali ini akan membahas tentang bagimana cara membuat form daftar, serta untuk mengetahui bagaimana cara mengaktifkan atau menonaktifkan Button.Berikut ini adalah langkah-langkahnya . .

Langkah pertama adalah membuat form daftar seperti di samping :

Langkah kedua adalah memasukkan Coding program dan membuat Method untuk setiap Button dan TextBox.

Pertama kita Double Klik pada Form kemudian ubah Method menjadi “ Activated”  dan masukkan codingnnya seperti di bawah ini.


Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles

Me.Activated
Call bersih()     // digunakan untuk memanggil method bersih
Call isicombo() // digunakan untuk memanggil method isicombo
End Sub

Berhubung kedua method yang dipanggil diatas belum dibuat maka terlebih dahulu kita harus membuat kedua method tersebut . dan berikut ini adalah codingnya :

Sub bersih()     // method yang digunakan untuk membersihkan textbox atau combobox
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
ComboBox1.Text = "Teknik Infomatika"
End Sub

Sub isicombo()            // method yang digunakan untuk mengisi combobox
ComboBox1.Items.Add("28 Teknik Informatika")
ComboBox1.Items.Add("45 Sistem Informasi")
ComboBox1.Items.Add("12 Teknik Komputer")
ComboBox1.Items.Add("43 Komputer Akutansi ")
ComboBox1.Items.Add("67 Manajemen Informatika")
End Sub

Setelah selesai membuat method bersih dan isi combo, selanjutnya kita memasukkan eventKlik pada masing-masing Button.

Pada Button “ Tambah “ kita masukkan Codenya seperti dibawah ini :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button1.Text = "Tambah" Then
Button1.Text = "Simpan"
Button2.Enabled = False
Button3.Enabled = False
Button4.Text = "Batal"
TextBox1.Focus()       //membuat cursor berada di textbox1
Else
End If
End Sub

Pada code diatas terlihat bahwa saat kita mengKlik button tambah maka Button “tambah” akan berubah menjadi Button “Simpan” dan Button “Keluar” menjadi Button “Batal”.

Untuk merefresh agar form kembali seperti keadaan semula kita buat method normal, coding programnya adalah sebagai berikut :

Sub Normal()
Button1.Text = "Tambah"
Button1.Enabled = True
Button2.Text = "Ubah"
Button2.Enabled = True

Button3.Text = "Hapus"
Button3.Enabled = True
Button4.Text = "Keluar"
End Sub


Selanjutnya kita edit pada Button Keluar

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If Button4.Text = "Batal" Then
Call Normal()
Call bersih()
Else
Me.Close()
End If
End Sub

Untuk tahap ini kita telah selesai membuat form daftar,