Работа с PictureBox - VB

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

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

Есть задачка... я строю определенный график, вывожу текст и прочую фигню на ПикчерБокс... после этого делаю что бы в комбинации MousDown & MouseUp этот график перестраиваясь - перемещался (тем самым я эмитирую перемещение мышой самого объекта пикчер... - так как это мне не нужно) Но есть вопрос - я делаю MouseDown в точке на пикчере и тяну в сторону мышу - хотелось бы что бы от этой тояки и к курсору мыши тянулась указующая линия. Показывая в какое место переместится точка после отпускания мыши. Я ресую линию, но так как нереально строить график каждый раз и рисовать на нем новую линию по событию MouseMov - как тут быть? А то у меня по движению мыши строятся очень красивые но не исчезающие линии - а надо что бы график оставался а линия от точки и до курсора перерисовывалась по движению мыши...

Решение задачи: «Работа с PictureBox»

textual
Листинг программы
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Line1.X1 = X
    Line1.Y1 = Y
    Line1.X2 = X
    Line1.Y2 = Y
    Line1.Visible = True
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Line1.X2 = X
    Line1.Y2 = Y
End Sub
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Line1.Visible = False
End Sub

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


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

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

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