Рисование линии на PictureBox с помощью мыши - VB

Узнай цену своей работы

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

Помогите составить пожалуйста!=)Заранее благодарен!! Составить программу решения задачи. Форма содержит элемент PictureBox. По нажатию левой кнопки мыши в PictureBox ставится точка. По «отжатию» ставится вторая точка и проводится линия. Необходимо на рисунке обозначить середину отрезка. Вывести дополнительно координаты концов отрезка и его середины.

Решение задачи: «Рисование линии на PictureBox с помощью мыши»

textual
Листинг программы
Option Explicit
Dim x0!, y0!
 
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
x0 = X
y0 = Y
End Sub
 
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.DrawWidth = 3
Picture1.PSet (x0, y0), vbRed
Picture1.Print x0; y0
 
Picture1.PSet (X, Y), vbRed
Picture1.Print X; Y
 
Picture1.PSet ((X + x0) / 2, (Y + y0) / 2), vbRed
Picture1.Print (X + x0) / 2; (Y + y0) / 2
 
Picture1.DrawWidth = 1
Picture1.Line (x0, y0)-(X, Y), 0
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 4 из 5
Похожие ответы