把需要传入窗体的参数设为Object,然后可以调用窗体的属性(当传入的参数是窗体时): Public Sub SetForm(pForm As Object) If TypeName(pForm)="Form" '判断pForm类型是否为Form pForm.Caption="可以传递窗体" End If End Sub
把需要传入窗体的参数设为Object,然后可以调用窗体的属性或公有成员(当传入的参数是窗体时): Public Sub SetForm(pForm As Object) If TypeName(pForm)="Form" '判断pForm类型是否为Form pForm.Caption="可以传递窗体" pForm.TextBox1.Caption="可以控制公有数据成员 End If End Sub
Public Sub SetForm(pForm As Object)
If TypeName(pForm)="Form" '判断pForm类型是否为Form
pForm.Caption="可以传递窗体"
End If
End Sub
Public Sub SetForm(pForm As Object)
If TypeName(pForm)="Form" '判断pForm类型是否为Form
pForm.Caption="可以传递窗体"
pForm.TextBox1.Caption="可以控制公有数据成员
End If
End Sub