如果要判断一个按钮是否存在怎么写?

[李赞红]

如果要判断一个按钮是否存在怎么写?这个按钮是动态生成的.

[conghui]

dim i as integer
For i = 0 To Me.Count - 1
If TypeOf Me.Controls(i) Is CommandButton Then
MsgBox "存在"
End If
Next i

[cfan246]

learned

[kimurakenshin]

学习……

[boydgmx]

Dim ctl As Control
For Each ctl In Me.Controls.Count
If (TypeOf ctl Is CommandButton) And (ctl.Name = "Command1") Then
MsgBox "按钮Command1存在"
End If
Next

[boydgmx]

不好意思，写错了，使用For Each的使用不能再用Count属性，正确如下：
Dim ctl As Control
For Each ctl In Me.Controls
If (TypeOf ctl Is CommandButton) And (ctl.Name = "Command1") Then
MsgBox "按钮Command1存在"
End If
Next

[boydgmx]

lxcc(虫莲)
Private Sub Command2_Click()
If TypeName(Me.Controls("command1")) = "CommandButton" Then
MsgBox "存在"
End If
End Sub
------------------------
这种写法如果不存在，则会保错！！还不如遍历之。

[z_yanjie]

Dim ctl As Control
For Each ctl In Me.Controls
If (TypeOf ctl Is CommandButton) And (ctl.Name = "Command1") Then
MsgBox "按钮Command1存在"
End If
Next

[射天狼]

Dim ctl As Control

For Each ctl In Controls
MsgBox ctl.Name
Next

[lxcc]

Private Sub Command2_Click()
If TypeName(Me.Controls("command1")) = "CommandButton" Then
MsgBox "存在"
End If
End Sub

[planetike]

Dim ctl As Control
For Each ctl In Me.Controls
If (TypeOf ctl Is CommandButton) And (ctl.Name = "Command1") Then
MsgBox "按钮Command1存在"
End If
Next
正解

[lxcc]

sorry!
boydgmx(梦霄)兄弟说的对！

还是遍历比较可靠