اكواد الكتابة داخل textbox ASp.NET +VB

اكواد الكتابة داخل textbox ASp.NET +VB

يسمح لك بكتابة ارقام فقط

Private Sub TextBox4_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox4.KeyPress Select Case e.KeyChar Case "0" To "9", ControlChars.Back, Chr(Keys.Space) e.Handled = False Case Else e.Handled = True End Select End Sub​

يسمح بكتابة احرف عربية فقط

Private Sub TextBox2_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox2.KeyPress Select Case e.KeyChar Case "ء" To "ي", ControlChars.Back, Chr(Keys.Space) e.Handled = False Case Else e.Handled = True End Select End Sub

هذا كود يسمح لك بكتابة احرف فقط في التيكست بوكس ولا يمكنك من كتابة ارقام

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress Select Case e.KeyChar Case "ء" To "ي", "A" To "z", ControlChars.Back, Chr(Keys.Space) e.Handled = False Case Else e.Handled = True End Select End Sub

يسمح بكتابة احرف انجليزية فقط

Private Sub TextBox3_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox3.KeyPress Select Case e.KeyChar Case "A" To "z", ControlChars.Back, Chr(Keys.Space) e.Handled = False Case Else e.Handled = True End Select End Sub

Visual Basic ASP.NET V.b ASP الفجوال بيسك