Microsoft VBScript 运行时错误(0x800A01B6)-->对象不支持此属性或方法怎么解决,急去、需答案

并非所有对象都支持所有属性和方法。此错误有以下原因和解决方法：

1.指定的方法或属性在 Automation 对象中并不存在。
参看对象的文档以获得此对象更多的信息，并检查属性和方法的拼写应正确。

2.指定 Friend 过程做为被调用的后期绑定。
在编译时间必须知道 Friend 过程的名称，它不能出现在后期绑定的调用上。

========================
参考资料MSDN
关于对象和接口的简要补充讨论

本主题，将完成从“创建和实现接口”开始，并在“实现属性”中继续讨论的那个代码示例。当然，在开始这个主题之前，阅读一下那些主题是有帮助的。

这个 Tyrannosaur 和 Flea 代码示例，看起来似乎用接口和对象来解决很快，也很轻松。把对象的引用赋给一个对象变量，把接口的引用赋给另一个对象变量。

事实上，所有的引用都是对象的引用。对一个接口的引用也是对实现接口的对象的引用。而且，一个对象可能有多个接口，但在底层它仍然是同一对象。

在 Visual Basic 中，每个类都有一个缺省的接口，该接口具有与类相同的名字。是的，几乎都是同样的。按照惯例，在类名前加一条下划线。该下划线指明了这个接口是隐藏在类型库里的。

这样，Tyrannosaur 类就有一个缺省名为 _Tyrannosaur 的接口。因为 Tyrannosaur 同时实现 Animal，所以该类还有第二个接口（其名为 Animal）。

不过，在它的所有底层，对象仍然是 Tyrannosaur。将一个命令按钮放置到“Form1”上，并添加下面的代码：

Private Sub Command1_Click()
Dim ty As Tyrannosaur
Dim anim As Animal

Set ty = New Tyrannosaur
Set anim = ty
MsgBox TypeName(anim)
End Sub