□投稿者/ gonna (35回)-(2010/03/16(Tue) 18:12:31)
|
分類:[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
|
|
