如何快速定位一控件是否在该窗体存在

[zhufenghappy]

注意，我说的是快速定位，就是不要用下面语句遍历。（比如针对Command1控件）
For Each Control In vform.Controls
if Control.Name=“Command1” then
'操作
end if
next

[Tiger_Zhao]

Dim cmd As CommandButton
On Error Resume Next
Set cmd = Me.Controls("Command1")
On Error GoTo 0
Debug.Print IIf(cmd Is Nothing, "不存在", "存在")

[yangao]

http://www.cnblogs.com/topboy168/archive/2007/07/19/823709.aspx

只想到这种处理方法
不知道有没有更简单的

[zhufenghappy]

刚才一楼说的不错，不知道怎么看不到了，关键是如果带索引呢比如Command1（0），就不对了。
下面是他原话：

VB codeDim cmd As CommandButton
On Error Resume Next
Set cmd = Me.Controls("Command1")
On Error GoTo 0
Debug.Print IIf(cmd Is Nothing, "不存在", "存在")

[zhufenghappy]

呵呵还能看到阿 ，如果带索引怎么解决呢？

[zhufenghappy]

索引问题，二楼以解决，但是代码不直接贴出来不太好，呵呵