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 LongPrivate Sub Command1_Click()
TextOut Picture1.hDC, 0, 0, StrConv("东西财务", vbUnicode), 4
End Sub显示的却是 “东[][]R”
别的汉字有些又正常呢????例如把东西财务 换成 东过来,显示得出来
TextOut Picture1.hDC, 0, 0, StrConv("东西财务", vbUnicode), 4
End Sub显示的却是 “东[][]R”
别的汉字有些又正常呢????例如把东西财务 换成 东过来,显示得出来
str = StrConv("东西财务", vbUnicode) 'textout调用的是textoutw,所以转成unicode
TextOut Picture1.hDC, 0, 0, str, Len(str)
显示"东口口R口b"
TextOut Picture1.hDC, 20, 20, "", 5
谢谢阿
如果我声明
Private Declare Function TextOut Lib "GDI32" Alias "TextOutA"..我能用你的方法打印出来
可是我现在声明的是
Private Declare Function TextOut Lib "GDI32" Alias "TextOutW" 结果打出来的是乱码
Picture1.CurrentX = 100
Picture1.CurrentY = 500
Picture1.Print "东西财务"
看看能不能满足你的要求