14
A
回答
6
这是因为它依赖于已经设置为“On错误继续下一步”做一个稍微哈克的方式,但你可以做这样的事情:
On Error Resume Next
Dim objRef1, objRef2
Set objRef1 = GetRef("DoStuff1")
If objRef1 Is Nothing Then
Call objRef1
Else
MsgBox "DoStuff1 is not defined!"
End If
Set objRef2 = GetRef("DoStuff2")
If objRef2 Is Nothing Then
MsgBox "DoStuff2 is not defined!"
Else
Call objRef2
End If
Sub DoStuff1
MsgBox "DoStuff1!"
End Sub
到GetRef呼叫将产生,如果异常你试图得到一个指针的子或函数不存在(DoStuff2就是这种情况)。然后您可以检查参考是否按预期设置。
15
这里是我的解决方案,它在相同的原理工作,但哈克岬是相当自足:
Function FunctionExists(func_name)
FunctionExists = False
On Error Resume Next
Dim f : Set f = GetRef(func_name)
If Err.number = 0 Then
FunctionExists = True
End If
On Error GoTo 0
End Function
相关问题
- 1. 有没有办法来检查NSManagedObject是否被释放?
- 2. 有没有办法来检查变量是否在Java中定义?
- 3. 有没有办法来检查bean是否在spring上下文中定义?
- 4. 有没有办法来检查一个JavaScript函数是否接受回调?
- 5. 有没有办法检查模型字段是否被提取?
- 6. 有没有办法检查RVO是否被应用?
- 7. 有没有办法检查反应组件是否被卸载?
- 8. 有没有办法检查performSelector:withObject:afterDelay:是否已被注册?
- 9. 有没有办法检查符号是否被引用?
- 10. 有没有办法检查链接是否被点击?
- 11. 有没有办法检测对象是否被锁定?
- 12. 有没有办法来检查某个断言是否失败
- 13. 有没有什么办法来检查类的属性在C#
- 14. 有没有办法使用spotify WEB API来检查spotify是否被安装?
- 15. 有什么办法检查数组是否在数组中?
- 16. 有没有办法检测自定义模块是否存在?
- 17. 有没有办法检查RenderScrpt是否正确绑定了rs_allocation?
- 18. 有什么办法检查Silverlight中的DataGrid是否有焦点?
- 19. 有没有办法确定JavaScript函数是否有副作用?
- 20. 有什么办法来检查包含数字的ConstantExpression是否为负数?
- 21. 有没有办法来检查一个本地的JavaScript函数是否被猴子修补?
- 22. 有什么办法来检查4g网络是否稳定在Android上?
- 23. Swift - 有没有办法检查是否使用可变参数?
- 24. 有什么办法来检查类是否在PHP中有属性?
- 25. 有没有办法检查标签是否已经在LaTeX中定义?
- 26. 有没有办法检测一个键是否被按下?
- 27. 有没有办法检测通知栏是否已被清除?
- 28. 有没有办法来检查实体框架是否开始获取数据?
- 29. 有没有办法检查一个函数是否正在jQuery中运行?
- 30. 有没有办法检查函数是否需要返回值时调用
否则你将尝试调用该函数后检查Err.Number的。但是那么你调用的函数可能被定义,被调用,但是成为错误的来源,我猜这不是你想要的。 – Xiaofu 2009-05-28 15:32:26
这是有效的。谢谢! – 2009-05-28 15:36:05