Kamis 2 Juli 2009 VB Sulap cmd boton

hari nich aq belajar soscode vb :
Comand boton Simpan Batal Tambah Edit Hapus Keluar
Simpan Batal = visible = True
Tambah Edit Hapus Keluar = Visible = False
Sos code / listing

Sub aktifcmd()
simpan.Visible = True: batal.Visible = True
Tambah.Visible = False: edit.Visible = False: hapus.Visible = False: keluar.Visible = False
End Sub
Sub nonaktifcmd()
simpan.Visible = False: batal.Visible = False
Tambah.Visible = True: edit.Visible = True: hapus.Visible = True: keluar.Visible = True

End Sub

Private Sub batal_Click()
Call nonaktifcmd
End Sub

Private Sub edit_Click()
Call aktifcmd
End Sub



Private Sub Form_Load()

End Sub

Private Sub keluar_Click()
Unload Me
End Sub

Private Sub simpan_Click()
Call nonaktifcmd
End Sub

Private Sub Tambah_Click()
Call aktifcmd
End Sub