寻找对角线上的一个点时，我有起点和线

Question

嗨的终点正在寻找一些帮助

我有我的论坛图片框画出对角线，我需要知道如果用户点击了线

我开始点和线的终点和鼠标x，y位置

所以我基本上需要找出如果X，鼠标的y为上该线。

任何人都可以帮忙吗？

由于

Answer 1

实施例：行开始点（A）为（0，0），结束点（B）是（10,5）。因此 斜率线的是：

m(slope) = (y2 - y1)/(x2 - x1) 
     = (5 - 0)/(10 - 0) 
     = 5/10 
     = 0.5 

要检查是否您的点（x，y）的（C）是上线就必须有从A-> C和C->乙相同的斜率。所以再次进行相同的计算。说点是（4，2）

m(AC) = (2 - 0)/(4 - 0) 
     = 2/4 
     = 0.5 

m(CB) = (5 - 2)/(10 - 4) 
     = 3/6 
     = 0.5 

因此，这一点将在AB线上。

如果点为（20，10）

m(AC) = (10 - 0)/(20 - 0) 
     = 10/20 
     = 0.5 

然而：

m(CB) = (5 - 10)/(10 - 20) 
     = -5/-10 
     = -0.5 

类似地，如果点是（2,2）

m(AC) = (2 - 0)/(2 - 0) 
     = 2/2 
     = 1 

m(CB) = (5 - 2)/(10 - 2) 
     = 3/8 
     = 0.375 

所以对于一个点是在线上m(AB) == m(AC) == m(CB)

由于您可能无法获取小数值，因此您可能需要一些解决方法才能执行，并且您的线条宽度可能超过一个像素，但这些基本原则应该会引导您完成。

Answer 2

给定两点，（2,4）和（-1，-2）确定线的斜率截距形式。

1. Determine the slope 

y1-y2 4-(-2) 6 
----- = ------= --- = 2 = M 
x1-x2 2-(-1) 3 


2. To slope intercept form using one of the original points and slope from above. 

(y - y1) = m(x - x1) 

(y - 4) = 2(x - 2) 

y - 4 = 2x - 4 

y = 2x + 0 (0 is y intercept) 

y = 2x (y = 2x + 0) is in slope intercept form 


3. To determine if a point lies on the line, plug and chug with the new point. 

    new point (1,2) does y = 2x? 2 = 2(1) = true so (1,2) is on the line. 
    new point (2,2) does y = 2x? 2 = 2(2) = false so (2,2) is not on the line. 

在你原来的问题中你说过的路线，但我认为你可能是指线段。如果您的意思是后者，您还需要验证新的x和y是否位于给定段的范围内。

该代码将是这个样子

Dim pta As Point = New Point(2, 4) 
    Dim ptb As Point = New Point(-1, -2) 

    Dim M As Double 
    If pta.X - ptb.X <> 0 Then 
     M = (pta.Y - ptb.Y)/(pta.X - ptb.X) 
    End If 

    '(y - pta.y) = M(x - pta.x) 
    'y - pta.y = Mx - m(pta.x) 
    'y = Mx - M(pta.x) + pta.y 

    Dim yIntercept As Double = (-M * pta.X) + pta.Y 

    Dim ptN1 As Point = New Point(1, 2) 
    Dim ptN2 As Point = New Point(2, 2) 

    If ptN1.Y = (M * (ptN1.X)) + yIntercept Then 
     Stop 
    Else 
     Stop 
    End If 

    If ptN2.Y = (M * (ptN2.X)) + yIntercept Then 
     Stop 
    Else 
     Stop 
    End If