mygraphic.vb

一个lbm的程序

Public Class MyGraphic
    Public iinterval As Int32 = interval
    Private nn As Int32 = interval
    Friend originSize As New Size()

    Protected Overrides Sub Finalize()
        MyBase.Finalize()
    End Sub

    Private Sub PicBox_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PicBox.Paint
        If candraw = True Then
            Dim i, j As Int32
            For i = 0 To m
                For j = 0 To n
                    If flag(i, j) >= CONST_INTERFACE Then
                        field(i, j).drawMe(e.Graphics, i, j)
                    End If
                Next
            Next
        End If
    End Sub

    Friend Sub reDraw(ByVal num As Int32)
        If num >= nn Then
            Me.PicBox.Refresh()
            nn += iinterval
        End If
    End Sub

    Public Sub New()
        Dim xr, yz
        InitializeComponent()
        Me.originSize = Me.PicBox.Size
        Me.TopMost = True
        xr = (m + 1) / Me.originSize.Width
        yz = (n + 1) / xr
        Me.Height = yz + 70
        'Me.CreateGraphics.ScaleTransform(1 / xr, 1 / xr)
    End Sub

End Class