لرزش زیاد فرم

[Reza,M]

با سلام
نمیدونم چرا تو این برنامه وقتی برای فرم BackgroundImage میزارم لرزش زیاد داره؟

[فرید نجفلو]

دوست عزیز یه Picturebox به فرم اضافه و کد رو به صورت زیر تغییر بدید

Public Class Form1
Dim g As Graphics
Dim x As Integer

Private Sub Createshape()
Me.Refresh()
x -= 15
g.FillEllipse(Brushes.White, x, 100, 50, 50)
If (x <= 0) Then
x = Me.Width
End If
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Call Createshape()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
PictureBox1.Dock = DockStyle.Fill
Me.PictureBox1.Image = Me.BackgroundImage
g = PictureBox1.CreateGraphics
Timer1.Enabled = True
End Sub
End Class