Dim Val3 As Integer = Rand.Next(10,360)
Dim lb As WinForm.Label = Forms("Main").Controls("Label1")
lb.Text = val3
Dim p As WinForm.Painter = Forms("main").Controls("Painter1")
Dim g As Graphics = p.Graphics
Dim pn As New Pen(Color.Red,5)
g.DrawEllipse(Pens.green,10,10,100,100)
g.DrawEllipse(Pens.green, 0,0,120,120)
'DrawArc(pen,x,y,width,height,startAngle,sweepAngle)
Dim startAngle,sweepAngle As Integer
'绘制一个弧形,从45度角开始,幅度为180度
'sweepAngle = 180
g.DrawArc(pn,5,5,110,110,-90,val3 )
p.Repaint()
内圈弧形不能跟随val3值变小而填充红色变小 ，是哪里有问题？
加好友 
发短信
Post By：2018/2/7 10:02:00 [显示全部帖子]
