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 می شه فقط عدد بگیره