منع اللصق في الحقل

[almersat]

السلام عليكم ورحمة الله 

لدي مشروع ادخال بيانات وارغب في اجبار المستخدم على الكتابة في الحقل باللغه العربية لكن يمكن تجاوز ذلك بعملية اللصق في الحقل
هل يوجد كود يمنع استخدام خاصية اللصق .

او هل يوجد كود يمنع كتابة او لصق اي كلمه انجليزيه في الحقل

 

ولكم اطيب سلام

[Barna]

6 ساعات مضت, almersat said:

لدي مشروع ادخال بيانات وارغب في اجبار المستخدم على الكتابة في الحقل باللغه العربية لكن يمكن تجاوز ذلك بعملية اللصق في الحقل
هل يوجد كود يمنع استخدام خاصية اللصق .

او هل يوجد كود يمنع كتابة او لصق اي كلمه انجليزيه في الحقل

وعليكم السلام ورحمة الله وبركاته

انشأ وحدة نمطية وضع التالي بها ::::

Public Sub CheckEntryLanguage(TB As TextBox, Txt As String)
    If InStr("ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz", Txt) > 0 Then
        TB.KeyboardLanguage = 3
        MsgBox "يحب ان تكتب بالعربي .. مع العلم أنه تم تغيير اللغة للوحة المفاتيح."
        TB = ""
    End If
End Sub

وفي حدث عند التغيير في مربع النص ضع هذا :::::

    If TxtBox.Text = "" Then Exit Sub
    Call CheckEntryLanguage(Me.TxtBox, Right(TxtBox.Text, 1))

 

[almersat]

تمام مثل ماردت الله جزاك خير الجزاء Barna