用visual basic6.0畫圓餅圖~20點

Question

我現在已經產生了3個亂數 3個加起來等於100%
我想用那三個亂數 來畫一個圓餅圖來表示各佔幾%
請問vb 裡面有專門畫圓餅圖的東西嗎??
我自己只會畫出扇形 而且 不能填滿顏色 要怎填呢
而且只是平面的 , 有辦法做成立體的嗎
請vb高手幫幫忙唷 感激不盡

Answer 1

'圓的範圍從 -0.0001徑度到 -2 pi徑度(實心),0.0001徑度到 2 pi徑度(空心)
'以下示範均分成三等份(平面圖,立體圖還不會),瞭解後您自己按比例去畫吧!

Const pi = 3.1415926535897932384626433832795

Private Sub Form_Activate()
Me.FillStyle = 0 'FillStyle 屬性須設為0才能畫出實心園
Me.FillColor = RGB(255, 0, 0)
Me.Circle (1000, 1000), 1000, , -0.0001, (-0.0001 - 2) * 1 / 3 * pi '0 ~ 240
Me.FillColor = RGB(0, 255, 0)
Me.Circle (1000, 1000), 1000, , (-0.0001 - 2) * 1 / 3 * pi, (-0.0001 - 2) * 2 / 3 * pi '240 ~ 120
Me.FillColor = RGB(0, 0, 255)
Me.Circle (1000, 1000), 1000, , (-0.0001 - 2) * 2 / 3 * pi, -2 * pi '120 ~ 0
End Sub

Answer 2

''''''''''''''將很多個疊在一起, 在改變長與寬的比例, 就有 3D 的感覺了
''''''''''''''''''''''''其他方法和 W.J.S. 說的一樣
Private Sub Form_Activate()
Me.FillStyle = 0
Dim i As Integer
Dim pi As Single
pi = 3.14159
For i = 0 To 200 ''''''''''''''''''''''''''''''''''''''''高度
Me.FillColor = RGB(255, 0, 0)
Me.Circle ((Me.Width / 2), (1300 - i)), 1000, RGB(0, 255, 255), -0.0001, (-0.0001 - 2) * 1 / 3 * pi, 0.5
Me.FillColor = RGB(0, 255, 0)
Me.Circle ((Me.Width / 2), (1300 - i)), 1000, RGB(0, 255, 255), (-0.0001 - 2) * 1 / 3 * pi, (-0.0001 - 2) * 2 / 3 * pi, 0.5
Me.FillColor = RGB(0, 0, 255)
Me.Circle ((Me.Width / 2), (1300 - i)), 1000, RGB(0, 255, 255), (-0.0001 - 2) * 2 / 3 * pi, -2 * pi, 0.5
Next i
End Sub