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)
0 comments:
Post a Comment