將表單名稱傳遞給模塊中的函數

Question

我需要在模塊的表單上引用文本框。以下工作很好，除了我必須硬編碼表單名稱（frmForm1）。我從幾種形式使用它。我如何使用我發送的表單名稱（Me）？

我打電話的功能，我想發送表單名稱，從我的形式：

ModuleFunction(Me) 

在模塊我有這樣的功能：

Public Function ModuleFunction(ByRef frmFrom As frmForm1) As Boolean 

    frmFrom.txtTextBox1.Text = "something" 
    ...... 

End Function 

Answer 1

解決這個問題，通過使用Controls代替：

Public Function ModuleFunction(ByRef frmFrom As Form) As Boolean 

    frmFrom.Controls("txtTextBox1").Text = "something" 
    ...... 

End Function 

你應該能夠在一個傳遞3210，因爲它繼承自Form。但只要您試圖訪問會員txtTextBox1它不會編譯，因爲Form不知道該特定成員 - 只有它的孩子。但是Form確實有一個包含所有這些控制成員的定義的Controls集合，允許您通過多態性的魔力訪問您的控件。