。。

第18卷　第3期　　　　　　　　　河　北　建　筑　科　技　学　院　学　报　　　　　　　　　Vol118　No132001年9月　　　　　Journal　of　Hebei　Institute　of　Architectural　Science　and　Technology　　　　　Sep12001文章编号:1007-6743(2001)03-0048-04

VisualBasic610在地理信息系统二次开发中的应用

赵连柱,孙亚军,杨国勇

(中国矿业大学资源与地球科学学院,江苏徐州221008)

摘要:,统MapInfo二次开发中的应用,,并给出了开发实例。

关键词:;MapInfo;VB;MapBasic

中图分类号:文献标识码:A

0前言

随着地理信息系统技术的不断发展,各种商品化地理信息系统软件的应用范围越来越广,MapInfo510因其具有强大的图形和属性数据库操作功能、友好的Windows界面,其用户越来越多,但不同专业部门有自己的特殊要求,并且单纯的用MapBasic编程有许多缺点,如复杂工程计算、多用户系统、网络问题等,而编程语言VisualBasic610可以很好的解决这些问题,如何在MapInfo系统的基础上进行二次开发建立应用系统成为MapInfo用户的研究热点。本文阐述了VB610编程语言进行MapInfo系统二次开发的一般步骤和方法。

1VB610对MapInfo系统二次开发的一般步骤

111创建全局对象变量

首先在全局变量声明区声明一对象变量,然后在子程序段用VisualBasic语言的函数CreateObject

()建立一对象变量,在子程序段内建立可以用该对象的Do方法调用MapBasic语句,其运行情况就像在MapBasic窗口中键入MapBasic语句一样。

VB610对MapInfo系统二次开发的步骤如图1所示。

112从MapInfo系统获取数据

要获取MapBasic表达式的值,首先构造一字符串来代表

该表达式,例如,如果要判断MapBasic函数WindowID(0)所

…… 此处隐藏0字 ……

返回的函数值,用VisualBasic语句构造一字符串Msg=

“WindowID(0)”,如果用OLEAutomation方式连接MapInfo,用

对象的Eval方法。

113定位MapInfo窗口

在连接MapInfo系统后,使用MapBasic语句SetApplication

Window,这样MapInfo的对话框和错误消息窗口可以为用户系统所拥有。使用SetNextDocument语句把收稿日期:2001-04-11

作者简介:赵连柱(1976-),男,河北保定人,硕士,GIS地学环境应用.