2012年12月4日 星期二

vb6 秀 unicode

參考引用
--
Public Declare Function MessageBoxW Lib "User32.dll" (ByVal hWnd as DWORD, ByVal lpText as Long, ByVal lpCaption as Long, ByVal uType as DWORD) as Long

Dim s as String
Dim ptr as Long

s = "t" & ChrW(22531) & "a"
ptr = StrPtr(s)
MessageBox 0, ptr, ptr, vbOkOnly

訊息視窗就會顯示 "t堃a" 了...

沒有留言:

張貼留言