如何向标准输出写unicode字符.txt

VB技巧问答10000例 VB技巧问答10000例

在 WinAPI中 用 于 Unicode的 函 数 
    例 如 : 
    Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" 
     (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName 
     As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal 
     nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal 
     hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long 
    Declare Function CreateWindowExW Lib "user32" Alias "CreateWindowExW" 
     (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName 
     As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal 
     nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal 
     hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long 
    前 者 是 ANSI方 式 (在 Alias中 以 A结 尾 )， 后 者 是 UNICODE(在 Alias中 以 W结 尾 )。 具 体 去 MSDN查 看 关 于 UNICODE方 面 的 介 绍 ! 
    在 VB中 ,StrConv函 数 是 用 来 在 UNICODE和 ANSI之 间 转 换 。 
    主 持 人 注 ： 使 用 API函 数 GetStdHandle(STD_OUTPUT_HANDLE)可 以 获 得 标 准 输 出 的 句 柄 ， 并 使 用 WriteFile进 行 输 出 。 
<END>    
采 用 内 码 转 换 StrConv(String,ConVersion,LCID)函 数 
    其 中 ： ConVersion为 常 量 (VBFromUnicode 和 VBUnicode) 
     LCID为 编 码 方 式 : &H404为 big5码 ,&H804为 gbk码 
    dim sSource As String,sTemp As String 
     sTemp=StrConv(sSource,vbUnicode,LCID方 式 ) 
<END>