یک جعبه متن عددی مفید با امکانات خاص

[solymani]

سلام
کدی کە میزارم یە textboxی با ویژگیهای زیر رو بهتون می دی
- فقط توش عدد نوشتە بشە
- اعداد فقط انگلیسی باشن
- غیر از عدد نقطە (.)،Delete و backspase هم کار کنە
- توی textbox فقوط یک دونە نقطە بشە قرار داد
فقط کافیە کدهای زیر رو در keyPress جعبە متن کپی کنید
Dim KeyCode As Integer = Microsoft.VisualBasic.Asc(e.KeyChar)
If KeyCode = 46 Then
Dim k As String
Dim i As Integer = 0
While i < TextBox1.Text.Length
k = TextBox1.Text.ToString.Substring(i, 1)
If Microsoft.VisualBasic.Asc(k) = 46 Then
e.Handled = True
Exit Sub
End If
i = i + 1
End While
Else
If KeyCode = 8 Or (KeyCode >= 48 And KeyCode <= 57) Then
'Type
Else
e.Handled = True
End If
End If