文件名称:mapinfo与vb 的结合
文件大小:1.26MB
文件格式:DOC
更新时间:2012-08-29 14:14:38
MapInfo vb
Private sub Command1.Click() Set MapInfo = CreateObject("MapInfo.Application") MapInfo.Do "Set Application Window" & MDIForm1.hwnd MapInfo.Do ("Set Next Document Parent" & Picture1.hwnd&"Style 1") MapInfo.Do ("Run Application"""+"D:\GIS\fsgis\线路分布图.WOR"+""" ") End Sub 在Form2窗体中集成MapInfo的浏览窗口,程序如下: Private sub Command1.Click() Set MapInfo = CreateObject("MapInfo.Application") MapInfo.Do "Set Window Statistics Parent" & Form2.hwnd MapInfo. RunMenuCommand 607 End sub