Mesran

Hanya ingin berbagi kebaikan dan mendapatkan kebaikan yang lain.

Menambahkan Sub/Fungsi ClearForm dan RubahCMD di Module

Microsoft Visual Basic

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, ,

Terima kasih telah memberikan komentar anda.

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

Archives Per Tahun

Sponsored

C&C Online Shop

Blog Stats

  • 355,909 sejak 12 Jan 2011

User’s Online


My Music

Enter your email address to follow this blog and receive notifications of new posts by email.

Join 223 other followers

May 2011
M T W T F S S
« Apr   Jun »
 1
2345678
9101112131415
16171819202122
23242526272829
3031  
%d bloggers like this: