AO对象的使用

AO对象的使用
让我们直接用AO相关的代码来开始这段旅程吧，如果你觉得的是的话。：）
Dim pMap as IMap
Set pMap = New Map
PMap.name =”地图名称为-Tour”
…………………….
…………………….
Pmap.ClearLayers
Pmap.Clear //ERROR
如何运行这段代码是下一章的内容，先看看为什么代码会这么写吧，里面奥妙不少。
Dim pMap as Imap
我们知道在COM中对对象的访问是通过接口来完成，因此不能象许多可视化控件那样，可以直接通过其名称来调用属性或执行其方法。那么这句其实就是定义了一个接口变量（题外注释：其实准确地讲应该是一个指向接口的指针变量才对，好在VB把这一切都给演示了）。有了这个接口变量还不行，因为接口是定义在对象上的，那么下来的步骤应该是产生一个对象，而对象又是从那里来的呢---类。
于是就有了这样的代码Set pMap = New Map。
在这句中不单纯只是实例化出一个Map对象，并且将上句的pMap接口变量做为了该对象的缺省接口。OK，现在我们就可以通过这个接口来对地图名进行修改，或者调用ClearLayer方法来删除掉该地图中的所有图层了。再看看增加最后一句的执行情况―会出错，至于为什么，原因很简单，不同的接口中的方法或属性只能通过其接口来访问，而Clear方法属于Map类的另外一个接口IactiveView所有。可以通过查询接口（Query Interface）来’切换‘到IactiveView上。代码如下
Dim mView as IactiveView
set mview=pmap
mview.clear