-
-
[求助]请问:SetPixel函数是怎么画点的?为什么下面代码不行呢?
-
发表于: 2010-12-7 13:59 3700
-
请问:SetPixel函数是怎么画点的?为什么下面代码不行呢?
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
c = GetDC(Picture1.hwnd)
b = SetPixel(c, CLng(X), CLng(Y), vbRed)
SelectObject c, b
Debug.Print b, X, Y, c
Picture1.Refresh
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
c = GetDC(Picture1.hwnd)
b = SetPixel(c, CLng(X), CLng(Y), vbRed)
SelectObject c, b
Debug.Print b, X, Y, c
Picture1.Refresh
End Sub
赞赏
他的文章
看原图
赞赏
雪币:
留言: