函数[function signature]语句在命名空间中无效

Question

在为XP Repair Pro6制作密钥生成器时，我在以下语句中遇到2个错误：

1. TextBox2.Text = Generate(Strings.LCase(TextBox1.Text), Strings.LCase(MD5("xprp6-K0Wc0kf3Wcm5g-FEe43f")))

     

   'MD5'是一种类型，不能用作表达式。

2. Public Shared Function MD5(ByVal InputStr As String) As String

     

   语句在命名空间中无效。

我该如何解决这个问题？

Answer 1

您在命名空间中定义了MD5函数，但该函数无效;函数必须位于Module或Class范围内;它位于命名空间中的模块和类，而不是函数。

换句话说，你有这个：

Namespace Some.Namespace

    Class Foo
        '...code...
    End Class

    Public Shared Function MD5(ByVal InputStr As String) As String
         '...code...
    End Function

End Namespace

你需要这个：

Namespace Some.Namespace

    Class Foo

        '...code...

        Public Shared Function MD5(ByVal InputStr As String) As String
             '...code...
        End Function

    End Class

End Namespace