السلام عليكم
هذا الموضوع استكمال لدورة الاكواد الشاملة
هذا الموضوع خاص بالادوات : اداة TextBox
بيئة العمل : VB.NET 2019 - يعمل على جميع اصدارات VB.NET
============================================
'20- منع كتابة احرف كبيرة
كود 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) = False Then
e.Handled = True
End If
End Sub
End Class
'20- منع كتابة احرف كبيرة
'21- منع كتابة اي شيء بداخل التيكست
كود 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) = False Or True Then
e.Handled = True
End If
End Sub
End Class
'21- منع كتابة اي شيء بداخل التيكست