Question

VB已经绘制一条直线，怎么使这条直线绕原点旋转一定角度

在VB中，我画出了如下直线：
For xian = -100 To 100 Step 25
Picture1.Line (-Sqr(10000 - xian * xian), xian)-(Sqr(10000 - xian * xian), xian), vbBlack
next
现在我想这条直线绕（0，0）点旋转一定角度，求助如何处理？谢谢回答~
怎么没有人回答啊？！各位大神帮忙啊~

Answer 1

旋转角度知道的话，那就计算出来旋转后的直线坐标，然后在重新画线

追问

能帮帮忙吗？旋转角你设置成angle就可以了 需要旋转多少 到时候用文本框提取！谢谢了，确实不会这个，已经严重影响到直线工期了·····

追答

那你能把你画的这个图的整个代码给我吗，就是这个图片的，我好接着写。