转至繁体中文版　　　  | 网站首页 | 图文教程 | 资源下载 | 站长博客 | 图片素材 | 武汉seo | 武汉网站优化 | 
最新公告：     敏韬网|教学资源学习资料永久免费分享站！  [mintao  2008年9月2日]        
您现在的位置： 学习笔记 >> 图文教程 >> 软件开发 >> VB.NET程序 >> 正文
VB与MapInfo的集成    热     ★★★★

VB与MapInfo的集成

作者：闵涛 文章来源：闵涛的学习笔记 点击数：867 更新时间：2009/4/23 15:37:17
1客户/服务器方式
客户／服务器方式指客户机运行用户服务请求程序，并将这些请求传送给服务器，服务器管理数据资源，响应处理客户机发出的请求，并将结果传送给客户机。服务器被程序化，可接受并响应同时来自被连接客户机的多个请求。这些请求可能排队，按次序等待服务；或者同时处理几个客户机的请求。客户机向服务器发送请求之后，客户端程序将独立工作，直到它需要来自服务器端的支持为止。
VB与MapInfo都支持OLE Automation方式。OLE Automation方式，实际是一种编程接口，通过它应用程序可以访问在另一个应用程序中实现的对象，提供编程对象给其他应用程序的称“服务器”，访问这些对象的应用程序称“客户机”。这里利用OLE Automation方式，在VB应用程序中将MapInfo作为一个对象来使用，编程调用MapInfo对象，实现对交通线路信息的集成。
2 VB与MapInfo的接口
在VB应用程序里实现对另一个应用程序（MapInfo）的访问，利用前面所提到的OLE Automation技术，把MapInfo作为服务器，VB应用程序作为客户机，可以无缝地实现集成MapInfo对象于VB应用程序中。
具体实现步骤如下：
(1)首先定义两个对象：MapInfo与theResponde，即在程序里添加两行：
Public MapInfo As Object ''''*创立指向MapInfo的对象
Public theResponder As Object ''''*创立本地对象，MapInfo将把信息返回给它
(2) 然后再添加一个子程序InitializeMapInfoConnection（），用于实现同MapInfo的通信。该子程序在后台创立一个用于通信的MapInfo实例；一个本地在此VB应用程序的类MIResponder的对象的实例，即用于接受MapInfo返回应用程序信息的实例。
具体程序如下：
Public Sub InitializeMapInfoConnection()
On Error GoTo userCancelled
Set MapInfo = CreateObject("MapInfo.Application") ''''*创立MapInfo对象
MapInfo.do "Set Application Window " & Mapwin.hwnd
MapInfo.do "Set Window Info Parent " & Mapwin.hwnd
Set theResponder = New MIResponder ''''*创立theResponde对象
MapInfo.SetCallback theResponder
MapInfo.do "Run Application " + """" + WORKDIR + "\getarea.mbx" + """"
MapInfo.do "Create Menu ""MapperShortcut"" ID 17 As "&"""" + "前一视图"_ + """" + " ID 1002 Calling 806, " & """" + "改变视图" + """" + " ID 1002 Calling_ 805"
……
thereIsAMap = False ''''*初始化，表示没有地图窗口
mapWinID = 0 ''''*表示没有窗口
MapInfo.runmenucommand M_TOOLS_SELECTOR ''''*激活MapInfo的选择工具
Exit Sub
userCancelled:
MsgBox "系统初始化失败，请查看 MAPINFO 是否正确安装！"
End
(3) 现在MapInfo已成为VB应用程序的一个对象，因此可调用MapInfo对象的方法及设置其属性来实现对地图的复杂操作。
具体程序（略）


没有相关教程
教程录入：mintao    责任编辑：mintao 
  • 上一篇教程：

  • 下一篇教程：
    • 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】
    　 注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]
    　　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）
    同类栏目
    · C语言系列  · VB.NET程序
    · JAVA开发  · Delphi程序
    · 脚本语言
    更多内容
    热门推荐 更多内容
  • 没有教程
    		•
    赞助链接
    更多内容
    闵涛博文 更多关于武汉SEO的内容
    500 - 内部服务器错误。

    500 - 内部服务器错误。

    您查找的资源存在问题，因而无法显示。
    | 设为首页 |加入收藏 | 联系站长 | 友情链接 | 版权申明 | 广告服务
    MinTao学以致用网

    Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
    闵涛 投放广告、内容合作请Q我! E_mail:admin@mintao.net(欢迎提供学习资源)

    站长：MinTao ICP备案号：鄂ICP备11006601号-18

    闵涛站盟:医药大全-武穴网。A打造B、C、D……
    		咸宁网络警察报警平台