Question

用api，vb中最最快的在窗体上画实心的指定颜色指定位置和大小的正方形的方法是什么？

试过line方法、还是过把正方形放进picturebox再使用piantpicture。速度都不够。什么api可以实现？怎么声明和调用？
我可能没有说清楚。我追求速度是因为希望在5毫秒内在窗体上不同位置画几百个正方形。我想要api的回答。

Answer 1

先放一个shape 到窗体位置，设置为隐藏，或者移动到窗体外

Private Sub Command1_Click()
Shape1.BackStyle = 1 '实心
Shape1.BackColor = vbGreen '颜色
Shape1.Left = 100 '左边位置
Shape1.Top = 100 '顶端位置
Shape1.Height = 2000 '高度
Shape1.Width = 2000 '宽度
'Shape1.FillStyle = 1 '填充样式
'Shape1.FillColor = vbYellow '填充颜色
Shape1.Shape = 1 '正方形
Shape1.Visible = True

End Sub

Answer 2

'窗体上放个Shape1，INDEX属性设置为0，FILLSTYLE属性设置为0
Private Sub Form_Load()
For i = 1 To 99
Load Shape1(i)
Shape1(i).Left = Int(Rnd * Me.ScaleWidth)
Shape1(i).Top = Int(Rnd * Me.ScaleHeight)
Shape1(i).FillColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)
Shape1(i).Visible = True
Next i
End Sub
API的一会儿给你写

Answer 3

Private Sub Form_Load()
Me.AutoRedraw = True
Me.Picture1.AutoRedraw = True
Line (100, 100)-(1000, 1000), vbRed, BF
Picture1.PaintPicture Me.Image, 0, 0, , , 100, 100, 900, 900
End Sub

Answer 4

..http://zhidao.baidu.com/question/531444333.html?fr=qlquick