最近は文字コードばかり。。。

仕事

さて今度はWindows。
韓国語や欧州の言語やらを出力しないといけないんだけど、
VB(VB6)じゃあ、なんか出ない。
「???? ??????」ってなに？

なんかいい方法はないかと思ってたら
よいAPIを発見。

http://hpcgi1.nifty.com/MADIA/Vcbbs/wwwlng.cgi?print+200302/03020014.txt

Private Declare Function TextOutW Lib "GDI32.DLL" (ByVal hDC As Long, _
ByVal nXStart As Long, ByVal nYStart As Long, lpString As Byte, _
ByVal cbString As Long) As Long

Function TextOut (obj As Object, x As Long, y As Long, s As String) As Long
Dim b() As Byte
b = s
TextOut = TextOutW(obj.hDC, x, y, b(0), Len(s))
End Function

これで出来そうだ。