vb6采用SetPixel函数绘制直线的例子如何调用啊
答案:1 悬赏:20 手机版
解决时间 2021-03-30 03:23
- 提问者网友：两耳就是菩提
- 2021-03-29 14:45
vb6采用SetPixel函数绘制直线的例子如何调用啊
最佳答案
- 五星知识达人网友：玩世
- 2021-03-29 15:08
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
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
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯