محدود کردن کاراکترهای تایپ شده در TextBox

[senator007]

سلام دوستان ، میخواستم ببینم چطوری میتونم یک text box رو به حالت زیر محدود کنم :

TextBox فقط عدد قبول کنه و کاراکتری قبول نکنه

[arashrj]

سلام
در رویداد keypress باید کد اسکی تابپ شده رو بررسی کنید اگه در رنج اعداد نبود 0 کنی.

موفق باشید

[1120]

سلام .

کد:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii >= 48 And KeyAscii <= 57 Then
Else
KeyAscii = 0
End If
End Sub

موفق باشی .

[Sh4DoVV]

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

کد:

Public Sub TextFilter(KeyAscii As Integer)
Dim strValid As String
strValid = "0123456789ABCDEFabcdef"
If KeyAscii > 26 Then
If InStr(strValid, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End If
End Sub

کد:

Private Sub Text1_KeyPress(KeyAscii As Integer)
TextFilter KeyAscii
End Sub

در این کد در تکست باکس مورد نظر فقط حروفی رو میشه نوشت که در متغیر strValid تعریف شده باشند
یا علی

[najafzade]

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

کد:

Public Sub TextFilter(KeyAscii As Integer)
Dim strValid As String
strValid = "0123456789ABCDEFabcdef"
If KeyAscii > 26 Then
If InStr(strValid, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End If
End Sub

کد:

Private Sub Text1_KeyPress(KeyAscii As Integer)
TextFilter KeyAscii
End Sub

در این کد در تکست باکس مورد نظر فقط حروفی رو میشه نوشت که در متغیر strValid تعریف شده باشند
یا علی

جناب Sh4DoVV
به غیر مزیت تعریف متد میشه بفرمائین چه مزیت دیگه داره این کد های شما.
ممنون می شوم.

[ajlajlajl]

عدد مبنای 16 قبول میکنه.

[najafzade]

عدد مبنای 16 قبول میکنه.

مزیتش چیه؟

[ajlajlajl]

مزیتش همینه دیگه. قبلیا مبنای ده بود. این یکی مبنای 16

[Sh4DoVV]

با سلام
شما هر کارکتری رو که در متغیر strValid قرار بدین میتونید توی TextBox مورد نظر استفاده کنید
یا علی

[amirhosseinmajd]

سلام کد آقای Sh4DoVV نسبت به 1120 کامل تر بود چون تو کد آقای Sh4DoVV قابلیت استفاده از بک اسپیس هم وجود داره ولی تو کد آقای 1120 همچین امکانی نیست.

[amirdifraxe1]

سلام این کد هم کار می کنه در رویداد keypress بنویسید....
If (Char.IsDigit(e.KeyChar) Or e.KeyChar = Convert.ToChar(Keys.Back)) Then
e.Handled = False
Else
e.Handled = True
End If

البته بگو استاد من آقای جعفری هم هستند.....شناختید استاد؟؟