gdi.vb

来自「一个.Net下用VB编写的用于游戏的人工智能引擎」· VB 代码 · 共 25 行

Public Class Gdi
    Public Shared Sub ClosedShape(ByVal g As Graphics, ByVal p As Pen, ByVal v As ArrayList)
        Dim i As Integer
        Dim v1, v2 As Vector2D
        v1 = v(0)
        For i = 0 To v.Count - 1
            v2 = v(i)
            g.DrawLine(p, CSng(v1.x), CSng(v1.y), CSng(v2.x), CSng(v2.y))
            v1 = v(i)
        Next
        v1 = v(0)
        g.DrawLine(p, CSng(v1.x), CSng(v1.y), CSng(v2.x), CSng(v2.y))
    End Sub

    Public Shared Sub Circle(ByVal g As Graphics, ByVal p As Pen, ByVal pos As Vector2D, ByVal radius As Double)
        g.DrawEllipse(p, CSng(pos.x - radius), CSng(pos.y - radius), CSng(2 * radius), CSng(2 * radius))
    End Sub

    Public Shared Sub Circle(ByVal g As Graphics, ByVal p As Pen, ByVal x As Double, ByVal y As Double, ByVal radius As Double)
        g.DrawEllipse(p, CSng(x - radius), CSng(y - radius), CSng(2 * radius), CSng(2 * radius))

    End Sub

End Class