二次发帮助手册.docVIP

  1. 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  4. 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  5. 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  6. 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  7. 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
二次发帮助手册

iVPro 二次开发帮助手册 北京东方道迩信息技术有限责任公司 2008年1 目 录 1 接口简介 1 2 COM介绍 1 2.1 什么是COM 1 2.2 COM组件 1 2.3 为什么要介绍COM 1 3 VB入门基础 2 4 C#入门基础 5 5 脚本语言编程入门 9 6 互联网许可服务如何使用 19 7 互联网许可与web应用程序如何分开部署 21 1 接口简介 VPro API提供了一套强大的接口用来集成VPro和用户自定义应用。它提供了一些访问外部信息扩展的方法,比如:访问数据库或基础地理空间数据。所有这些以COM协议为基础的API接口都可以通过脚本语言操作(例如vbscript、Javascript),也可以通过非脚本语言来控制操作(例如:C++、VB、delphi或者.net)。 VPro也提供了一套ActiveX控件,可将3D窗口、信息树和导航图以控件对象的方式嵌入到用户自定义的可视化界面中。COM介绍 2.1 什么是COM COM是Microsoft组件对象模型(Component Object Model)的简称。 COM是一个说明如何建立可动态交替更新组件的规范。它提供了客户和组件为保证能够互操作应该遵循的标准。该标准对于组件架构的重要性同其他任何一个具有可交替更新部分的系统是一样的。举个例子,如果没有国家标准(GB),那么各个厂家所生产的零件及产品将不能实现互换性。各个厂家各自为政,若电机上的螺栓坏了,就要买原来厂家生产的螺栓,相当不方便。 2.2 COM组件 COM组件由以Win 32动态连接库(DLL)或可执行文件(EXE)形式发布的可执行代码所组成。遵循COM规范编写出来的组件将能够满足对组件架构的所有要求。 那么,COM组件有什么好处呢?它到底是什么东西呢? 2.3 为什么要介绍COM 作为传统软件的应用程序在发行之后,使用者要想省略掉其中的某些内容,或者感觉应用程序的某些部分还不够完善,希望得到更好的版本,只有等到软件发行商将新版本重新全部编译并推出后,使用者的这一梦想才能实现。这是传统软件的典型发行方式。但是,这却严重妨碍了软件使用人员的工作效率,使得使用者想做某件事,而软件却没有相应的实现部分。这使得软件的使用范围大幅度缩小,同时也使得商家频于软件升级方面的应酬,而实际上应用程序的开发进度却丝毫得不到加快。 但是,自从COM出现以后,以上问题就基本上迎刃而解了。 有了COM,软件开发人员就可以在应用程序发行后仍可以对它进行修改或给它加上一些新的特性,这大大方便了使用者,因为应用程序能够在更高的程度上被定制,使应用更加灵活、更具动态性。于是,将可能出现这样的情况:每个使用者都在使用相同的软件,而实际上每个使用者的软件却大相径庭。软件开发人员可以用逐步添加的方式开发程序,而不是每隔一两年将其完全重写一遍,这又在很大程度上加快了应用程序的开发进度。 VB入门基础 1)新建工程 图1 新建工程 2)选择部件,添加引用控件,有两种方式: 《1》在工程菜单中选择部件 《2》在工具面板鼠标右键,在弹出的快捷菜单中选择部件 图2 添加部件 3)将控件拖放到设计窗口上 图3 嵌入控件 4)代码示例 Dim WithEvents TE As VExplorer Dim IiVExplorer As IiVExplorer5 Dim IPlane As IPlane5 Dim IRender As IRender5 Dim MouseMode As Boolean Private Sub Form_Load() Set TE = New iVExplorer Set IiVExplorer = TE Set IPlane = TE Set IRender = TE IiVExplorer.Load (c:\default.fly) End Sub Private Sub Command1_Click() MouseMode = True IRender.SetMouseInputMode 1 End Sub Private Sub Command2_Click() IRender.SetMouseInputMode 0 MouseMode = False End Sub Private Sub TE_OnLButtonDown(ByVal Flags As Long, ByVal X As Long, ByVal Y As Long, pbHandled As Variant) If MouseMode = False Then Exit Sub ObjType = 63 IRender.ScreenToWorld X, Y,

文档评论(0)

fangsheke66 + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档