Alternatif lain:
Msgbox peringatan itu muncul pada event validate, bukan pada saat
user menekan key/memasukkan data.
Kira2 routine'nya seperti ini:
-----------------
Private Sub txt_jamlembur_Validate(Cancel As Boolean)
If Not IsNumeric(txt_jamlembur.Text) then
MsgBox ("Anda harus memasukkan angka."), vbOKOnly +
vbExclamation, "Peringatan"
Cancel = True
Exit Sub
End If
txt_jamlembur.Text = Format(txt_jamlembur.Text, "###.00")
End Sub
-----------------
ini tidak menjawab pertanyaan Anda tapi akan merubah segalanya :D
(bayangkan kalau ada ratusan textbox).
sayang kalau fasilitas validate itu disia-siakan.
Good luck!
--- In [email protected], "Karman ." <[EMAIL PROTECTED]> wrote:
>
> Coba pake Ascii Numbernya aja... Jangan pake vbkey... Pasti Bisa
>
>
> ----- Original Message ----
> From: Don Rudy <[EMAIL PROTECTED]>
> To: [email protected]
> Sent: Tuesday, March 6, 2007 2:22:28 PM
> Subject: [ITCENTER] [IT-CENTER]Tanya - Visual Basic 6.0
>
> Dear All, saya perlu bantuan nich. Semoga ada yang mau bantu.
> Saya sedang membuat aplikasi payroll di kantor menggunakan Visual
Basic.
> Untuk input angka saya menggunakan KeyAscii supaya karakter lain
(selain
> angka) tidak bisa diinput. Masalahnya adalah angka yang dimasukkan
> seharusnya bisa Decimal(dengan menggunakan "."), saya sudah mencoba
> menggunakan VbKeyDecimal tapi tidak berfungsi...
> Saya inputkan "." tetap muncul MsgBox, berikut ini saya sertakan
code-nya.
> Thanks.
>
> Private Sub txt_jamlembur_ KeyPress( KeyAscii As Integer)
> On Error Resume Next
> If ((KeyAscii >= vbKey0) And (KeyAscii <= vbKey9)) Or (KeyAscii =
> vbKeyBack) Or (KeyAscii = vbKeyDecimal) Then
> Exit Sub
> Else
> MsgBox ("Anda harus memasukkan angka."), vbOKOnly + vbExclamation,
> "Peringatan"
> KeyAscii = vbKeyBack
> End If
> On Error GoTo 0
> End Sub
>
> [Non-text portions of this message have been removed]
--
www.itcenter.or.id - Komunitas Teknologi Informasi Indonesia
Gabung, Keluar, Mode Kirim : [EMAIL PROTECTED]
## Jobs: itcenter.or.id/jobs ## Bursa: itcenter.or.id/bursa ##
## Jaket ITCENTER tersedia di http://shop.itcenter.or.id
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/ITCENTER/
<*> Your email settings:
Individual Email | Traditional
<*> To change settings online go to:
http://groups.yahoo.com/group/ITCENTER/join
(Yahoo! ID required)
<*> To change settings via email:
mailto:[EMAIL PROTECTED]
mailto:[EMAIL PROTECTED]
<*> 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/
