对不需要初始化的固定函数进行编程

Question

我编写了一个函数来从"xx"中提取收到的令牌："..."格式

Public Class HelperFunctions
Public Function ExtractToken(ByVal myToken As String) As String
'Split fields on comma
Dim fields = myToken.Split(":")
'Quote literal
Dim quote = """"c
'Use trim to remove quotes
Dim value = fields(2).Trim(quote)
Return value
End Function
End Class

但不是初始化函数

Dim hc as New HelperFunctions
hc.ExtractToken(_string)

我想直接使用它

HelperFunctions.ExtractToken(_string)

我已经有一段时间没有编程了，无法弄清楚，也无法想出此类函数的名称来查找教程。

Answer 1

您需要将函数声明为Shared：

Public Class HelperFunctions
Public Shared Function ExtractToken(ByVal myToken As String) As String
'Split fields on comma
Dim fields = myToken.Split(":")
'Quote literal
Dim quote = """"c
'Use trim to remove quotes
Dim value = fields(2).Trim(quote)
Return value
End Function
End Class

或者正如@jmcilhinney所说，您可以使用 Module，并且不需要在其中的方法中使用Shared(您也不能从 Module 创建对象的实例(：

Public Module HelperFunctions
Public Function ExtractToken(ByVal myToken As String) As String
'Split fields on comma
Dim fields = myToken.Split(":")
'Quote literal
Dim quote = """"c
'Use trim to remove quotes
Dim value = fields(2).Trim(quote)
Return value
End Function
End Module