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

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

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

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

说明 想要填充圆，使用圆或椭圆所属对象的 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 对象