qpainterpath画圆（qpainter在qimage中绘图）



图2：应用VB编程图形方法生成的效果图

如何实现呢？

实现需要用到VB编程的Circle方法语句以及循环语句。

下面，我们共同来学习背后的知识原理以及实现代码。

Circle方法：此方法可以在窗体或图片框上的指定位置上画圆、椭圆或弧。

语法：对象名. Circle [Step] (x, y), radius, [color, start, end, aspect]

各参数详细解释：

对象名为窗体或图片框对象名，代码不指定的话，默认就是当前窗体。

[Step](x,y)指定圆心坐标，

radius指的是半径，

color指定颜色，

start与end指定弧的起止角度（弧度表示），取值为0~2π时画圆弧，取值为负值时，画扇形，

Aspect指定长短轴的比率，当它为1时，生成的是一个圆，其它值为椭圆，默认值是1。

实现代码：

Option ExplicitDim x As Single, y As Single, r As Single '定义坐标x，y，半径r变量Private Sub Command1_Click() 'VB编程生成图形 x = 800 '指定起始坐标x值 y = 800 '指定起始坐标y值 For r = 100 To 2500 Step 50 x = x + 100 y = y + 100 Circle (x, y), r, RGB(Rnd * 255, Rnd * 255, Rnd * 255) '调用Circle方法生成图形 Next rEnd Sub

Option Explicit

Dim x As Single, y As Single, r As Single '定义坐标x，y，半径r变量

Private Sub Command1_Click() 'VB编程生成图形

x = 800 '指定起始坐标x值

y = 800 '指定起始坐标y值

For r = 100 To 2500 Step 50

x = x + 100

y = y + 100

Circle (x, y), r, RGB(Rnd * 255, Rnd * 255, Rnd * 255) '调用Circle方法生成图形

Next r

End Sub

赶快实际运行一下看看效果吧~

Tips:坐标(x,y)和半径r,以及循环上下限参数都可以改，不同的值生成的效果是不一样的哦~

版权声明：

本文来自互联网用户投稿，该文观点仅代表作者本人，不代表本站立场。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。
如若内容造成侵权、违法违规、事实不符，请将相关资料发送至xkadmin@xkablog.com进行投诉反馈，一经查实，立即处理！

转载请注明出处，原文链接：https://www.xkablog.com/rfx/50480.html