Question

vb 绘图 如何使line旋转

我用line命令画了一条直线（0，0）-（0，1000），另外设了一个按钮，请问如何实现，按一次按钮，直线绕（0，0）旋转0.9度。谢谢！！！

Answer 1

这是代码
在窗体上只要加上一个command1就可以了
Dim t As Integer
Private Sub Command1_Click()
t = t + 1
Cls
Line (0, 0)-(1000 * Cos(0.9 * 3.14 / 180 * t), 1000 * Sin(0.9 * 3.14 / 180 * t))
End Sub

Private Sub Form_Load()
Form1.Scale (-1000, 1000)-(1000, -1000)
Line (0, 0)-(0, 1000)
End Sub