HM2020
پنج شنبه 26 دی 1392, 14:07 عصر
سلام دوستان
چطوری تشخیص بدم داخل Textbox1 فرم من از حروف یونیک و غیر یونیک استفاده شده؟
HM2020
شنبه 28 دی 1392, 11:45 صبح
دوستان کسی نیست جواب ما رو بده؟ :متعجب:
sehm67
شنبه 28 دی 1392, 20:52 عصر
سلام من با این روش امتحان کردم .
امیدوارم بدردتون بخوره.
Dim Uni As Boolean
For Each c In Me.TextBox1.Text.ToCharArray
If AscW(c) >= 1500 And AscW(c) < 1900 Then
Uni = True
Else
Uni = False
End If
Next
If Uni = True Then
MsgBox("Unicode")
Else
MsgBox("No Unicode")
End If
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.