Рисование линии на 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д