.NET C＃/ VB.NET如何從模塊訪問表單控件

Question

這聽起來像是愚蠢的問題。

我該怎么做。

Module Misc
    Public Sub WriteLog(ByVal txt As String)
        Form1.TextBox3.Text += txt + vbNewLine
    End Sub
End Module

這是在與Form1類分開的Module內部的，正如您可以立即看到的，它不是類，並且沒有對Form1的引用。 這將用於整個程序中的諸如線程功能和輔助功能之類的目的。

Answer 1

如果不引用該類的實例，則無法直接訪問該類。 您最好的選擇可能是這樣的：

Module Module1
    Private m_MyForm As Form1
    Public ReadOnly Property MyForm() As Form1
        Get
            If IsNothing(m_MyForm) Then m_MyForm = New Form1
            Return m_MyForm
        End Get
    End Property
    Public Sub WriteLog(ByVal txt As String)
        MyForm.TextBox3.Text += txt + vbNewLine
    End Sub
End Module

現在，您可以在應用程序中的任何位置使用Module1.MyForm訪問Form1。

注意：這將限制您只有一個Form1實例，該實例將一直保留到應用程序退出。