画图

Question

如何实现输入不同的半径改变圆的大小

Answer 1

'添加 Text1 输入半径'点击窗体,随机色画出此半径的实心圆
Dim ColorVal&
Private Sub Form_Load()
   Me.AutoRedraw = True
   Me.FillStyle = 0
   Me.FillColor = vbRed
End SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   Call DrawCircle(X, Y, Val(Text1.Text))
End SubPublic Sub DrawCircle(X1!, Y1!, Rad&)
   Me.FillColor = QBColor(Int(Rnd * 16))
   ColorVal = Me.FillColor
   Me.Circle (X1, Y1), Rad, ColorVal
End Sub