Bạn muốn hiển thị các ký tự Unicode trong chươngtrình viết bằng VB những các công cụ chuẩn cua VB không hỗ trợ, bạn làm cách nào ? Sau đây là một cách để giúp bạn. Xin mời tham khảo
Thêm Microsoft Forms 2.0 Object Library vào dự án. Component này cung cấp các control hỗ trợ Unicode như
textbox, label, command button,list box, combo box, checkbox, radio button, toggle button, image, tabstrip, và multiple page control.
Thêm một Scrollbar control với giới hạn từ 33 to 65533 (Unicode 2.1 code )
Hiển thị một textbox có hỗ trợ Unicode
chrW nhận một giá trị từ 0 đến 65535 và trả về giá trị mã Unicode. Hàm hex sẽ chuyển giá trị thành dạng hexidecimal
VD chuỗi help sẽ được hiển thị là h[00 68] e[00 65] l[00 6C] p[00 70] -> mỗi lý tự được chia thành 2 byte
Option Explicit
Private Sub Form_Load()
ScrollBar1.Min = 33
ScrollBar1.Max = 65533
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