MapInfo.Do ″Set Application Window″ & Form2.Picture1.hwnd

　　MapInfo.Do″Set Next Document Parent″ & Form2.Picture1.hwnd & ″Style 1″

　　在地图窗口嵌入后,应用程序还可以象对待正常窗口一样对其进行放大、缩小和移动操作。同样的方法也可以用来嵌入MapInfo系统所能提供的其他窗口,如图例窗口、布局窗口、信息窗口和数据浏览窗口等。

在进行一些比较复杂的地理信息操作时,仅仅使用Do方法一条条地发送MapBasic指令显然是不方便的,应当采用编写Mapbasic程序的方式处理,并把执行结果返回给应用程序。这样能够避免在应用程序和MapInfo系统之间过于频繁的数据交换,从而节省了系统资源、提高了运行效率。调用MapBasic程序的代码如下:

　　MapBasic.Do ″Run Application″ & Mbfilename

　　要实现对MapBasic程序的控制并从中获取数据,可以使用MBApplications对象集合。把MBApplications称作对象集合是因为它代表了当前所有在MapInfo系统中运行的MapBasic程序。与Application对象的使用方法相同,我们首先要创建MBApplications对象,然后再访问其属性和方法。如果要访问一个具体的MapBasic程序对象,可以在集合对象后加上序号来指定。下面的代码通过访问MBApplication对象集合把当前正在运行的所有MapBasic程序名称返回给数组Mbfilename():

　　Dim MbApplist As Object

　　Set MbApplist=MapInfo.MBApplications

　　i=1

　　Do While i <=MbApplist.Count

　　Mbfilename(i)=MbApplist(i).Name

　　i=i+1

　　Loop

　　MBApplications对象集合的属性是只读的,其值不能由应用程序改变。如果要对某一MapBaisc程序对象进行控制,必须使用其Do方法。MapBasic程序对Do方法的响应是通过执行RemoteMsgHandler()过程来完成的。在Do方法被调用时,MapInfo会自动执行指定程序的RemoteMsgHandler()过程,这时可以用CommandInfo()函数来获得Do方法的调用参数,加以判断后再转到相应的执行代码。类似的,要从MapBasic程序中返回数据可以使用其Eval方法,而程序返回什么值由其RemoteQueryHandler()函数中的代码决定。对于在MapBasic程序中使用的公共变量,应用程序也可以通过MBGlobals对象集合来直接访问。比如要将序号为1的MapBasic程序中的公共变量global1的值加1,可以使用下面的代码:

　　Dim globinfo As Object， Oldval As Integer

　　Set globinfo = Mapinfo.MBApplications(1).MBGlobals

　　Oldval = globinfo(″global1″).Value

　　globinfo(″global1″).Value = Oldval + 1

　　通过OLE自动化技术,应用程序可以使用MapInfo系统几乎所有的功能。不过,由于采用了客户机/服务器的运行模式,在OLE自动化方式下应用程序总是处于绝对主动的地位,而MapInfo系统只能作为被动的服务提供方。这样在实际应用中,一些需要由MapInfo主动提供信息的情况就变得很难处理了。因此仅使用OLE自动化技术还不能完全满足应用需要,必须用其他方法来补充其功能。采用下面要介绍的CallBack(回应)方法可以很好地解决这一问题。

3 回应方法

　　为完成某些功能,有时我们要允许用户对以自动化方式嵌入应用程序中的MapInfo系统进行直接操作。比如,用户可能想通过用鼠标点击图形对象的方式来查看与之相关的信息,或者是要在地图窗口中绘制一个新的图形对象。在这种情况下,应用程序并不知道用户操作事件发生和结束的具体时间,要想及时获得操作信息并作出处理,只能借助直接接受该操作的MapInfo系统的主动通知。这种由自动化服务程序主动通知客户程序用户事件信息的技术就是回应方法。