Vb.Net CA1822

Question

我运行了代码分析，并收到以下消息：

警告5 CA1822：Microsoft.Performance：从不使用“ MainForm.CheckFileIfFileIsInUse（String）”的“ this”参数（在Visual Basic中为“ Me”）。 将成员标记为静态成员（或在Visual Basic中为Shared），或者在方法主体或至少一个属性访问器中使用“ this” /“ Me”（如果适用）。 D：\\ WORK \\ Update \\ Update \\ MainForm.vb

我不确定我是否理解。 这是它所指的行：

Dim testfile As String = thefilename & ".tst"

就是说它从未被使用过，但在接下来的一行中，我有以下内容：

If IO.File.Exists(testfile) Then
    IO.File.Delete(testfile)
End If

所以我知道它正在被使用。 我在两个地方都收到相同的消息，但我不明白为什么它说从未使用过。

帮助一个困惑的新手找到路：P

像往常一样感谢Eroc

Answer 1

它只是向您显示该方法的第一行-该行的内容并不重要。 关键是该方法在任何地方都不使用Me引用，因此您可以将其声明为Shared方法。

换句话说，代替：

Sub CheckFileIfFileIsInUse(ByVal thefilename as String)
    Dim testfile As String = thefilename & ".tst"
    If IO.File.Exists(testfile) Then
        IO.File.Delete(testfile)
    End If
End Sub

有：

Shared Sub CheckFileIfFileIsInUse(ByVal thefilename as String)
    Dim testfile As String = thefilename & ".tst"
    If IO.File.Exists(testfile) Then
        IO.File.Delete(testfile)
    End If
End Sub

Answer 2

该消息引用了整个方法CheckFileIfFileIsInUse 。 它告诉您该方法中没有任何东西可以访问类的实例成员，因此您最好声明方法Shared 。

Shared Sub CheckFileIfFileIsInUse(ByVal thefilename as String)

Answer 3

将您的方法CheckFileIfFileIsInUse声明为共享。 与其声明一个新的方法实例，不如直接引用它。

Use This
MyClass.CheckfileIfFileisInUser(filename)

代替

 Dim newclass as Myclass
 newclass.CheckfileIfFileisInUser(filename)

Answer 4

该错误表明您不需要类的实例（您的表单）即可使用方法CheckFileIfFileIsInUse