INPUT ANGKA PADA TEXTBOX

Go down

INPUT ANGKA PADA TEXTBOX

Post  migduel on Mon Nov 07, 2011 10:08 pm

Code:
Private Sub TxtEnterCode_Change()
Dim betul As Boolean
Dim jumlah
betul = True
If TxtEnterCode.Text <> "" Then
jumlah = Len(TxtEnterCode.Text)
For idx = 1 To jumlah
If Asc(Right(TxtEnterCode.Text, idx)) < 48 Or Asc(Right(TxtEnterCode.Text, idx)) > 57 Then
betul = False
End If
Next idx
If betul = False Then
MsgBox "harus angka"
TxtEnterCode.Text = ""
TxtEnterCode.SetFocus
End If
End If
End Sub
avatar
migduel
Admin
Admin

Jumlah posting : 141
Join date : 25.08.11
Age : 32
Lokasi : Depan Laptop

Lihat profil user http://migduel.forum.st

Kembali Ke Atas Go down

Re: INPUT ANGKA PADA TEXTBOX

Post  lowo1reng on Thu Nov 10, 2011 10:46 pm

buat apa nih um Crying or Very sad Crying or Very sad
avatar
lowo1reng
Bripda
Bripda

Jumlah posting : 15
Join date : 30.08.11

Lihat profil user

Kembali Ke Atas Go down

Re: INPUT ANGKA PADA TEXTBOX

Post  migduel on Fri Jan 06, 2012 12:04 am

lowo1reng wrote:buat apa nih um Crying or Very sad Crying or Very sad

ini buat anu.....
hahhahaha........

jadi di textbox hanya bisa di tulis karakter angka saja...
kemungkinan besar digunakan untuk app register di taruh di enter code nya itu
avatar
migduel
Admin
Admin

Jumlah posting : 141
Join date : 25.08.11
Age : 32
Lokasi : Depan Laptop

Lihat profil user http://migduel.forum.st

Kembali Ke Atas Go down

Re: INPUT ANGKA PADA TEXTBOX

Post  Sponsored content


Sponsored content


Kembali Ke Atas Go down

Kembali Ke Atas

- Similar topics

 
Permissions in this forum:
Anda tidak dapat menjawab topik