[問題]如何在VB上畫圓圈~是用點畫出來的

Question

深入問題!
MouseDown事件裡(應該吧!)，我想問的是，如何在表單(FORM1)上劃製一個圓(circle)
那個圓圈是由點(pset)構成的，圓的外圈不需要線條，當我點下滑鼠時，他的半徑最大為500單位，顏色隨機擇色!(好像是用變數rnd)。
應該就是這樣!就是像小畫家那樣的噴漆一樣!只是小的要按下去大小會變，顏色也要變。

這個小的發問過了~可是小的沒分到類別

Answer 1

Const Pi = 3.14159265358979Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Dim I%, J%, R%, X1&, Y1&, N%, W#, L%RandomizeR = Int(Rnd * 401 + 100) '半徑100~500'隨機選色以不跟表單背景色相同為準Do  ForeColor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256))Loop Until ForeColor <> BackColor'噴吧...Do    N = Int(Rnd * (R / 10 - R / 20 + 1) + R / 20)  '噴的密度    If N < 10 Then N = 10 '至少噴10滴    W = 360 / N    L = Int(Rnd * 181 + 1)    For J = 0 To N        X1 = X - Sin(W / L * Pi) * R        Y1 = Y + Cos(W / L * Pi) * R        Me.PSet (X1, Y1)        W = W + 360 / N    Next    R = R - Int(Rnd * 10 + 1)Loop Until R < 0End Sub