Pertemuan 12 Menambah Data

Tambah kan button

Ganti text button menjadi tambah

                                           

Doble Klik pada button tambah

Masukkan pada button tambah code seperti berikut

Private Sub btnTambahBuku_Click(sender As Object, e As EventArgs) Handles btnTambahBuku.Click

        FormTambahBuku.Show()

        Me.Close()

        TampilBuku()

    End Sub

Jika sudah selanjutnya running aplikasi coba button tambah jika berhasil akan muncul tampilan seperti berikut