Coba aja pake 3rd party TrueDBinput ( Punya APEX sekarang jadi ComponentOne ), disitu kita tinggal setting propertynya.
On 3/8/07, Riyan Sahandi Arief <[EMAIL PROTECTED]> wrote: > > 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]<dex.soeprijadi%40winterthur.com> > > > To: ITCENTER@yahoogroups.com <ITCENTER%40yahoogroups.com> > Cc: [EMAIL PROTECTED] <rudy.milano%40gmail.com> > 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] > > > [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/