السلام عليكم
هذا الموضوع استكمال لدورة الاكواد الشاملة
هذا الموضوع خاص بالادوات : اداة TextBox
بيئة العمل : VB.NET 2019 - يعمل على جميع اصدارات VB.NET
============================================
'16-منع الكتابة باللغة الانكليزية بدأخل التسكت
كود PHP:
Public Class Form1
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If (Microsoft.VisualBasic.Asc(e.KeyChar) < 128) Then
e.Handled = True
End If
If (Microsoft.VisualBasic.Asc(e.KeyChar) = 8) Then
e.Handled = False
End If
End Sub
End Class
'16-منع الكتابة باللغة الانكليزية بدأخل التسكت
'17-الكتابة باللغة العربية فقط
كود 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 "ء" To "ي", ControlChars.Back, _
Chr(Keys.Space)
e.Handled = False
Case Else
e.Handled = True
End Select
End Sub
End Class
'17-الكتابة باللغة العربية فقط
رد مع اقتباس