-
could some people test this code under windows 95,98 and NT please, I'm not sure how well unicode APIs are supported under these verion of windows
Code:
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Declare Function TextOut Lib "gdi32" Alias "TextOutW" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
Private Sub Command1_Click()
Dim i As Integer
Dim PiSymbol As String
PiSymbol = " "
i = 960
CopyMemory ByVal StrPtr(PiSymbol), i, 2
TextOut Picture1.hdc, 0, 50, StrConv(PiSymbol, vbUnicode), 1
End Sub
Thanks for your help
-
If just prints an unprintable ASCII char (you know, a thick blank line) on my NT box and my 95 machine.
-
Damn, Thanks anyway, I'll have to do something else.