Графика Исчезают панели на прокрутке

Question

У меня есть код

Private Sub PictureBox1_Paint(sender As Object, e As PaintEventArgs) Handles PictureBox1.Paint 

    Using myPen As New Pen(Drawing.Color.BurlyWood, 6) 


     If upTimer.Enabled = True Then 

      e.Graphics.DrawLine(myPen, x1, y1, x1, y2) 

     End If 
     If leftTimer.Enabled = True Then 
      e.Graphics.DrawLine(myPen, x1, y1, x2, y1) 
     End If 
     If rightTimer.Enabled = True Then 
      e.Graphics.DrawLine(myPen, x1, y1, x2, y1) 
     End If 
     If downTimer.Enabled = True Then 

      e.Graphics.DrawLine(myPen, x1, y1, x1, y2) 
     End If 
    End Using 
End Sub 

Где x1, y1, x2 и y2 являются initalized к нулю в Form_Load.

Таймеры код являются:

Private Sub upTimer_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick 

    y2 = y2 + 5 

End Sub 
Private Sub leftTimer_Tick(sender As Object, e As EventArgs) Handles leftTimer.Tick 
    x2 = x2 - 5 

End Sub 
Private Sub rightTimer_Tick(sender As Object, e As EventArgs) Handles rightTimer.Tick 

    x2 = x2 + 5 
End Sub 
Private Sub downTimer_Tick(sender As Object, e As EventArgs) Handles downTimer.Tick 

    y2 = y2 - 5 
End Sub 

Я четыре кнопки, чтобы включить эти четыре timers.Now проблема заключается в том, что, когда я автоматически прокручивать PictureBox, содержащийся в панели или вручную рисунки получить disappeared.How может Я избегаю этого?

Answer 1

Попробуйте с этим обходным путем:

Private Sub Panel1_Scroll(sender As Object, e As ScrollEventArgs) Handles Panel1.Scroll 
    PictureBox1.Refresh() 
End Sub 

Но при прокрутке панели, то PictureBox должен обновиться. Я попробовал это с помощью простого теста: я добавил глобальную переменную «count» в событии «paint» в окне изображения, после чего я добавил +1 к переменной «count» и напечатал это значение (от события рисования) до метки в форма. Счетчик должен включать каждый свиток.