Программа для рисования линий и создания массивов координат - VB

Формулировка задачи:

Здравствуйте! Помогите сделать кусочек программы. В Internet'е нашел один код, но может он вообще не подходит к этой задаче:
Option Explicit
 
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
                                    X As Single, Y As Single)
If Button = 1 Then Form1.PSet (X, Y)
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, _
                                    X As Single, Y As Single)
If Button = 1 Then Form1.Line -(X, Y), vbBlue
End Sub
Как сделать, что бы рисовать можно было только прямые гор. и верт. линии, желательно с всплывающей подсказкой о ее длине, и что бы потом эта программа каким-нибудь образом создавала 4 массива чисел с координатами этих линий (максимальные и минимальные Х и У). Этот код потом может пригодиться многим таким как я, кто не зная языка программирования пытается сделать программу по расчету здания (или простой конструкции стр. механики) не заморачиваясь с вводом координат элементов. Буду очень признателен за помощь (информацию)!

Код к задаче: «Программа для рисования линий и создания массивов координат - VB»

textual
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.ToolTipText = "X=" & X & "  " & "Y=" & Y
End Sub

8   голосов, оценка 4.125 из 5


СОХРАНИТЬ ССЫЛКУ