Teknoloji 10.07.2003 İbrahim Gündüz - netyorum.com / Sayı: 139
TEXTBOX'LARDA SADECE SAYI GİRİŞİNE İZİN VERMEK
Merhaba,
Yazılımcı arkadaşlar bilirler. Diyelim ki bir textbox vardır ve kullanıcının
buraya hiçbir zaman harf yazmaması, her zaman için sayı girişi yapması gerekir.
Tabii bu girişi yapacak olan kişinin bir kullanıcı olduğunu göz önünde
bulundurursak hata olma riski çok yüksek.
İşte bu hataları önlemek için aşağıdaki kodları kullanmamız yeterli olacaktır.
Bu kodları kullanmamız durumunda kullanıcı söz konusu textbox´a sadece sayı
girişi yapabilecek, geriye kalan tüm karakterlerde herhangi birşey yazmayacak.
Aşağıdaki kodları olduğu gibi kopyalayıp, kodlama alanına yapıştırabilirsiniz.
|
Public Function CtrlKeyCode(KeyAscii As Integer)
If Not Chr(KeyAscii) = "1" And Not Chr(KeyAscii) = "2" And Not Chr(KeyAscii) =
"3" _
And Not Chr(KeyAscii) = "4" And Not Chr(KeyAscii) = "5" And Not Chr(KeyAscii) =
"6" _
And Not Chr(KeyAscii) = "7" And Not Chr(KeyAscii) = "8" And Not Chr(KeyAscii) =
"9" _
And Not Chr(KeyAscii) = "0" _
Then
CtrlKeyCode = 0
Else
CtrlKeyCode = 1
End If
End Function
Private Sub Text3_KeyPress(KeyAscii As Integer)
If CtrlKeyCode(KeyAscii) = 0 Then KeyAscii = 0
End Sub
|
İbrahim Gündüz
e-posta:
gunduzonline@celiknet.com
GündüzOnline
Yazılım Tasarım Grubu
|
