|
分類:[VB.NET/VB2005 以降]
こんにちは。 今Form上に直接描写を行っています。 然し、結構な量を描写しているため、ちらつきが発生します。 ListBoxの様な場合はBegin/EndUpdateで出来るのですが、Formには其れがありません。 どのようにすればよいのかご教授願います。
---Code--- Private Sub TestForm2_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
Dim g As Graphics = Me.CreateGraphics For i As Integer = 1 To 20 For j As Integer = 1 To 15 g.DrawImage(My.Resources.Image, i * 32, j * 32) Next Next End Sub ---/Code--- VB2008EE
|