【求助】请问如何判断一个窗口中是否存在超链接或者命令按钮？
判断其中一个也可以
超链接就检测不了了，但命令按钮就可以:
Dim obj As Object, bNoButton As Boolean
On Error Resume Next
For Each obj In Me.Controls
obj.Cancel = obj.Cancel
If Err.Number = 0 Then ' 没有发生错误，则该控件为命令按钮
MsgBox "该窗口存在命令按钮。"
Else
bNoButton = True
End If
Next
If bNoButton Then
MsgBox "该窗口没有任何命令按钮!"
End If
[此贴子已经被作者于2006-9-2 1:27:02编辑过]