在类模块中可不可以动态为窗体赋值

Question

传入控件名参数，类为控件赋值，可以吗

Answer 1

可以。传参数用 byref 就可以了

Answer 2

类 class1 的过程代码：Sub SetAnyWindowCaption(ByRef objForm As Form, ByVal sTitle As String)
    objForm.Caption = sTitle
End Sub这是窗体中按钮代码：
Private Sub Command1_Click()
    Dim obj As New Class1
    obj.SetAnyWindowCaption Me, "这是类过程改变窗体标题"
End Sub赋值同样操作。比如类过程：
Sub SetTextValue(ByRef objText As TextBox, ByVal sValue As String)
    objText.Text = sValue
End Sub那么只要这样：settextvalue(text1,"这是文本框") 调用就可以了。