Wednesday, July 20, 2011

How to use unicode in vb?

Visual Basic में  Unicode (यूनीकोड ) का उपयोग .......
       
यूनीकोड प्रत्येक अक्षर के लिए एक विशेष नम्बर प्रदान करता है,
  • चाहे कोई भी प्लैटफॉर्म हो,
  • चाहे कोई भी प्रोग्राम हो,
  • चाहे कोई भी भाषा हो।

 इस प्रोजेक्ट से आप एक यूनीकोड  को इससे संबंधित  अक्षर में बदल सकते है ...




 '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