यूनीकोड प्रत्येक अक्षर के लिए एक विशेष नम्बर प्रदान करता है,
- चाहे कोई भी प्लैटफॉर्म हो,
- चाहे कोई भी प्रोग्राम हो,
- चाहे कोई भी भाषा हो।
इस प्रोजेक्ट से आप एक यूनीकोड को इससे संबंधित अक्षर में बदल सकते है ...
'add component Microsoft Forms 2.0 Object Library
'use textbox and scroll bar of this component
Using Form
Option Explicit
Private Sub Form_Load()
ScrollBar1.Min = 33
ScrollBar1.Max = 65535
'Font.Name = "Arial Unicode MS"
'Font.Size = 12
ScrollBar1_Change
End Sub
Private Sub ScrollBar1_Change()
Dim sCodePoint
txtDecimalNumber.Text = ScrollBar1.Value
txtUnicodeNumber.Text = "U+" & Hex(txtDecimalNumber.Text)
sCodePoint = ChrW(txtDecimalNumber.Text)
txtCodePoint.Text = sCodePoint
End Sub
No comments:
Post a Comment