通过控制...

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传递对象本身呢？

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

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函数<但我现在拿到了。谢谢！