فقط عدد در تکست باکس

[ramsess]

سلام اهل فن خیلی ممنون که همه سوالات من رو جواب دادید بسیار ممنون
البته این سوال رو می رسم بعد از کلی سرچ می پرسم - سوالم اینه که چطور یه تکست باکس دارم فقط داخلش عدد نوشته بشه و وقتی کاراکتر دیگری وارد می کنم پیام خاصی نمایش داده نشه البته تابع isnumeric رو بلدم و این برای موقع ایه که کاراکتر رو مقایسه کنه و پیام مناسبی درج بشه ولی من می خوام وقتی کاراکتر وارد شد اصلا چیزی نوشته نشه و دوباره رو همون تکس باکس فوکوس کنه و نزاره رد بشه به فیلد بعدی مرسی از همتون

[amini699]

Private Sub Text7_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 Then
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
KeyAscii = 0
End If
End If
End Sub

[reza_optical]

با تابع ISNUMERIC میتونی

[اوبالیت به بو]

http://barnamenevis.org/forum/showpost.php?p=411003&postcount=3
http://barnamenevis.org/forum/showpost.php?p=469330&postcount=3
http://barnamenevis.org/forum/showpost.php?p=469330&postcount=2
http://barnamenevis.org/forum/showpost.php?p=411544&postcount=2
http://barnamenevis.org/forum/showpost.php?p=411544&postcount=3
http://barnamenevis.org/forum/showpost.php?p=353473&postcount=2

[mostafa_khosravy_380]

Private Sub Text7_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 Then
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
KeyAscii = 0
End If
End If
End Sub

[parselearn]

Private Sub txt1_LostFocus()
Dim i As Integer
Dim s As String
For i = 1 To Len(txt1.Text)
s = Mid(txt1.Text, i, 1)
If (s < "0" Or s > "9") And (s < "a" Or s > "z") Then
MsgBox "áØÝÇ ÇÒ ÇÚÏÇÏ ÇÓÊÝÇÏå äãÇííÏ", vbCritical + vbMsgBoxRight, "ÎØÇ"
txt1.Text = ""
txt1.SetFocus
Exit For
End If
Next i
End Sub

[امیر شاهباز]

سلام
منم این مسئله برام پیش اومده بود.
در لینک زیر جواب آقای liaghat مشکل منو حل کرد.

http://barnamenevis.org/forum/showthread.php?t=104374

[ali_habibi1384]

محتوای این پست دقیقا همینه . فایل ضمیمه رو بگیر و از ماژولش استفاده کن.
http://barnamenevis.org/forum/showthread.php?t=104374

[scarce]

If (((KeyAscii < 48) Or (KeyAscii > 57)) And (KeyAscii <> 8)) Then
KeyAscii = 0
End If
کد بالا رو در قسمت KeyPress تکست باکس قرار دهید

[Mbt925]

بهترین روش برای این کار که نیاز به کد نویسی نداره استفاده از ابزار MaskEdit خود ویبی هست.


نتیجه می گیریم که ----> آشنایی با ابزار های کاربردی = کدنویسی کمتر