如何在函数中传递控件对象

[高原山顶的大风车]

如何

LoadMarry me,txtmarry

Public Sub LoadMarry(ByRef objfrm As Object, ByRef objCob As Object)
Dim tmp_str As String
objfrm.objCob.Clear ''提示错误，
objfrm.txtMarry.Clear ''这样写正确
objfrm.objCob.ListIndex = 0
End Sub

[junki]

'改一下,不要传递窗体对象了，因为控件默认就从属窗体的子对象
LoadMarry txtmarry

Public Sub LoadMarry(ByRef objCob As Object)
objCob.Clear
objCob.ListIndex = 0
End Sub

[东方之珠]

学习