如何让一扇形转起来？

来源：百度知道 编辑：UC知道 时间：2024/05/17 12:22:08
要求在picture框的中心（为原点（0，0），坐标系x轴向右，y轴向下），画一扇形，半径r=100,扇形的角度为160度，放一时钟控件，让该扇形每100毫秒逆时针转1度，该怎么编程呢？会的就帮我出出主意吧，谢啦。

Public r
Private Sub Form_Load()
Picture1.Scale (-Picture1.Width / 2, Picture1.Height / 2)-(Picture1.Width / 2, -Picture1.Height / 2)
timer1.interval=100
r = 1600
End Sub

Private Sub Timer1_Timer()
Static angle
angle = angle + 1
Picture1.Cls
Picture1.Line (0, 0)-(r * Cos(angle / 180 * 3.14), r * Sin(angle / 180 * 3.14))
Picture1.Line (0, 0)-(r * Cos((angle + 160) / 180 * 3.14), r * Sin((angle + 160) / 180 * 3.14))
Picture1.Circle (0, 0), r, , angle / 180 * 3.14, (angle + 160) / 180 * 3.14
End Sub