basiccell.vb

来自「一个lbm的程序」· VB 代码 · 共 9 行

Public Class BasicCell
    Implements Cell
    Public f(q) As Double

    Public Sub drawMe(ByVal g As Graphics, ByVal x As Single, ByVal y As Single) Implements Cell.drawMe
        g.FillEllipse(Brushes.BlueViolet, 2 * x - 1, 2 * y + 1, 2, 2)
    End Sub
End Class