چه طور میشه textbox را طوری تعریف کرد که فقط مقدار عدد بگیره و اگر کاربر چیز دیگری غیر از عدد مانند حروف تعریف کرد چیزی داخل textbox نوشته نشود یا اینکه برنامه error دهد.
Printable View
چه طور میشه textbox را طوری تعریف کرد که فقط مقدار عدد بگیره و اگر کاربر چیز دیگری غیر از عدد مانند حروف تعریف کرد چیزی داخل textbox نوشته نشود یا اینکه برنامه error دهد.
استفاده از تابع isNumeric که به صورت زیر می تونید استفاده کنید:
If IsNumeric(Text1.Text) = ´False Then
MsgBox"شما باید از کاراکترهای عددی استفاده کنید"
End If
این کد textbox برای غیر از عداد قفل میکنه
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
End If
End Sub
این تایپیک دومی را الان اجرا کردم ولی جواب نمیده!!!
بعد چند وقت تونستم به یک نفر کمکی کرده باشم در این سایت
اینم کدی که میخواستین
در مورد پیشنهاد اول کد زیر را امتحان کنید:
Private Sub Text1_Change()
If IsNumeric(Text1.Text) = False Then
Text1.Text = 0: MsgBox "شما باید از کاراکترهای عددی استفاده کنید"
End If
End Sub
ممنون دوست عزیز/وظیفه دونستم تشکر کنم چون کمکم کرد.
اینجوری که همه اعداد پاک میشه که.نقل قول:
نوشته شده توسط liaghat
الان ویژوال بیسیک روی سیستمم نیست ولی یه چیزی شبیه به همینهایی که دوستان گفتن میشه
برای اینکه جلوی اینکارو بیگیری که خیلی سادست:نقل قول:
اینجوری که همه اعداد پاک میشه که.
Private Sub Text1_KeyPress(KeyAscii As Integer)
If IsNumeric(chr(KeyAscii))) Then
Text1 = Text1 & chr(KeyAscii)
Else
Exit Sub
End If
End Sub
ببخشید اگر جایی اشتباه شد چون همینجوری بدون IDE کد رو نوشتم
این جا هم یه نمونه آپلود شده
textbox می شه فقط عدد بگیره