Question

vb6采用SetPixel函数绘制直线的例子如何调用啊

网上例子vb6采用SetPixel函数绘制直线的例子如何调用啊

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励10（财富值+成长值）+提问者悬赏20（财富值+成长值）

Answer 1

Option Explicit

Private Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long

Private Sub Command1_Click()
Dim x As Long

For x = 10 To 500
SetPixel Form1.hdc, x, 10, vbRed
Next

End Sub