怎样获取字体的十六进制数？

Question

怎样用VB代码实现获取文字字体的十六进制数据？

Answer 1

Dim TmpCode(0 To 1) As Byte
TmpCode = StrConv("中", vbFromUnicode)
MsgBox ("Hex of ""中"":" & Hex(TmpCode(0)) & Hex(TmpCode(1)))

Answer 2

至於有字體格式的數據,實際不並不是該文字本身帶著字體設置走,更不是它本身具備在任何環境下顯示的功能.我不知道樓主是否有熟悉超文本如HTML之類的,它在顯示的時候也可以帶字體格式以及顏色等顯示,但是當你查看原文件時,看到的只是控制字符在作怪,而對於如RichEdit,Word之類的超文本編輯器,所編輯出來的內容也是如此,僅僅只是由於其完整的內容當中還包含了相就的控制字符在里頭,可以參考RTF相關的文檔,里面有更為詳細地說明.諸如此類,其有效數據的內容無論你如何去取,其結果都是一樣的.