请教, 怎么用OLE的自动化功能加载 MapInfo 的地图窗口?

haogong 2003-05-13 04:15:32
Dim mapinfo As Object

Private Sub Form_Load()
Set mapinfo = CreateObject("mapinfo.application")
mapinfo.do "set application window " & Form1.hWnd

mapinfo.do "set next Document parent " & Form1.hWnd & "style 1 "
mapinfo.do "open table " & "world " & "interactive map from world "
//上面这句编译时通不过,问正确的语法应怎么写?world 是在 MapInfo 目录下存在的一个表

mapinfo.runmentcommand 1702
mapinfo.do "creat menu" & "mappershortcut" & "ID 17 AS" & "(-" & " "

End Sub
...全文
34 点赞 收藏 7
写回复
7 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
online 2003-05-15
可以用mapx
回复
haogong 2003-05-15
非常感谢几位的热心帮忙。
回复
ligis 2003-05-13
做OLE的自动化MapInfo ,推荐RUNTIME
回复
ligis 2003-05-13
上次敲的太粗心了,自己也看不下去,再写一遍
“下面是以前做的一个在PICTURE上显示的例子!”
回复
ligis 2003-05-13
下面去以前做的饿一个在PICTURE上显示的例子!
1.启动 mapinfo
Set mapinfo = CreateObject("MapInfo.Application")

On Error GoTo cant_createRuntimeObject
Set mapinfo = CreateObject("MapInfo.Runtime")
2.打开工作空间、打开表
mapinfo.Do "Set Application Window " & Picture1.hwnd
mapinfo.Do "Set Next Document Parent " & Picture1.hwnd & " Style 1"
mapinfo.Do "Run Application " & Chr(34) & App.Path & "\地区地图.wor" & Chr(34)
mapinfo.Do "open table ""crater.tab"" interactive "
回复
Quady515 2003-05-13
呵呵,没用过MAPINFO,了解了解.
回复
abc10 2003-05-13
好久没用过VB&mapinfo了,你可以在form1控件中加一个picture控件,然后反你的图加到picture控件上去。假设该控件名称为mappic,建议你将world加上路径,我以前的代码如下,但我的mapinfo已删了,不知能用否,你试试:
MapInfo.Do "Set Application Window " & form1.hwnd
Set MapInfo = CreateObject("MapInfo.Application")
MapInfo.Do "Open Table" & """" & "c:\tab1.tab" & """" & "Interactive "
MapInfo.Do "Open Table" & """" & "c:\tab2.tab" & """" & "Interactive "
MapInfo.Do "Set Next Document Parent " & form1.mappic.hwnd & " Style 1"
MapInfo.Do "Map from tab1,tab2"
MapInfo.Do "Set Map Display Position"
form1.Show
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7489

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2003-05-13 04:15
社区公告
暂无公告