菜鸟问题，请教了

[hzh_wolf]

拷过来的SAMPLE，VB调mapinfo（ole automation），涉及到回调，VB偶不熟，文档说要从SUB MAIN启动，我不知道sub main添加在哪里，想必因此出现上述错误。
类模块：class1
Public Sub QueryTool(ByVal CmdStr As String)
' ......
End Sub

标准模块：
Global mi As Object
Global myCallback As Object

窗体模块：
Private Sub Form_Load()
Set mi = CreateObject("MapInfo.Application")
mi.Do "Set Application Window " & Form1.hWnd
Set myCallback = New Class1
mi.SetCallback myCallback
'......
End Sub

[wumy_ld]

没用过mapinfo，帮你顶

[matchchen]

没太看懂。sub main应该是放在标准模块中。

[hzh_wolf]

呵呵，在标准模块中也试过了，好象不是SUB MAIN的问题，

[hzh_wolf]

呵呵，解决问题，把CLASS1的属性一下就行了：）

[chanet]

来晚了... :(

[TechnoFantasy]

回调的使用：
http://www.ccw.com.cn/htm/app/aprog/02_1_15_2.asp