Columbia 发表于 2004-6-29 11:39:52

通过控制...

好的,下面是我的下一个问题…
如何将表单控件对象传递给处理函数
我有一个组合列表控件,我想通过以下函数启用它

Public Function Enable_List(ByRef whichList As ListBox)
    whichList.Enabled = True
    whichList.ForeColor = &H80000008
End Function

现在,在我的表单代码中,我有一个…

...
With UserForm1
    Enable_List (.comboListbox1)
End With
...

然而,当我运行代码时,我不断得到一个对象必需的错误。主要是因为我认为函数调用的参数是获取“”,这是comboList的默认值,而不是comboList控件对象本身。这有意义吗
那么如何让VBA传递对象本身呢?
**** Hidden Message *****

hendie 发表于 2004-6-29 11:47:12

你试过
Public Function Enable_List(whichList As ListBox)
    whichList.Enabled = True
    whichList.ForeColor = &H80000008
End Function


    Enable_List comboListbox1

Columbia 发表于 2004-6-29 12:13:20

谢谢,
这帮我弄明白了。如果我输入的函数正确,也会有帮助。它不起作用,因为我试图用组合框而不是列表框来发送Enable函数<但我现在拿到了。谢谢!
页: [1]
查看完整版本: 通过控制...