第四贴了。VB版的就没有高手？

Question

如何使用API 的PIE　和　SetBkColor 画出一个扇形？（最好是立体的）
如果哪位能把源程序发给我，3００分全给他！
[email protected]
http://expert.csdn.net/Expert/topic/1742/1742090.xml?temp=.7805139
http://expert.csdn.net/Expert/topic/1742/1742083.xml?temp=.4199182
http://expert.csdn.net/Expert/topic/1743/1743742.xml?temp=.7514612

Answer 1

不用　API　也能画呀
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Command1_Click()
Dim PI, circStart, circEnd, gPercent, jPercent, nX, nY, rad
nX = Picture1.ScaleWidth \ 2
nY = Picture1.ScaleHeight \ 2rad = 1000
gPercent = 75
jPercent = 25PI = 22 / 7
circStart = (gPercent * PI) / 180
circEnd = (jPercent * PI) / 180Picture1.DrawWidth = 1
Picture1.FillStyle = 0
Picture1.FillColor = vbBlue
'The For - Next is not nested for clarity
For i = 1 To 200
Picture1.Circle (nX, nY), rad, vbRed, -circStart, -circEnd, -1
nX = nX + 1
nY = nY + 1
Next iPicture1.FillColor = vbRed
For j = 1 To 200
'Adjusting the nX and nY moves the wedge
Picture1.Circle (nX + 200, nY - 500), rad, vbBlue, -circEnd, -circStart, -1
nX = nX + 1
nY = nY + 1
Next jEnd Sub

Answer 2

我很难把　PIE　和　SetBkColor 联系在一起用（不是不可以）PIE　画一个由椭圆和两条半径相交的闭合区域，用当前画笔画轮廓，用当前刷子填充SetBkColor 为指定的设备场景设置背景颜色，背景颜色用来填充阴影刷子，虚线画笔以及字符中的空隙．所以要给扇形上色的话，根本不用　SetBkColor ，只要将所需要的颜色选入当前 DC　的刷子即可，否则就是画蛇添足了

Answer 3

http://expert.csdn.net/Expert/topic/1743/1743742.xml?temp=.8664972

Answer 4

就是，不用api照样画，我用网页图形控件都能画出来！用pictruebox就能！
关键是你的数学能力吧，我想