[求助]【AE 3D分析 开发+.net】代码实现AxToolbarControl里面内置的功能

<P>求实现AxToolbarControl里面内置的功能的代码</P>
<P>我想重新设计toolbar，不喜欢原有的图标</P>
<P>或者提供下解决方法</P><img src="images/post/smile/dvbbs/em12.gif" />

<P>ITool举例：</P>
<P>Dim pCommand As ICommand  '''应该也可以定义为IToool接口吧</P>
<P>            Case "放大"<BR>                pCommand = New ControlsMapZoomInTool<BR>            Case "缩小"<BR>                pCommand = New ControlsMapZoomOutTool<BR>            Case "拖动"<BR>                pCommand = New ControlsMapPanTool<BR>            Case "旋转地图"<BR>                pCommand = New ControlsMapRotateTool<BR>            Case "拖拽缩放"<BR>                pCommand = New ControlsMapZoomPanTool<BR>            Case "选取要素"<BR>                pCommand = New ControlsSelectFeaturesTool</P>
<P>......</P>
<P>        pCommand.OnCreate(m_pMapControl)<BR>        If pCommand.Enabled = True Then<BR>            If Not m_pMapControl.CurrentTool Is Nothing Then<BR>                Release(m_pMapControl.CurrentTool)<BR>            End If<BR>            m_pMapControl.CurrentTool = pCommand<BR>        End If</P>

<P>使用ITool和ICommand接口：</P>
<P>ICommand举例：</P>
<P>Dim pCommand As ICommand</P>
<P>            Case "中心放大"<BR>                pCommand = New ControlsMapZoomInFixedCommand<BR>            Case "中心缩小"<BR>                pCommand = New ControlsMapZoomOutFixedCommand<BR>            Case "后退"<BR>                pCommand = New ControlsMapZoomToLastExtentBackCommand<BR>            Case "前进"<BR>                pCommand = New ControlsMapZoomToLastExtentForwardCommand<BR>            Case "全图显示"<BR>                pCommand = New ControlsMapFullExtentCommand<BR>            Case "刷新视图"<BR>                pCommand = New ControlsMapRefreshViewCommand</P>
<P>......</P>

<P>        pCommand.OnCreate(m_pMapControl.Object)<BR>        pCommand.OnClick()</P>

我也很需要阿 麻烦斑竹帮帮忙 大虾救援一下啊