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