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

[haogong]

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

[abc10]

好久没用过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

[Quady515]

呵呵,没用过MAPINFO,了解了解.

[ligis]

下面去以前做的饿一个在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 "

[ligis]

上次敲的太粗心了，自己也看不下去，再写一遍
“下面是以前做的一个在PICTURE上显示的例子！”

[ligis]

做OLE的自动化MapInfo ，推荐RUNTIME

[haogong]

非常感谢几位的热心帮忙。

[online]

可以用mapx