地图显示出来了，可是如何实现放大、缩小、平移、选择功能呢？100分

Question

我采用mapinfo professional 在vb中调用ole对象显示地图，可以显示了，但是如何放大等操作呀

Answer 1

你在地图上放几个radio box,用下面的代码
Private Sub R_Move_Click()
    '平移工具
    oMap.runmenucommand M_TOOLS_RECENTER
End SubPrivate Sub R_Select_Click(Index As Integer)
    '选择工具
    oMap.runmenucommand M_TOOLS_SELECTOR
End SubPrivate Sub R_ZoomIn_Click(Index As Integer)
    '放大工具
    oMap.runmenucommand M_TOOLS_EXPAND
End SubPrivate Sub R_ZoomOut_Click()
    '缩小工具
    oMap.runmenucommand M_TOOLS_SHRINK
End Sub
很简单吧，哈哈，程序肯定出错

Answer 2

因为你没有定义M_TOOLS_SHRINK等参数，应该定义一下
Global Const M_TOOLS_SELECTOR = 1701
Global Const M_TOOLS_EXPAND = 1705
Global Const M_TOOLS_SHRINK = 1706
Global Const M_TOOLS_RECENTER = 1702
赶快试试