Sub Form_Click()
Dim CX, CY, Radius, Limit ' Declare variable.
Picture1.AutoRedraw = True
Picture1.ScaleMode = 3 ' 以像素为单位。
CX = Picture1.ScaleWidth / 2 ' X 位置。
CY = Picture1.ScaleHeight / 2 ' Y 位置。
If CX > CY Then Limit = CY Else Limit = CX
For Radius = 0 To Limit ' 半径。
Picture1.Circle (CX, CY), Radius, RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Next Radius
For I = 0 To 50 Step 2 ' Set up loop.
F = I / 50 ' 执行中间。
f1 = 1 - F: f2 = 1 + F ' 计算。
Picture1.Line (CX * f1, CY)-(CX, CY * f1) ' 画左上角。
Picture1.Line -(CX * f2, CY) ' 画右上角。
Picture1.Line -(CX, CY * f2) ' 画右下角。
Picture1.Line -(CX * f1, CY) ' 画左下角
ForeColor = QBColor(I Mod 15) ' 每次改变颜色。
Next I
SavePicture Picture1.Image, "z:\test.bmp"
End Sub
温馨提示:答案为网友推荐,仅供参考