تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] كود يسمح لك بكتابه احرف فقط في ال TextBox
#1
Star 
Exclamation  الموضوع منقول  Exclamation

السلام عليكم  اعضاء المنتدى الكرام

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


كود :
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 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
Exclamation وهذا يسمح بكتابة احرف عربية فقط Exclamation


كود :
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
Exclamation هذا يسمح بكتابة احرف انجليزية فقط Exclamation


كود :
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
الرد
تم الشكر بواسطة: sendbad100 , asemshahen5


الردود في هذا الموضوع
كود يسمح لك بكتابه احرف فقط في ال TextBox - بواسطة YousefOkasha - 20-01-18, 11:06 AM


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم