Re: ]] XL-mania [[ pembatasan input texbox

 

gampang....

setiap ada perubahan di textbox maka karakter terkanan di cek

apakah sama dengan salah satu dari karakter "0/1/2/3/4/5/6/7/8/9"

jika sama >> DIAMKAN SAJA (tetap masuk ke textbox)

jika tidak sama >>> ptong kembali karakter terkanan ituhhhh!!, aliyas 

jangan biarkan masuk)

jadi dengan aturan yang tegas bin sadistis spt itu karakter lain selain 0 sd  9 

akan ngacir ketakutan.. tak berani masuk ke textbox..!)

Private Sub TextBox1_Change()

   ' siti Vi / 28 Apr 2011

   Dim teks As String

   Application.EnableEvents = False

   teks = TextBox1.Text

      If Len(teks) > 0 Then

         If InStr(1, "0123456789", Right(teks, 1), 3) = 0 Then

            teks = Left(teks, (Len(teks) - 1))

         End If

      End If

   If Val(teks) > 0 Then TextBox1.Text = Val(teks) Else TextBox1.Text = ""

   Application.EnableEvents = True

End Sub

coding spt ini tentu bukan satu satunya trick, banyak yang lain misalnya deteksinya dengan

nilai ascii dsb....

~siti~

2011/4/29 tigan_black <lets_3n@yahoo.com>

Salam para XL-mania
1. bagaimana cara membatasi input pada textbox bisa kita batasi hingga hanya menerima masukan berupa integer.
2. pada vba bagaimana cara kita untuk mendapat hasil boolean dari check apakah sebuah variable integer atau bukan.
Thanks sebelumnya

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (2)

Recent Activity:

• New Members 78

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| wooHoooOoooo!!! "mengapa boss benci chart anda" mau dicetak lagi! |
| insanbiasa : "member 17,000++ yang beli buku mengapa boss benci   |
| chart anda cuma segituhh? pokoknya� yang nggak beli: BANNED :D :D |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau...  |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___