ya jelaslah gk bisa masukin koma, itu kan coding untuk input angka doang, jadi
di teks box hanya mengartikan angka sebagai teks doang.
kalo mau coba pake mask formating atau setingan regional windowsnya diganti
jadi indonesia. soalnya di program server jg begitu biasanya kalo yg pake vb.
Good luck :D
----- Original Message ----
From: Soeprijadi Dex <[EMAIL PROTECTED]>
To: ITCENTER@yahoogroups.com
Cc: [EMAIL PROTECTED]
Sent: Tuesday, March 6, 2007 6:42:47 PM
Subject: [ITCENTER] RE: Tanya - Visual Basic 6.0
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: [EMAIL PROTECTED] s.com [mailto:rudy.milano@ gmail.com]
Sent: Tuesday, March 06, 2007 2:24 PM
To: [EMAIL PROTECTED] s.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]
<!--
#ygrp-mlmsg {font-size:13px;font-family:arial,helvetica,clean,sans-serif;}
#ygrp-mlmsg table {font-size:inherit;font:100%;}
#ygrp-mlmsg select, input, textarea {font:99% arial,helvetica,clean,sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;
}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;
}
#ygrp-vitnav{
padding-top:10px;
font-family:Verdana;
font-size:77%;
margin:0;
}
#ygrp-vitnav a{
padding:0 1px;
}
#ygrp-actbar{
clear:both;
margin:25px 0;
white-space:nowrap;
color:#666;
text-align:right;
}
#ygrp-actbar .left{
float:left;
white-space:nowrap;
}
.bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;
font-size:77%;
padding:15px 0;
}
#ygrp-ft{
font-family:verdana;
font-size:77%;
border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;
}
#ygrp-vital{
background-color:#e0ecee;
margin-bottom:20px;
padding:2px 0 8px 8px;
}
#ygrp-vital #vithd{
font-size:77%;
font-family:Verdana;
font-weight:bold;
color:#333;
text-transform:uppercase;
}
#ygrp-vital ul{
padding:0;
margin:2px 0;
}
#ygrp-vital ul li{
list-style-type:none;
clear:both;
border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight:bold;
color:#ff7900;
float:right;
width:2em;
text-align:right;
padding-right:.5em;
}
#ygrp-vital ul li .cat{
font-weight:bold;
}
#ygrp-vital a {
text-decoration:none;
}
#ygrp-vital a:hover{
text-decoration:underline;
}
#ygrp-sponsor #hd{
color:#999;
font-size:77%;
}
#ygrp-sponsor #ov{
padding:6px 13px;
background-color:#e0ecee;
margin-bottom:20px;
}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;
margin:0;
}
#ygrp-sponsor #ov li{
list-style-type:square;
padding:6px 0;
font-size:77%;
}
#ygrp-sponsor #ov li a{
text-decoration:none;
font-size:130%;
}
#ygrp-sponsor #nc {
background-color:#eee;
margin-bottom:20px;
padding:0 8px;
}
#ygrp-sponsor .ad{
padding:8px 0;
}
#ygrp-sponsor .ad #hd1{
font-family:Arial;
font-weight:bold;
color:#628c2a;
font-size:100%;
line-height:122%;
}
#ygrp-sponsor .ad a{
text-decoration:none;
}
#ygrp-sponsor .ad a:hover{
text-decoration:underline;
}
#ygrp-sponsor .ad p{
margin:0;
}
o {font-size:0;}
.MsoNormal {
margin:0 0 0 0;
}
#ygrp-text tt{
font-size:120%;
}
blockquote{margin:0 0 0 4px;}
.replbq {margin:4;}
-->
Send instant messages to your online friends http://uk.messenger.yahoo.com
[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/
