السلام عليكم
هذا الموضوع استكمال لدورة الاكواد الشاملة
هذا الموضوع خاص بالادوات : اداة TextBox
بيئة العمل : VB.NET 2019 - يعمل على جميع اصدارات VB.NET
============================================
'18-السماح بالكتابة بالانكليزية فقط
كود PHP:
Public Class Form1
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
Select Case e.KeyChar
Case "a" To "z", ControlChars.Back, _
Chr(Keys.Space)
Case "A" To "Z", ControlChars.Back, _
Chr(Keys.Space)
e.Handled = False
Case Else
e.Handled = True
End Select
End Sub
End Class
'18-السماح بالكتابة بالانكليزية فقط
'19-منع كتابة احرف صغيرة
كود PHP:
Public Class Form1
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If Char.IsLower(e.KeyChar) Then
e.Handled = True
End If
End Sub
End Class
'19-منع كتابة احرف صغيرة