text bax ي كه فقط عدد بگيره؟؟؟

[mourche]

-چطور مي تونم يه text box رو فرمم قرار بدم كه فقط عدد بگيره و غير عدد رو پيغام خطا بده؟؟

[parselearn]

Private Sub t_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtCode.KeyPress
If Not ((Asc(e.KeyChar)) >= 48 And (Asc(e.KeyChar)) <= 57) Then
e.KeyChar = ""
End If
End Sub


http://barnamenevis.org/showthread.php?255083-%D9%81%D9%82%D8%B7-%D8%AD%D8%B1%D9%88%D9%81-%DB%8C%D8%A7-%D8%B9%D8%AF%D8%AF&
http://barnamenevis.org/showthread.php?272058-%D8%AF%D8%B1%DB%8C%D8%A7%D9%81%D8%AA-%D8%B9%D8%AF%D8%AF-%DA%A9%D8%A7%D8%AF%D8%B1-%D9%85%D8%AA%D9%86%D8%9F%D8%9F%D8%9F

[shadi khanum]

اگه از کامپوننتهای شرکت جانوس استفاده کنی خودش یه نوع textbox داره که فقط عدد میگیره

[mobtakercode]

<meta http-equiv="content-type" content="text/html; charset=utf-8">http://www.mobtakercode.com/2001.php

[mohsen12345]

-چطور مي تونم يه text box رو فرمم قرار بدم كه فقط عدد بگيره و غير عدد رو پيغام خطا بده؟؟


با سلام دوست عزیز
بهترین راه شما استفاده از Masked TextBox هست که می تونید یک TextBox سفارشی بسازید
کار باهاش هم ساده هست شما فقط بعد از افزودن به فرم مقدار Setmask رو تغییر می دهید (برای ساده کردن بیشتر ، مایکروسافت اون رو تو فلش بالای سمت راست شی قرار داده)

[zahramostafa]

-چطور مي تونم يه text box رو فرمم قرار بدم كه فقط عدد بگيره و غير عدد رو پيغام خطا بده؟؟
سلام عيدت مبارك
اگه با VB.net كار ميكني تيكه كد زير مشكلت رو حل ميكنه

If IsNumeric(TextBox1.Text) = False Then
MsgBox("Error")
Else
MsgBox("this is Number")
End If

[kouroush_metal]

این کد رو در رخ داد KeyPress اون TextBox قرار بده! مثال:

Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

Dim k As String = "1234567890"
If TextBox1.Text.IndexOf(k) = -1 Then
e.KeyChar = ""
'اگر بخوای میتونی اینجا پیغام هم بدی
End If

End Sub