تقييم الموضوع :
  • 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
#2
تسسسسسسلللللللمممممم
الرد }}}
تم الشكر بواسطة:
#3
السلام عليكم اخي الكريم لو سمحت اريد  مساعدتك في كود  النسخة الاحتياطيه للقاعدة البيانات واستراجها ب الفيجوال بيسك
الرد }}}
تم الشكر بواسطة:
#4
Heart 
(29-04-18, 10:41 PM)nosa كتب : السلام عليكم اخي الكريم لو سمحت اريد  مساعدتك في كود  النسخة الاحتياطيه للقاعدة البيانات واستراجها ب الفيجوال بيسك

و عليكم السلام و رحمه الله و بركاته ..
انا آسف أخي ..
لا أستطيع التعامل مع قواعد البيانات Confused
الرد }}}
تم الشكر بواسطة:



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


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