Графический редактор

[DiSe]

Я делаю графический редактор. Как и в PAINT-е, здесь есть стандартные инструменты. Меня интересует инструмент "Линия". Я делал его с помощью LINE. После нажатия на кнопку мыши и перетаскивания курсора в процедуре MouseMoove надо показать где находится линия. Я делаю так:
'''''''
Public cX, cY
''''''
Private Sub Shape_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
cX = X
cY = Y
End Sub
'''''''
Private Sub Shape_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Shape.Line (X, Y)-(cX, cY)
Sleep (2)
DoEvents
Shape.Line (X, Y)-(cX, cY)
End Sub
'''''''
Private Sub Shape_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Shape.Line (cX, cY)-(X, Y)
End Sub

Shape - это PictureBox
Вся проблема в том, что таким способом происходит затерание остального рисунка.
Как сделать эту "Линию" Нужна помощь.

[Urvin]

А ты заметил, что при двигании мышью ты постоянно по два раза рисуешь линии?
А вообще, твой вопрос не очень понятен!

[GoGosha]

Вставляешь элемент управления Line и двигаешь его, когда не надо делаешь Line1.Visible = False
Или можешь залить рисунок в переменную типа IPictureDisp и оттуда в пикчебокс колбасить

[Aquarius]

Вставляешь элемент управления Line и двигаешь его, когда не надо делаешь Line1.Visible = False
Или можешь залить рисунок в переменную типа IPictureDisp и оттуда в пикчебокс колбасить

какая не эстетичная идея.

Мой вариант.

Создаешь внеэкранный буфер на котором будет твоя картинка. Во время рисования, Через определенные промежутки времени, флипаешь ее на экран. Так как ты знаешь тип и координаты фигуры которую рисует пользователь, то сразу посли флипации можно показать положение рисуемого объекта.

Проблема лишь в том что все это тебует знаний WinAPI, а их я тебе (если у тебя самого их нет) уже дать не в состоянии.

[Mikle]

А по-моему двигать по форме компоненту Line вполне эстетично, и API трогать не нужно.

[GoGosha]

Вставляешь элемент управления Line и двигаешь его, когда не надо делаешь Line1.Visible = False
Или можешь залить рисунок в переменную типа IPictureDisp и оттуда в пикчебокс колбасить

какая не эстетичная идея.

Мой вариант.

Создаешь внеэкранный буфер на котором будет твоя картинка. Во время рисования, Через определенные промежутки времени, флипаешь ее на экран. Так как ты знаешь тип и координаты фигуры которую рисует пользователь, то сразу посли флипации можно показать положение рисуемого объекта.

Проблема лишь в том что все это тебует знаний WinAPI, а их я тебе (если у тебя самого их нет) уже дать не в состоянии.

Переменная IPictureDisp - это вообще-то и есть внеэкранный буфер.

[GoGosha]

На пример:

чистая форма с AutoRedraw = true

Код: Выделить всё

Dim pict As IPictureDisp
Dim x1 As Long, y1 As Long

Private Sub Form_Load()
    Line (0, 0)-(100, 100)
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    x1 = X
    y1 = Y
    Set pict = Me.Image
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbLeftButton Then
        Set Me.Picture = pict
        Line (x1, y1)-(X, Y)
    End If
End Sub