VB PictureBox依次描点。 有点儿难度,后追分
发布网友
共1个回答
热心网友
可以用 pset来描点，包括窗体等都可以这样描点。基本上只能看到向下的效果，向右的效果看不到，太快了，如果用延时的话又太慢了，因为这个的单位是缇，也就是1/15 像素而已。
Dim i As Long, j As Long
For i = 1 To Picture1.Height
DoEvents
For j = 1 To Picture1.Width
Picture1.PSet (j, i), vbRed
Next
Next
下面这个 改变Picture1.DrawWidth = 10 这个值可以稍微控制速度。。。稍微而已。
Private Sub Command1_Click()
Dim i As Long, j As Long
Picture1.AutoRedraw = True
Picture1.DrawWidth = 10
For i = 1 To Picture1.Height Step Picture1.DrawWidth
DoEvents
For j = 1 To Picture1.Width
Picture1.PSet (j, i), vbRed
Next
Next
End Sub
