垂直的算法

最新推荐文章于 2021-05-17 16:33:47 发布

阿浊

最新推荐文章于 2021-05-17 16:33:47 发布

阅读量1k

点赞数

CC 4.0 BY-SA版权

分类专栏：工作、项目文章标签：算法 integer button

本文链接：https://blog.youkuaiyun.com/anywn1314/article/details/640386

工作、项目专栏收录该内容

32 篇文章

订阅专栏

本文介绍了一个使用VBScript实现鼠标操作绘制动态变化线条的应用案例。通过跟踪鼠标移动来更新线条的位置和方向，该程序展示了如何根据鼠标的当前位置调整线条的长度和角度。此应用适用于初学者了解基本的编程概念及图形操作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

工程中先引用控件 Line1，Line2

Dim ux As Integer
Dim uy As Integer

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ux = X
    uy = Y
    Line1.X1 = X

    Line1.X2 = X

    Line1.Y1 = Y - 300
    Line1.Y2 = Y + 300
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'x的坐标为 sqr(a^2 * ((y2-y1)^2/((y2-y1)^2+(x2-x1)^2)))+x1

    If Button = 1 Then
        Me.Cls
        Line (ux, uy)-(X, Y)

        If X < ux Then
        Line1.X1 = ux + Sqr(300 ^ 2 * ((Y - uy) ^ 2 / ((Y - uy) ^ 2 + (X - ux) ^ 2)))
        Else
        Line1.X1 = ux - Sqr(300 ^ 2 * ((Y - uy) ^ 2 / ((Y - uy) ^ 2 + (X - ux) ^ 2)))
        End If

        If Y > uy Then
        Line1.Y1 = uy + Sqr(300 ^ 2 * ((X - ux) ^ 2 / ((Y - uy) ^ 2 + (X - ux) ^ 2)))
        Else
        Line1.Y1 = uy - Sqr(300 ^ 2 * ((X - ux) ^ 2 / ((Y - uy) ^ 2 + (X - ux) ^ 2)))
        End If

        'Line1.X1 = ux + 300 * Cos(Atn((X - ux) / (uy - Y)))
        'Line1.Y1 = uy + 300 * Sin(Atn(X - ux) / (uy - Y))
        If X > ux Then
        Line1.X2 = ux + Sqr(300 ^ 2 * ((Y - uy) ^ 2 / ((Y - uy) ^ 2 + (X - ux) ^ 2)))
        Else
        Line1.X2 = ux - Sqr(300 ^ 2 * ((Y - uy) ^ 2 / ((Y - uy) ^ 2 + (X - ux) ^ 2)))
        End If

        If Y < uy Then
        Line1.Y2 = uy + Sqr(300 ^ 2 * ((X - ux) ^ 2 / ((Y - uy) ^ 2 + (X - ux) ^ 2)))
        Else
        Line1.Y2 = uy - Sqr(300 ^ 2 * ((X - ux) ^ 2 / ((Y - uy) ^ 2 + (X - ux) ^ 2)))
        End If

        Line2.X1 = Line1.X1 + X - ux
        Line2.Y1 = Line1.Y1 + Y - uy

        Line2.X2 = Line1.X2 + X - ux
        Line2.Y2 = Line1.Y2 + Y - uy
    End If
End Sub