Menambahkan Sub/Fungsi ClearForm dan RubahCMD di Module

Microsoft Visual Basic

Beberapa waktu lalu saya sudah mempostingkan program program untuk form Mahasiswa, Dosen dan Mata Kuliah.

Nah pada hari postingan ini saya akan mengajarkan anda untuk membuat 2 sub/fungsi tambahan pada Module1 yaitu fungsi ClearForm dan fungsi RubahCMD.

Tambahkan perintah ini pada Module1.Bas

Sub ClearFORM(f As Form)
    Dim ctl As Control
    For Each ctl In f
        If TypeOf ctl Is TextBox Then ctl.Text = ""
        If TypeOf ctl Is ComboBox Then ctl.Text = ""
    Next
End Sub
Sub RubahCMD(f As Form, L0 As Boolean, L1 As Boolean, L2 As Boolean, L3 As Boolean)
    f.CmdProses(0).Enabled = L0
    f.CmdProses(1).Enabled = L1
    f.CmdProses(2).Enabled = L2
    f.CmdProses(3).Enabled = L3
End Sub

Penjelasan :

Sub/Fungsi ClearForm(f as Form) merupakan fungsi untuk menghapus isian TextBox maupun ComboBox pada sebuah form, pemakaiannya tinggal memanggilkan pada Sub Hapus() sebuah form.

Sebelumnya sub Hapus() pada Form Mahasiswa seperti ini :

Sub Hapus()
    NPM.Enabled = True
    NPM.Text = ""
    NAMA.Text = ""
    TAHUN.Text = ""
    JENJANG.Text = ""
    JURUSAN.Text = ""

    Call RubahCMD(True, False, False, False)
    CmdProses(1).Caption = "&Simpan"
End Sub

maka menjadi :

Sub Hapus()
    NPM.Enabled = True
    ClearFORM FrmMahasiswa
    Call RubahCMD(FrmMahasiswa, True, False, False, False)
    CmdProses(1).Caption = "&Simpan"
End Sub

Begitu juga pada RubahCMD sebelumnya pemakaiannya seperti ini :

Call RubahCMD(True, False, False, False)

Menjadi :

Call RubahCMD(FrmMahasiswa, True, False, False, False)

Lebih efektif bukan dan listing program akan lebih sedikit, karna di setiap form baik mahasiswa, dosen, matakuliah hanya tinggal memanggil sub/fungsi yang terdapat di Module1.Bas saja. 😀

Filed under: Pemrograman VB, VB Tips, Pemrograman VB, VB Tips