UC知道VB 求一个API颜色点输出
来源：百度知道 编辑：UC知道 时间：2024/05/18 10:22:59
我的要求很简单，我想在窗体上，或Picture中输出一个像素点（彩色的），请问有什么办法，我想用API，Picture1.PSet这种方法我会。
我想既然有Private Declare Function GetPixel Lib "gdi32" (ByVal... ..API函数的话，也应该有对应的吧？函数图形分析，所以要API速度快点
Dim i, j As Integer
Dim Color As Long
For i = 0 To 160
For j = 0 To 120
Color = GetPixel(Picture1.hdc, i, j)
m = SetPixel(Picture2.hdc, i, j, Color)
Next j
Next i
一楼的，我已经试过你方法了，但是不行，我还把*.AutoRedraw = True都没有效果
对了，还有一个< SetPixelV >函数和< SetPixel >函数有什么不同吗？ 谁能讲一下，我加分
我想既然有Private Declare Function GetPixel Lib "gdi32" (ByVal... ..API函数的话，也应该有对应的吧？函数图形分析，所以要API速度快点
Dim i, j As Integer
Dim Color As Long
For i = 0 To 160
For j = 0 To 120
Color = GetPixel(Picture1.hdc, i, j)
m = SetPixel(Picture2.hdc, i, j, Color)
Next j
Next i
一楼的，我已经试过你方法了，但是不行，我还把*.AutoRedraw = True都没有效果
对了，还有一个< SetPixelV >函数和< SetPixel >函数有什么不同吗？ 谁能讲一下，我加分
不会吧？
SetPixelV >函数比< SetPixel >函数快？
那用 SetPixel
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()
For i = 0 To 1000
Call SetPixel(Me.hdc, i, i, 200)
Next i
End Sub
SetPixelV要比SetPixel快
你到底要做什么东西吗？
去VB专业网站查询