无限循环对象创建

Question

我创建了一个在多个方法中使用的对象，因此需要在类级别声明它。但是该对象是该类的对象。那么运行和无限循环？我怎么能绕过这个？

Public Class Reader
Dim ofd As OpenFileDialog = New OpenFileDialog()
Dim reador1 As reader = New Reader
Private Sub btnFileLocator1_Click(sender As Object, e As EventArgs) Handles btnFileLocator.Click

Answer 1

如果我理解您的问题，使用Shared（静态）引用该类可以解决您的问题。

Public Class Cls
    Protected Shared _instance As New Cls

End Class

它由类的所有实例共享（包括它自己），所以它只构造一次。