دستور اخطار دادن به تایپ فارسی

[hamed_vb]

سلام دوستای عزیزم من میخوام یه دستور شرطی برای برنامم بدم که وقتی کاربر داخل تکست باکس به صورت تایپ فارسی می کنه برنامه اخطار بده که کاربر نمی تونه کلامات فارسی داخل تکست وارد کنه
ممنونم از کمک های دوستای متخصص گلم

[meys34]

سلام

کاراکتر به کاراکتر باید بررسی کنید...

اگر مقدار AscW(string) بیشتر از 255 باشه اون کاراکتر غیر انگلیسی (لاتین، فارسی، عربی، آلمانی و...) است...

اینم تابعش:
Private Function Farsi(ByVal s As String) As Boolean
Dim i As Integer
For i = 1 To Len(s)
If AscW(Mid$(s, i, 1)) > 255 Then Farsi = Farsi Or True
Next
End Function

[hamed_vb]

سپاس از راهنمایی شما یه مشکل دیگه میشه طریقه فرخوانیش رو هم بنویسید؟