在VB中获取char的unicode值

Question

如何获取 char 的 unicode 值？

例如，我知道我可以用 ascii 做到这一点：

i = Asc("a") // i == 97 (correct)

如果我有一个 unicode char 怎么办？

i = Asc("•") // i == 149 (incorrect... should return 8226)

显然，第二个示例不起作用，因为该字符不在 Ascii 集中。是否有我可以使用的等效函数将返回 8226 而不是不正确的结果 149？

我在 Outlook 2003 中这样做，如果这有什么不同的话。

Answer 1

RC 提供的答案。帮了我很多，但我遇到了 AscW() 函数有时返回负值的问题。

在我的情况下，使用中文字符时出现了问题。

我在网上找到了解决办法：

Function CharToUnicode(strChar As String)

    Dim lngUnicode As Long

    lngUnicode = AscW(strChar)

    If lngUnicode < 0 Then
        lngUnicode = 65536 + lngUnicode
    End If

    CharToUnicode = lngUnicode

End Function

Answer 2

AscW 呢？