添加全局功能

时间:2009-11-16 13:10:55

标签: vb.net

我正在尝试添加新的全局函数

我这样做:

  

函数MessageYNC()As String

     

{        返回“dd”;   }

     

结束功能

     

Public Class SatelliteAPI

     

结束班

但我收到错误 - >语句在命名空间中无效。 在第一行

知道出了什么问题吗?

2 个答案:

答案 0 :(得分:7)


Public Class SatelliteAPI
Public Shared Function MessageYNC() As String
        Return "dd"
    End Function
End Class 'SatelliteAPI

Public Class TestClass
    Public Sub TestMessageMethod()
        Console.WriteLine(SatelliteAPI.MessageYNC)
    End Sub
End Class 'TestClass

答案 1 :(得分:2)

将函数放入类或模块中。如果你把它放到课堂上,你需要把它Shared。所以它要么

Module MyFunctions
    Function MessageYNC() As String
        Return "dd"
    End Function
End Module

Public Class SatelliteAPI
    Shared Function MessageYNC() As String
        Return "dd"
    End Function
End Class

在这种情况下,您可以StaelliteAPI.MessageYNC访问它。