VB PICTURE BOX 扫描求图形面积
发布网友
发布时间：2022-09-04 04:06
共1个回答
热心网友
时间：2024-11-23 21:14
你可以用画图命令直接在PictureBox上画（Shape是控件，它的图形跟PictureBox完全不沾边好不？），下面的例子是画一个半径600缇，圆心在(900,900)，颜色为黑色的实心圆形：
Picture1.FillStyle = 0Picture1.FillColor = vbBlack
Picture1.Circle (900, 900), 600, vbBlack
追问非常感谢，还有两个后续问题再请教一下：1、如果想画矩形的语句是怎么样的？ 2、FOR循环的扫描取点，判别颜色的语句可以告诉我下吗，谢谢了
追答矩形
Picture1.Line (150, 90) - (900, 750), vbBlack, BF
获取某点颜色值用Point函数：
color = Picture1.Point(300, 300)
If color = vbBlack Then
'黑色
Else
'其他色
End If
