Question

给圆环和扇形填充颜色 vb.net，给个例子

1.圆环外径，内径已知
2.扇形半径，角度已知
3.必须是vb.net 不要vb6的
4.扇形的做出来了

Answer 1

void CDDlg::DrawC(CPaintDC *dc)
{
CRect rect;
GetClientRect(&rect);
int x0=rect.Width()/2;
int y0=rect.Height()+100;

int C1=RGB(255,0,0);
int C2=RGB(0,0,255);
int x1,y1,x2,y2;
double th,r1=200.0,r2=400.0,c=0;

CPen *op,p;
p.CreatePen(0,1,RGB(0,0,0));
op=dc->SelectObject(&p);

for(th=3.14/4;th<3.14*3/4;th+=0.00157,c+=0.25)
{
x1=x0-(int)r1*cos(th);
y1=y0-(int)r1*sin(th);
x2=x0-(int)r2*cos(th);
y2=y0-(int)r2*sin(th);
p.DeleteObject();
p.CreatePen(0,2,RGB(255-(int)c,0,(int)c));
op=dc->SelectObject(&p);

dc->MoveTo(x1,y1);
dc->LineTo(x2,y2);
}
dc->SelectObject(op);
p.DeleteObject();
}

追问

有无vb的 C的转了半天，还是有错误