实例030 类的共享方法

Module Module1
    Public Class Position
        Public Function SetLevel(ByVal strValue As String) As Boolean
            Console.WriteLine("一般方法")
            Console.WriteLine(strValue, MsgBoxStyle.Information, "SetLevel 设定等级")
            Return True
        End Function

        Public Shared Function SetPosition(ByVal strValue As String) As Boolean
            Console.WriteLine("共享方法")
            Console.WriteLine(strValue, MsgBoxStyle.Information, "SetPosition 设定等级")
            Return True
        End Function
    End Class

    Sub Main()
        Dim strBln As Boolean
        strBln = Position.SetPosition("Position SetPosition")
        Console.WriteLine(strBln)

        Dim pos As New Position
        strBln = pos.SetLevel("Pos SetLevel")
        Console.WriteLine(strBln)

        Console.Read()

    End Sub

End Module