VB用circle画圆的命令

Question

如何使用circle指令画一个实心的园 用模块方式
设置一个模块 画圆能画出来 但是是空心的 如何修改指令能使得 圆变实心 ，不要说用循环的方式减半径 ，求实用的
指令如下
public sub a(q as integer ,w as integer)
dim z as integer
dim x as integer
z=q+0
x=w+0
form1.circle(z,x),100,rgb(255,0,0)

Answer 1

你说的意思是画实心圆，我给你一个示例的代码，如下：

Dim i As Integer, l As Integer
Dim r As Boolean
Private Sub Form_Load()
Form1.Scale (-200, 200)-(200, -200)
l = 1
i = 1
r = False
End Sub

Private Sub Timer1_Timer()
DoEvents
If r = False Then
Timer1.Interval = i
i = i + l
Form1.Cls
Form1.FillStyle = 0
Form1.FillColor = vbRed
Circle (0, 0), i, vbBlue
If i >= 200 Then
    r = True
End If
ElseIf r = True Then
    Timer1.Interval = i
    i = i - 1
    Form1.Cls
    Form1.FillStyle = 0
    Form1.FillColor = vbBlue
    Circle (0, 0), i, vbBlue
    If i <= 1 Then
         r = False
    End If
End If
End Sub