- tarik
- عدد المساهمات : 134
تاريخ التسجيل : 08/10/2012
كود لجعل أداة النص لا تقبل إلا الأرقام
الجمعة مارس 29, 2013 7:41 am
- الكود:
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
On Error Resume Next
كود كتابة الحروف العربية والاجنبية فقط في التكست مع استخدام زر المسح والتراجع والمسافة
Select Case e.KeyChar
Case "ء" To "ي", "A" To "z", ControlChars.Back, Chr(Keys.Space)
e.Handled = False
Case Else
e.Handled = True
End Select
وهذا الكود لكتابة الارقام فقط داخل التيكست
- الكود:
Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
On Error Resume Next
كود كتابة الارقام فقط في التكست مع استخدام زر المسح والتراجع
Select Case e.KeyChar
Case "0" To "9", ControlChars.Back
e.Handled = False
Case Else
e.Handled = True
End Select
End Sub
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى