تقييم الموضوع :
  • 1 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
تكست بوكس يقبل نص اي لغة فقط
#4
يوجد البنية Char وهو من الفضاء System ويحتوي على دوال كثيرة منها (لمزيد من المعلومات Char Structure)
كود :
Char.IsControl(c)
Char.IsDigit(c)
Char.IsLetter(c)
Char.IsLetterOrDigit(c)
Char.IsNumber(c)
Char.IsSymbol(c)

وبناء على طلبك هذا مثال (الأحرف بأي لغة والمسافة والرموز المحددة وبدون أرقام)
(لإضافة الأرقام استبدل Char.IsLetterOrDigit بـ Char.IsLetter)
كود :
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
    If Char.IsControl(e.KeyChar) _
    Or Char.IsLetter(e.KeyChar) _
    Or Char.IsWhiteSpace(e.KeyChar) _
    Or InStr(".-_", e.KeyChar) _
    Then
        Return
    Else
        e.Handled = True
    End If
End Sub
الرد }}}
تم الشكر بواسطة: سعود , ali.alfoly


الردود في هذا الموضوع
RE: تكست بوكس يقبل نص اي لغة فقط - بواسطة vbnet - 23-04-14, 01:37 AM


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


يقوم بقرائة الموضوع: