Unicode

[HM2020]

سلام دوستان

چطوری تشخیص بدم داخل Textbox1 فرم من از حروف یونیک و غیر یونیک استفاده شده؟

[HM2020]

دوستان کسی نیست جواب ما رو بده؟ :متعجب:

[sehm67]

سلام من با این روش امتحان کردم .

امیدوارم بدردتون بخوره.



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