منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[كود] كود يسمح لك بكتابه احرف فقط في ال TextBox - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مكتبة اكواد VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=185)
+--- الموضوع : [كود] كود يسمح لك بكتابه احرف فقط في ال TextBox (/showthread.php?tid=23426)

كود يسمح لك بكتابه احرف فقط في ال TextBox - YousefOkasha - 20-01-18

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


RE: كود يسمح لك بكتابه احرف فقط في ال TextBox - moniam - 24-04-18

تسسسسسسلللللللمممممم

RE: كود يسمح لك بكتابه احرف فقط في ال TextBox - nosa - 29-04-18

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

RE: كود يسمح لك بكتابه احرف فقط في ال TextBox - YousefOkasha - 04-05-18

(29-04-18, 10:41 PM)nosa كتب : السلام عليكم اخي الكريم لو سمحت اريد  مساعدتك في كود  النسخة الاحتياطيه للقاعدة البيانات واستراجها ب الفيجوال بيسك

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