محدود کردن تکست باکس به اعداد

سلام دوستان

من می خواستم تو VB.net کاری کنم که تو تکست باکس چیزی جز عدد نشه نوشت اگه ممکنه کمک کنید؟

توی event به نام TextChanged باید چک کنید که عدد جدید درسته یا نه.
اگه درست باشه اونو توی یه متغییری ذخیره کنی و اگه درست نباشه متغییر قبلی رو بزاری جاش.

کد:

---

string oldData="10";
        private void textBox1_TextChanged(object sender, EventArgs e)
        {           
            try
            {
                int a =int.Parse(textBox1.Text);               
            }
            catch
            {
                textBox1.Text = oldData;
            }
            oldData = textBox1.Text;
        }

---

در رویداد keypress تکست باکس کد زیر را وارد کن

کد:

---


Dim keyasci As Integer = Asc(e.KeyChar)
Select Case keyasci
Case Asc("A") To Asc("Z")
e.Handled = True
Case Asc("a") To Asc("z")
e.Handled = True
End Select

---

آقا دست درد نکنه

سلام
این رو هم بد نیست داشته باشی

کد:

---

If IsNumeric(TextBox1.Text) = False Then TextBox1.Text = ""

---

سلام
با اجازه اساتید بزرگ، ما پیرمردها بعضی اوقات با لنگه کفغش میپریم وسط!!!! شما ببخشید.
کد یک خطی زیر را در KeyPress قرار دهید، حل است!!!!

کد:

---

Private Sub f_Text_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles f_Text.KeyPress
    e.Handled = Char.IsDigit(e.KeyChar) OrElse Char.IsControl(e.KeyChar)
End Sub

---

ضمناً یک کنترلر NumbericUpDown هم وجود دارد چرا از آن استفاده نمیکنید ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟؟؟؟؟

آقا دست همتون درد نکنه این همه راه حل برای یه سوال بابا خیلی کارتون درسته!!

نقل قول:

---

نوشته شده توسط hamidreza_buddy [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

توی event به نام TextChanged باید چک کنید که عدد جدید درسته یا نه.
اگه درست باشه اونو توی یه متغییری ذخیره کنی و اگه درست نباشه متغییر قبلی رو بزاری جاش.

کد:

---

string oldData="10";
        private void textBox1_TextChanged(object sender, EventArgs e)
        {           
            try
            {
                int a =int.Parse(textBox1.Text);               
            }
            catch
            {
                textBox1.Text = oldData;
            }
            oldData = textBox1.Text;
        }

---

---

سلام
مي شه اين كد رو به زبان وي بي . نت 2005 هم بنويسين تا ما تازه كار ها هم استفاده كنيم؟؟؟

سپاسگذارم

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

کد:

---

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If IsNumeric(e.KeyChar) = True Then
            'شماره
        Else
            'حرف
            e.Handled = True
        End If
    End Sub

---

نقل قول:

---

نوشته شده توسط Shahrdar [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

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

کد:

---

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If IsNumeric(e.KeyChar) = True Then
            'شماره
        Else
            'حرف
            e.Handled = True
        End If
    End Sub

---

---

این کد کلیدهای Backspace و Delete را هم از کار میاندازد، در پست قبلی من به علت استفاده از تابع IsControl مشکل فوق وجود ندارد.

ضمناً برای تبدیل کدهای دوست عزیزمان کاربر hamidreza_buddy و کلاً تبدیلات VB.Net قدرتمند و C#.Net قدرتمند به یکدیگر به لینکهای زیر مراجعه کنید:

kamalpatel.net/ConvertCSharp2VB.aspx
carlosag.net/Tools/CodeTranslator/Default.aspx
developerfusion.co.uk/utilities/convertcsharptovb.aspx]