context.vb

来自「苏金明编写的《用VB.NET和VC#.NET开发交互式CAD系统》一书的源代码」· VB 代码 · 共 16 行

Public Class Context
    Dim drawer As DrawCircle

    Public Sub SetCPCircle(ByVal circle As CPCircle)
        drawer = circle
    End Sub

    Public Sub SetThreePCircle(ByVal circle As ThreePCircle)
        drawer = circle
    End Sub

    Public Sub Draw(ByVal g As Graphics)
        drawer.Draw(g)
    End Sub
End Class