Перерисовка, Refresh(),Invalidate()

[percilacus]

Здравствуйте!
Не могу разрешить одну досадную проблему
Составил код для рисования линий мышкой на форме. Идея такова, что когда мышка двигается над формой, срабатывает MouseMove и координаты e.X e.Y становятся концом линии, а перед этим событием MouseDown устанавливаются координаты начала линии.
При каждом наступлении события MouseMove требуется перерисовка. Но вот здесь гемор. Ни Refresh ни Invalidate не помогают и картинка страшным образом мерцает и пропадает.
Помогите.

[Williams]

перерисовывать надо в событии Paint

[MIT]

Всю динамическую графику надо рисовать в буфер, в OnPaint`е же только рендерить буфер на форму.
От мерцания тебя спасет процедура SetStyle контрола, на котором рисуешь (или формы), с набором параметров, равным примерно такому: ControlStyles.AllPaintingInWmPaint, ControlStyles.UserPaint и ControlStyles.OptimizedDoubleBuffer. Ну и ControlStyles.Opaque, если надо.

[percilacus]

MIT, можно поподробнее. Какой буфер, это класс, модуль? Если модуль какое пространство имен, чтобы о нем я мог прочитать.

[Williams]

MIT, можно поподробнее. Какой буфер, это класс, модуль? Если модуль какое пространство имен, чтобы о нем я мог прочитать.

Буфер это буфер.
Объект, в котором ты хранишь свою графику. А это может быть Bitmap, стрим, массив байт.

[MIT]

Какой буфер, это класс, модуль?

В самом простом случае можно использовать связку объекта Bitmap и класса Graphics. Для рендеринга можно юзать DrawImageUnscaled.

[percilacus]

Ничего не получается.
Короче, вот код:

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

Imports System.Drawing.Drawing2D
Public Class Form1
    Dim Gr As Graphics = Me.CreateGraphics
    Dim pen1 As New Pen(Color.Blue, 20)
    Dim thecol As New Collection
    Dim grpath As New GraphicsPath
    Dim last_point As New PointF(Single.NaN, Single.NaN)
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        pen1.MiterLimit = 1.5
    End Sub
    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        Select Case e.Button
            Case Windows.Forms.MouseButtons.Left
                If Not Single.IsNaN(last_point.X) Then
                    grpath.AddLine(last_point, New PointF(e.X, e.Y))
                End If
                last_point = New PointF(e.X, e.Y)
            Case Windows.Forms.MouseButtons.Right
                If grpath.PointCount <> 0 Then
                    thecol.Add(grpath)
                    grpath = New GraphicsPath
                End If
                last_point = New PointF(Single.NaN, Single.NaN)
                Invalidate()
        End Select
    End Sub
    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        If Not Single.IsNaN(last_point.X) Then
            Dim temp_grpath As GraphicsPath = grpath.Clone
            temp_grpath.AddLine(last_point, New PointF(e.X, e.Y))
            Gr.DrawPath(pen1, temp_grpath)
            Invalidate()
        End If
    End Sub
    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        For Each obj As GraphicsPath In thecol
            Gr.DrawPath(pen1, obj)
        Next
    End Sub
End Class


Не могу избавиться от мерцания.
Если у кого есть желание посмотрите на досуге. Задача очень интересная и очень важная. Иначе какое нормальное приложение можно вообразить с таким мерцанием, непонятно.

[percilacus]

Немного уменьшил мерцание введя в тело процедуры статик переменную, тем самым пореже вызывая злополучный Invalidate

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

    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        Static i As Integer : i += 1 : If i > 5 Then i = 0
        If Not Single.IsNaN(last_point.X) Then
            Dim temp_grpath As GraphicsPath = grpath.Clone
            temp_grpath.AddLine(last_point, New PointF(e.X, e.Y))
            Gr.DrawPath(pen1, temp_grpath)
            If i=5 Then Invalidate()
        End If
    End Sub


Как же тогда, скажем, в AutoCad e не мерцает совсем? Пусть он сделан не на бейсике, но способ значит имеется! А потому и в бейсике должен иметься

[MIT]

Я тебе выше писал что надо сделать, что бы избавиться от мерцания, зачем ерундой заниматься?

[Alec]

А зачем прорисовывать все? Мерцание возникает из-за стирания области прорисовки. Попробуй объявлять при MouseMove недействительной только ту область, которая изменилась, ну и соответственно прорисовывать только ее.

[Dmitry81]

Никто и не говорит, что надо перерисовывать. РИСУЕМ на Bitmape, который переменная (ну или буфер). А в конце отображем его на нужном контроле. И мерцания не будет.
А вот если рисовать НЕПОСРЕДСТВЕННО на контроле, то тогда жди безбожных тормозов.

[MIT]

тогда жди безбожных тормозов

Если руки прямые, то ни единого тормоза не будет (если речь не идет про реалтайм-блюр или что-то подобное).

И мерцания не будет

Да ну да прям?

[Dmitry81]

Или вот: левой кнопкой назначаем стартовую точку, удерживая правую - рисуем веера.

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

Public Class Form1
    Dim P1 As Point
    Dim P2 As Point
    Dim pen As New Pen(Color.Black, 1)
    Dim MyGrafix As System.Drawing.Graphics = Me.CreateGraphics
    Private Sub Form1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Left Then
            P1.X = e.X
            P1.Y = e.Y
        End If
    End Sub

    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        If e.Button = Windows.Forms.MouseButtons.Right Then
            P2.X = e.X
            P2.Y = e.Y
            MyGrafix.DrawLine(Me.pen, Me.P1, P2)
        End If
    End Sub
End Class

Или еще: рисует как карандаш в Пейнте.

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

Public Class Form1
    Dim P1 As Point
    Dim P2 As Point
    Dim pen As New Pen(Color.Black, 1)
    Dim MyGrafix As System.Drawing.Graphics = Me.CreateGraphics
    Private Sub Form1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
        P1.X = e.X
        P1.Y = e.Y
    End Sub

    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        If e.Button = Windows.Forms.MouseButtons.Left Then
            P2.X = e.X
            P2.Y = e.Y
            Me.MyGrafix.DrawLine(Me.pen, P1, P2)
            P1 = P2
        End If
    End Sub
End Class

И заметьте - НИКАКИХ тормозов.

[MIT]

Я, конечно, извиняюсь, но это ерунда, а не код. Для кого (и для чего) тогда придумали OnPaint?

[Joo]

Я, конечно, извиняюсь, но это ерунда, а не код. Для кого (и для чего) тогда придумали OnPaint?

Как ни странно это код причем нормально работающий, я лично в данном случае поступил так-же, ну или почти так-же )

[MIT]

Нормально? А что будет при обновлении окна (и без мышедвижений)?
Да и использование Me.CreateGraphics довольно непредсказуемая затея.

[Dmitry81]

Нормальная затея. И потом, я что, должен был за 5 минут выложить готовый на 100% кусок кода, а еще лучше такой себе универсальный модуль... Я дал информацию к размышлению. К тому же код действительно работает, а уж обновление формы (после ее сворачивания, перекрытия чем-то иным...) можно и самому прикрутить.

[MIT]

Да делай как хочешь, зачем делать как полагается, когда всегда есть вариант "через задницу"
Все, я ушел.

[Dmitry81]

Ну так покажи, КАК полагается!

[Nord777]

Да и использование Me.CreateGraphics довольно непредсказуемая затея.

И чем же, по твоему, она непредсказуема?

[percilacus]

Я тебе выше писал что надо сделать, что бы избавиться от мерцания, зачем ерундой заниматься?

Ну пробовал я и двойную буферизацию хот я в ней и ничего не понимаю, и Control.SetStyle со всеми его пришлепками как ты указывал, но ничего не получается. Если сможешь, исправь код и выложи работающий и будет тебе счастье