pDC->TextOut为什么不能直接写成TextOut,->有什么用?
展开全部
代码如下。
====================
Option Explicit
Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
Private Sub Form_Paint() '这里也要改
Dim x As Long
x = TextOut(hdc, 100, 100, "ssadwlll", Len("ssadwlll")) '看看变化
End Sub
====================
Option Explicit
Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
Private Sub Form_Paint() '这里也要改
Dim x As Long
x = TextOut(hdc, 100, 100, "ssadwlll", Len("ssadwlll")) '看看变化
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询