picturebox问题

2011-04-05 11:32:12 104 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

房产平台系统小程序源码 🏠 一键解锁购房新体验 🔓房产小程序实现前端发布二手房租房商品求租求购等信息；后台发布新房，二手房租房商品写字楼求租求购等房源信息；功能完善的一块房产小程序。阅读详情

我在picturebox里画图,每0.5秒画一次,怎么图片老是闪烁呢?

'根据数组画图

    Private Sub drawELS(ByVal x As Integer, ByVal y As Integer, ByVal s As Integer, ByVal z As Integer, ByVal a As Integer)

        Dim picGraphics As System.Drawing.Graphics

        Dim gr As New Bitmap(PictureBox1.Width, PictureBox1.Height)

        Dim sizeFK1 As Integer = 30

        picGraphics = Graphics.FromImage(gr)

        Dim i As Integer, j As Integer

        Dim x1, y1 As Integer

        For i = 0 To 18

            For j = 1 To 12

                If myFK.elsFKsuzu2(i, j) + myFK.elsFKsuzu(i, j) = 1 Then

                    x1 = (j - 1) * 30

                    y1 = i * 30

                    picGraphics.FillRectangle(myBrush, New Rectangle(x1, y1, sizeFK1, sizeFK1))

                    picGraphics.DrawLine(myFK.myFKforeC, x1, y1, x1 + sizeFK1, y1)

                    picGraphics.DrawLine(myFK.myFKforeC, x1 + sizeFK1, y1, x1 + sizeFK1, y1 + sizeFK1)

                    picGraphics.DrawLine(myFK.myFKforeC, x1, y1, x1, y1 + sizeFK1)

                    picGraphics.DrawLine(myFK.myFKforeC, x1, y1 + sizeFK1, x1 + sizeFK1, y1 + sizeFK1)

                End If

            Next

        Next

        Dim gg As Graphics

        gg = PictureBox1.CreateGraphics

        gg.Clear(Color.Black)

        gg.SmoothingMode = Drawing2D.SmoothingMode.Default

        gg.DrawImage(gr, 0, 0)

        myBrush.Dispose()

        picGraphics.Dispose()



    End Sub