无限循环对象创建

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

它

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