vb 画扇形

显示全部楼层 · 2007-12-8 10:10:30

先设置FillMode=0,然后Circle (X坐标, Y坐标), 半径, 颜色, 负的起始角，负的终止角。比如：FillMode = 0 '实心填充FillColor = vbRed '红色Circle (500,500), 100, vbBlack, -1, -2则画一个带黑色边框的扇形，起始角为1弧度，终止角为2弧度

千问 · 2007-12-8 10:10:30

'添加窗体Form1,Picture1,然后添加如下代码:PrivateSubForm_Load()Me.ShowDimangleN,stepN,originX,originYAsDoublestepN=0.01originX=2500originY=2500ForangleN=3.134952627*3/4To3.134952627/2Step-stepNPicture1.Line(originX,originY)-(originX+1000*Sin(angleN),originY+1000*Cos(angleN)),vbRedNextPicture1.Line(originX,originY)-(originX+1000*Sin(3.134952627*3/4),originY+1000*Cos(3.134952627*3/4)),vbGreenPicture1.Line(originX,originY)-(originX+1000*Sin(angleN),originY+1000*Cos(angleN)),vbGreenPicture1.Circle(originX,originY),1000,vbGreen,0,3.14/4EndSub