VB编程:利用circle方法绘随机产生颜色各异的同心圆,最大圆半径不超过1000

 我来答
yeweikfkf
2011-06-08 · 超过15用户采纳过TA的回答
知道答主
回答量:66
采纳率:0%
帮助的人:42.6万
展开全部
说明

想要填充圆,使用圆或椭圆所属对象的 FillColor 和 FillStyle 属性。只有封闭的图形才能填充。封闭图形包括圆、椭圆、或扇形。

画部分圆或椭圆时,如果 start 为负,Circle 画一半径到 start,并将角度处理为正的;如果 end 为负,Circle 画一半径到 end,并将角度处理为正的。Circle 方法总是逆时针(正)方向绘图。

画圆、椭圆或弧时线段的粗细取决于 DrawWidth 属性值。在背景上画圆的方法取决于 DrawMode 和 DrawStyle 属性值。

画角度为 0 的扇形时,要画出一条半径(向右画一水平线段),这时给 start 规定一很小的负值,不要给 0。

.可以省略语法中间的某个参数,但不能省略分隔参数的逗号。您指定的最后一个参数后面的逗号是可以省略的。

Circle 执行时,CurrentX 和 CurrentY 属性被参数设置为中心点。

这个方法不能用在 With匛nd With 语句块中。

--------------------------------------------------------------------------------

Circle 方法示例
这个示例用Circle 方法在窗体中央画许多同心圆。要运行这个示例,将此代码放入窗体的 General 部分。按 F5 并单击窗体。

Sub Form_Click ()
Dim CX, CY, Radius, Limit ' Declare variable.
ScaleMode = 3 ' 以像素为单位。
CX = ScaleWidth / 2 ' X 位置。
CY = ScaleHeight / 2 ' Y 位置。
If CX > CY Then Limit = CY Else Limit = CX
For Radius = 0 To Limit ' 半径。
Circle (CX, CY), Radius,RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Next Radius
End Sub

--------------------------------------------------------------------------------

应用于:

Form 对象、Forms 集合

PictureBox 控件

PropertyPage 对象

UserControl 对象
mijing2000
2011-06-08 · TA获得超过282个赞
知道小有建树答主
回答量:372
采纳率:0%
帮助的人:312万
展开全部
Dim x As Single, y As Single, r As Integer

Private Sub Command1_Click()
x = Form1.ScaleWidth / 2
y = Form1.ScaleHeight / 2
Randomize
r = Int(Rnd * 1000) + 1
Circle (x, y), r, QBColor(Int((15 * Rnd) + 1))
End Sub
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
jinesc
2011-06-08 · TA获得超过200个赞
知道小有建树答主
回答量:939
采纳率:0%
帮助的人:547万
展开全部
Private Sub Command1_Click()
Dim i As Integer
Picture1.Cls
Picture1.Scale (-2000, 2000)-(2000, -2000)
For i = 1 To 50
Picture1.Circle (0, 0), Int((1000 * Rnd) + 1), QBColor(Int((15 * Rnd) + 1))
Next
End Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式