ikutan nambahin juga yach, kalau untuk validasi input tipe angka saya biasanya
pakai code dibawah ini.
If Not IsNumeric(Text1) Then
MsgBox "Bukan Data Numeric"
Else
MsgBox "Data Numeric"
End If
Note:
Text1 --> Textbox
salam
Agus Setiawan
----- Original Message ----
From: Sodik Ihwan <[EMAIL PROTECTED]>
To: [email protected]
Sent: Friday, December 28, 2007 8:45:13 AM
Subject: Re: [Programmer-VB] Tips n Triks membatasi input pada TextBox
menambahkan saja Bu, kalo saya biasanya pake ini:
Private Sub TxtNama_KeyPress(KeyAscii As Integer)
ValidIsi 7, KeyAscii
If KeyAscii = vbKeyReturn Then
If Trim(Me.ActiveControl.Text) = "" Then Exit Sub
ObjekBerikutnya TxtAlamat
End If
End Sub
Public Sub ValidIsi(ModeNa As Byte, AsciNa As Integer, _
Optional JadiHurufBesar As Boolean = False, _
Optional JadiHurufKecil As Boolean = False)
Dim KarakterSah As String, i As Integer
If ModeNa = 1 Then KarakterSah = "0123456789"
If ModeNa = 2 Then KarakterSah = "0123456789-"
If ModeNa = 3 Then KarakterSah = "0123456789."
If ModeNa = 4 Then KarakterSah = "0123456789.-"
If ModeNa = 5 Then KarakterSah = "0123456789,."
If ModeNa = 6 Then KarakterSah = "0123456789,.-"
If ModeNa = 7 Then KarakterSah = "0123456789,.-" & _
"ABCDEFGHIJKLMNOPQRSTUVWXYZ" & _
" abcdefghijklmnopqrstuvwxyz" & _
"[EMAIL PROTECTED]&*()_+-=[]\{}|;:/<>?€"
&
Chr(34)
If ModeNa = 8 Then
KarakterSah = ""
For i = 0 To 255
KarakterSah = KarakterSah + Chr(i)
Next i
End If
If ModeNa = 11 Then KarakterSah = "PWpw" 'Pria/Wanita
If ModeNa = 12 Then KarakterSah = "LPlp" 'Laki-laki/Perempuan
If ModeNa = 13 Then KarakterSah = "YTyt" 'Ya/Tidak
If ModeNa = 14 Then KarakterSah = "YNyn" 'Yes/No
If ModeNa = 15 Then KarakterSah = "SIsi" 'Suami/Istri
If AsciNa > 26 Then
If InStr(KarakterSah, Chr(AsciNa)) = 0 Then AsciNa = 0
End If
If JadiHurufBesar = True Then AsciNa = Asc(UCase(Chr(AsciNa)))
If JadiHurufKecil = True Then AsciNa = Asc(LCase(Chr(AsciNa)))
End Sub
salam,
sodik
On Thu, 27 Dec 2007 14:24:43 +0700, Lilis <[EMAIL PROTECTED]>
wrote:
> hallo programmer
>
> sedikit trik nih utk membuat validasi inputan, contoh ini biasanya
dibuat
> spy user ga salah menginput.
>
> ketik kodingnya spt dibawah ini pada event keypress
>
> Private Sub Text1_KeyPress(KeyAscii As Integer)
> If (Not KeyAscii >= Asc("A") Or Not KeyAscii <= Asc("Z")) _
> And (Not KeyAscii >= Asc("0") Or Not KeyAscii <= Asc("9")) _
> And KeyAscii <> Asc(vbBack) Then
>
> MsgBox "Hanya huruf dan Angka aja"
>
> End If
> End Sub
>
> kode diatas hnya membatasi user utk menginput huruf atau angka dan
> backspace
> utk menghapus kalo ada kesalahan
> dan hurufnya nya pun cuma bisa huruf besar aja jadi perlu ditambah
spy
> bisa
> juga utk huruf kecil dan juga mungkin
> perlu ditambah spasi ( itu PR yg hrs diselesaikan ) dan kalo
> diperhatikan,
> aku menggunakan sintak Asc daripada Chr, kenapa?
> karena kalo memakai chr kombinasinya kan dgn angka sehingga bacanya
agak
> susah bagi orang awam spt aku.
> tapi kalo menggunakan asc spt diatas, kodenya jadi jelas dan
maksudnya
> dapat
> dimengerti.
>
> ok semoga bermanfaat, sampe ketemu di trik berikutnya :-)
>
> salam
> lilis
>
--
Using Opera's revolutionary e-mail client: http://www.opera.com/mail/
Send instant messages to your online friends
http://asia.messenger.yahoo.com
Wahana Programmer Groups Links
Yahoo! Groups Links
____________________________________________________________________________________
Be a better friend, newshound, and
know-it-all with Yahoo! Mobile. Try it now.
http://mobile.yahoo.com/;_ylt=Ahu06i62sR8HDtDypao8Wcj9tAcJ
