这个函数错在哪里?

kelind

窗体上有好几个下拉列表, 不想每个都写代码使其自动展开.编一函数,结果错了:

Function ctro()

Dim ctl As Control

For Each ctl In Me.Controls

Select Case ctl.Controlstype

Case acCombox

If ctl.SetFocus Then

ctl.Dropdown

End If

End Select

Next

End Function

指出是:SetFocus错了,不知怎么改错.

wu8313

If ctl.SetFocus Then  改成 if crl.getfocus then 试试。

tmtony

改为if me.activecontrol.Controlstype =acCombox then

me.activecontrol.dropdown

end if

wu8313

不好意思，我说错了。

setfocus是一个方法，并不是一个变量或者表达式的值，或者某个属性值，不能作为条件来判断的。

我原本是想用getfocus事件来解决问题，没想到看到站长tmtony的帖子，才感觉自己误导了楼主，抱歉！

[此贴子已经被作者于2005-6-2 22:36:26编辑过]

tmtony

是的,setfocus是一个方法,不是属性值. 不过,有心帮人者, 已是好人 能敢于认错,几为圣人

不过,正如你所说,这个函数是需要在gotfocus或enter事件运行的