نوشتن حرف فقط در text box

چه طوری از is numberic استفاده کنم که فقط کاربر را به حرف محدود کنم نه به عدد این کار را بر عکس کردم

If Not IsNumeric(Text1.Text) And Len(Text1.Text) Then MsgBox "ÈÇíÏ ÚÏÏ æÇÑÏ ˜äíÏ", , "ÇÎØÇÑ": Text1.Text = ""

اگه بد شد یکم تغیر کوچولو حل میشه

کسی نیست
کمک کنه ؟

در رویداد KeyPress تکست باکس از کد زیر استفاده کن:

کد:

---

If KeyAscii < 47 Or KeyAscii > 57 Then
  KeyAscii = 0
 End If

---

نقل قول:

---

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

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

کد:

---

if keyascii < 47 or keyascii > 57 then
  keyascii = 0
 end if

---

---

دوست عزیز شما برای عدد نوشتید من برای حرف میخوام همین کارو برای حرف کردم یعنی از اسکی هاشون استفاده کردم ولی نشد

If KeyAscii > 96 And KeyAscii < 123 Then KeyAscii = 0

دوست عزیز اینم که نمیشه

این کار میکنه ولی درست نه یعنی اگر عدد اول بدی درسته ولی وسط بدی نه
[HTML]If IsNumeric(Text2.Text) And Len(Text2.Text) Then [/HTML]

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

کد:

---

If (KeyAscii < 65 Or KeyAscii > 90) And (KeyAscii < 97 Or KeyAscii > 122) Then KeyAscii = 0

---

جالبه اینبار درست کار کرد من کدمو عین شما نوشته بودم اما کار نمی کرد اما حالا کار میکنه ممنون