textbox عددی

[yas_ayat]

چه طور میشه textbox را طوری تعریف کرد که فقط مقدار عدد بگیره و اگر کاربر چیز دیگری غیر از عدد مانند حروف تعریف کرد چیزی داخل textbox نوشته نشود یا اینکه برنامه error دهد.

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

استفاده از تابع isNumeric که به صورت زیر می تونید استفاده کنید:

If IsNumeric(Text1.Text) = ´False Then
MsgBox"شما باید از کاراکترهای عددی استفاده کنید"
End If

[Zeytoon]

این کد textbox برای غیر از عداد قفل میکنه




Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
End If
End Sub

[yas_ayat]

این تایپیک دومی را الان اجرا کردم ولی جواب نمیده!!!

[parselearn]

بعد چند وقت تونستم به یک نفر کمکی کرده باشم در این سایت
اینم کدی که میخواستین

[liaghat]

در مورد پیشنهاد اول کد زیر را امتحان کنید:


Private Sub Text1_Change()
If IsNumeric(Text1.Text) = False Then
Text1.Text = 0: MsgBox "شما باید از کاراکترهای عددی استفاده کنید"
End If
End Sub

[sanaei]

ممنون دوست عزیز/وظیفه دونستم تشکر کنم چون کمکم کرد.

[amirsadeghi]

در مورد پیشنهاد اول کد زیر را امتحان کنید:


Private Sub Text1_Change()
If IsNumeric(Text1.Text) = False Then
Text1.Text = 0: MsgBox "شما باید از کاراکترهای عددی استفاده کنید"
End If
End Sub


اینجوری که همه اعداد پاک میشه که.

[Mr.Olympia]

الان ویژوال بیسیک روی سیستمم نیست ولی یه چیزی شبیه به همینهایی که دوستان گفتن میشه

اینجوری که همه اعداد پاک میشه که.
برای اینکه جلوی اینکارو بیگیری که خیلی سادست:



Private Sub Text1_KeyPress(KeyAscii As Integer)
If IsNumeric(chr(KeyAscii))) Then
Text1 = Text1 & chr(KeyAscii)
Else
Exit Sub
End If
End Sub


ببخشید اگر جایی اشتباه شد چون همینجوری بدون IDE کد رو نوشتم

[__siavash__]

این جا هم یه نمونه آپلود شده

textbox می شه فقط عدد بگیره (http://barnamenevis.org/forum/showthread.php?t=82636&highlight=textbox)