vb中如何让一条线绕其中一端旋转
展开全部
Private Sub Form_Load() Line1.X1 = 1080 Line1.Y1 = 600 Line1.X2 = 1800 Line1.Y2 = 1200 End Sub Private Sub HScroll1_Change() Dim c, y, w As Long Line1.X1 = HScroll1.Value y = HScroll1.Value w = Val(y * y) Line1.Y1 = Sqr(1600 - w) End Sub 大概就这，但还有些问题解决不了，你试试
求采纳
求采纳
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
