创建一个工程,窗口上面放一个PictureBox,大小相对大一些,将其ScaleMode属性设为3。
然后放一个按钮,其中加入以下代码:
'这段代码演示了如何使用VB的Circle方法绘制各种各样的圆。
Form1.Picture1.Circle (60, 60), 40, vbRed '画一个圆心(60,60)半径40的红色的圆(默认空心)
Form1.Picture1.FillStyle = 0 '设定填充模式为实心
Form1.Picture1.FillColor = vbBlue '设定填充色蓝色
Form1.Picture1.Circle (190, 60), 40, vbRed '下来画出来的就是填充了实心蓝色的圆了
Form1.Picture1.DrawWidth = 3 '设定边框宽度为3
Form1.Picture1.Circle (60, 190), 40, vbRed '这次绘制出来的圆边框粗细为3
Form1.Picture1.DrawStyle = 5 '设定边框不可见
Form1.Picture1.FillColor = vbRed '设定填充色红色
Form1.Picture1.Circle (190, 190), 40 '这次绘制出来一个无边框、填充颜色是红色的圆
Form1.Picture1.Refresh
然后试试看,对照注释应该就明白了。
————————————————
PS:对楼上 wys_sans给出的方法的评价:
其方法1、根本不能称作画圆;
其方法2、很显然Circle可以直接画实心的圆,只是这位不知道而已;
其方法3、效率极低效果极差的最糟糕方法。
参考资料:自己写的