Tecnologia, programação e muito Visual FoxPro.

sexta-feira, 29 de abril de 2011

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

 

ini dia, dengan nilai ascii, silakan dicoba dulu: 

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'anton suryadi 29/Apr/2011
    Select Case KeyAscii
    Case 48 To 57
        Exit Sub
    Case Else
        KeyAscii = 0
        Exit Sub
    End Select
End Sub


>semoga bermanfaat



--- In XL-mania@yahoogroups.com, "STDEV(i)" <setiyowati.devi@...> wrote:
>
> 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@...
>
> > 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
> >
> >
>

__._,_.___
Recent Activity:
+-:: 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              |
+-------------------------------------------------------------------+
MARKETPLACE

Get great advice about dogs and cats. Visit the Dog & Cat Answers Center.


Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

.

__,_._,___

Nenhum comentário:

Arquivo do blog