Kalau tujuannya hanya untuk memasukkan angka, kenapa tidak mencoba dengan input mask & formatting.
Input mask adalah attribute dari text box yang "memaksakan otomatis" apa saja yg bisa masuk. Kalo tipe input mask adalah "numeric only", maka yang bisa masuk selain angka adalah tanda titik, tanda koma dan (kalau ngak salah) tanda dollar. Formatting adalah "pemaksaan tampilan" dari isi data yg sebenarnya. Contoh... kalo data asli 6000000 bisa ditampilkan 6.000.000,00 Jadi, jangan di "verify" menggunakan method, tapi di setting attributenya dari text box tsb... PS: Untuk VB6, Methode keypress, keyup & keydown tidak dipakai untuk "problem" yang mas punya, tapi untuk "semacam" game / permainan interactive. Sangat jarang dipakai keypress, keyup, keydown untuk aplikasi berbasis database Moga2x bantu Ardi. _____ From: ITCENTER@yahoogroups.com [mailto:[EMAIL PROTECTED] Sent: Tuesday, March 06, 2007 2:24 PM To: itcenter@yahoogroups.com 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] [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/
