Question

VB中已获取屏幕上光标所在位置的三个坐标,如何在屏幕上显示这三个点位的连接线

Private Sub Timer1_Timer()
GetCursorPos p
Text2.Text = p.x
Text3.Text = p.y
Text1.Text = Text1.Text - 1
If Text1.Text = 0 Then
Timer1.Enabled = False
End If
End Sub
Private Sub Timer2_Timer()
GetCursorPos p
Text4.Text = p.x
Text5.Text = p.y
Text1.Text = Text1.Text - 1
If Text1.Text = 0 Then
Timer2.Enabled = False
End If
End Sub
Private Sub Timer3_Timer()
GetCursorPos p
Text6.Text = p.x
Text7.Text = p.y
Text1.Text = Text1.Text - 1
If Text1.Text = 0 Then
Timer3.Enabled = False
End If
End Sub
我不是要获取坐标值，我是要把已经获取的三个屏幕PX坐标，在点击Command后自动在屏幕上显示出三点的连线，就像屏幕画笔一样可以显示出来。
例如原题上的几个数值的坐标，第一个坐标的X，Y（text2,text3）,第二个坐标的X，Y（text4,text5），第三个坐标的X，Y(text6,text7),文本框中的数值我已经在倒计时结束时自动获取了，关键我怎么让这几个点位在点击Command后在屏幕上显示出连线（不是在窗体From上显示）。

Answer 1

放三个文本框，text1你输入文字，text2,text3显示坐标: Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Text2.Text = X '横坐标 Text3.Text = Y '纵坐标 End Sub

追问

我不是要获取坐标值，我是要把已经获取的三个屏幕PX坐标，在点击Command后自动在屏幕上显示出三点的连线，就像屏幕画笔一样可以显示出来。
例如原题上的几个数值的坐标，第一个坐标的X，Y（text2,text3）,第二个坐标的X，Y（text4,text5），第三个坐标的X，Y(text6,text7),文本框中的数值我已经在倒计时结束时自动获取了，关键我怎么让这几个点位在点击Command后在屏幕上显示出连线（不是在窗体From上显示）。