将表单名称传递给模块中的函数

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集合，允许您通过多态性的魔力访问您的控件。