Kalo saya biasanya mempergunakan cara berikut:
Buat tipe data enum yang menampung status transaksi
private enum enTransactionState
tsNone
tsAdd
tsEdit
end enum
private TransactionState as enTransactionState
Terus pas di event Click dari tombol diisikan rutin untuk isi nilai variabel
TransactionState sesuai fungsi tombol
Misalnya ;
- di tombol tambah:
TransactionState = tsAdd
- di tombol ubah:
TransactionState = tsEdit
- di tombol cancel:
TransactionState = tsNone
Nah terus variabel itu dipake deh di tempat yang diperlukan misalnya di
tombol simpan, dicek apakah nilai TransactionState adalah tsAdd atau tsEdit,
kalo gak berarti die lom klik tombol tambah atau ubah.
Variabel ini juga bisa dipake buat keperluan lainnya. Pastikan aja nilai di
set dengan benar.
Iwan Cahyadi Sugeng
Freelance System Analyst
________________________________
From: Toni Rahayu [mailto:[EMAIL PROTECTED]
Sent: Thursday, August 24, 2006 8:44 AM
To: [email protected]
Subject: Re: [indoprog-vb] diulang pertanyaan mendetek click
Wah kita di her nich, harus diulang lagi -: )
coba saja kaya gini :
Option Explicit
Dim bolCheck As Boolean
Private Sub cmbNew_Click()
bolCheck = True
End Sub
Private Sub cmbSave_Click()
If bolCheck = False Then
MsgBox "Anda harus click tombol NEW dulu !!"
Exit Sub
Else
MsgBox "Tombol NEW sudah diclick !!"
Exit Sub
End If
End Sub
Kalo kagak puas boleh complaint
Salam Manizz
Maya Agnelia <[EMAIL PROTECTED] <mailto:maya_agne%40yahoo.com> >
on 24/08/2006 09:17:06 AM
Please respond to [email protected]
<mailto:indoprog-vb%40yahoogroups.com>
To: [email protected]
<mailto:indoprog-vb%40yahoogroups.com>
cc: (bcc: Toni Rahayu/IT/domino_srv)
Subject: [indoprog-vb] diulang pertanyaan mendetek click
makasih Aa Toni yg ganteng, dan makasih juga mas mul
dan mas lain atas responya.
kasusnya gini, saya mau spy pd saat form entry tampil
sekalipun tidak di disable objek textBoxnya namun user
hrs mengclick button NEW terlebih dulu shg apabila
user langsung mengisi entrian data nanti pd saat
diclick button SAVE maka akan ada pesan bahwa user blm
mengclick button NEW. jadi pertanyaanya adalah gmn
cara mendetek bahwa button NEW ini udah diklik
thanks
maya
--- Toni Rahayu <[EMAIL PROTECTED]
<mailto:toni.rahayu%40gmail.com> > wrote:
>
>
> Halo maya.............
> Ya.. kasih warna saja tuh control setelah di click,
> contoh :
>
> Private Sub Command1_Click()
> Command1.BackColor = vbRed
> End Sub
>
> Tapi saya yakin maksud pertanyaan maya bukan itu
> ??!!
>
> Rgds
>
>
>
>
>
> Maya Agnelia <[EMAIL PROTECTED] <mailto:maya_agne%40yahoo.com> >
on 23/08/2006
> 03:38:03 PM
>
> Please respond to [email protected]
<mailto:indoprog-vb%40yahoogroups.com>
>
> To: [email protected]
<mailto:indoprog-vb%40yahoogroups.com>
> cc: (bcc: Toni Rahayu/IT/domino_srv)
>
> Subject: [indoprog-vb] mendetek click
>
>
>
> hi guys,
> numpang nanya nih,
> gmn sih caranya kita mendetek kalo control itu sudah
> diclick. contohnya commandButton, label, textbox
> dll.
>
> thanks all
> maya
>
> __________________________________________________
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Bagi terjangkit virus lokal, zip virus tersebut
dan kirim ke [EMAIL PROTECTED], kami
akan membuat removalnya untuk anda.
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indoprog-vb/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
