[ناجي إبراهيم]

السلام عليكم...

اكتب الدالة التالية في قسم التصريحات العام:

كود :

Private Function IsEngLetter(ByVal KeyAscii As Integer, Optional ByVal AllowDigits As Boolean = False) As Boolean
    If KeyAscii <= 32 Then
        IsEngLetter = True
    ElseIf AllowDigits And (KeyAscii >= Asc("0") And KeyAscii <= Asc("9")) Then
        IsEngLetter = True
    Else
        IsEngLetter = (KeyAscii >= Asc("A") And KeyAscii <= Asc("Z")) Or (KeyAscii >= Asc("a") And KeyAscii <= Asc("z"))
    End If
End Function

لاحظ أن البارامتر الثاني AllowDigits اختياري لتحديد ما إذا سيتم قبول الأرقام أم لا و قيمته الافتراضية False أي لا يتم قبول الأرقام.

بعد ذلك نستدعي الدالة من الحدث KeyPress لمربع النص (أي مربع نص):

كود :

' قبول الحروف الإنجليزية فقط
Private Sub Text1_KeyPress(KeyAscii As Integer)
    If Not IsEngLetter(KeyAscii) Then KeyAscii = 0
End Sub

' قبول الحروف الإنجليزية و الأرقام
Private Sub Text1_KeyPress(KeyAscii As Integer)
    If Not IsEngLetter(KeyAscii, True) Then KeyAscii = 0
End Sub

نرجو الاستفادة و السلام.