关于AE＋vb：toolbarcontrol的工具项问题？

<P>请问总统</P>
<P>我在添加toolbarcontrol的功能项的时候，我添加成功了，我的界面中有mapcontrol和pagelayoutcontrol两个控件，程序运行时，只有mapcontrol控件添加的功能可以用，mapcontrol和pagelayoutcontrol两个控件两个控件我是用tabstrip来控制显示的，主窗口代码如下：代码如下：<BR>Private Sub Form_Load()<BR>On Error GoTo Handler<BR>  <BR>  'Create a new AoInitialize object<BR>  Set m_pAoInitialize = New AoInitialize<BR>  If m_pAoInitialize Is Nothing Then<BR>    MsgBox "不能初始化。程序无法运行！"<BR>    Unload frmmain<BR>    Exit Sub<BR>  End If<BR>  'Determine if the product is available<BR>  If m_pAoInitialize.IsProductCodeAvailable(esriLicenseProductCodeEngine) = esriLicenseAvailable Then<BR>    If m_pAoInitialize.Initialize(esriLicenseProductCodeEngine) <> esriLicenseCheckedOut Then<BR>      MsgBox "初始化失败。程序无法运行！"<BR>      Unload frmmain<BR>      Exit Sub<BR>    End If<BR>  Else<BR>    MsgBox "ArcGIS Engine 产品无效。程序无法运行！"<BR>    Unload frmmain<BR>    Exit Sub<BR>  End If<BR>  <BR> AddToolItems.AddItem frmmain '一个添加工具项的对象添加工具项</P>
<P>   '设置tabstrip_main的标题属性<BR>  TabStrip_main.Tabs(1).Caption = "数据窗口"<BR>  TabStrip_main.Tabs.Add 2, , "布局窗口"<BR>  Set TabStrip_main.SelectedItem = TabStrip_main.Tabs(1)<BR>  <BR>   'Set buddy controls<BR>  TOCControl1.SetBuddyControl frmmain.MapControl1<BR>  ToolbarControl1.SetBuddyControl frmmain.MapControl1<BR>  <BR>  Exit Sub<BR>Handler:<BR>  MsgBox Err.Description, vbCritical<BR>End Sub</P>
<P>以下是一个类模块：</P>
<P>Public Sub AddItem(frmAI As Form)<BR>    Dim sProgID As String<BR>    <BR>    'Add generic commands<BR>    sProgID = "esriControlTools.ControlsOpenDocCommand"<BR>    frmAI.ToolbarControl1.AddItem sProgID, , , False, , esriCommandStyleIconOnly<BR>    <BR>    'Add PageLayout navigation commands<BR>    sProgID = "esriControlTools.ControlsPageZoomInTool"<BR>    frmAI.ToolbarControl1.AddItem sProgID, , , True, , esriCommandStyleIconOnly<BR>    sProgID = "esriControlTools.ControlsPageZoomOutTool"<BR>    frmAI.ToolbarControl1.AddItem sProgID, , , False, , esriCommandStyleIconOnly<BR>    sProgID = "esriControlTools.ControlsPagePanTool"<BR>    frmAI.ToolbarControl1.AddItem sProgID, , , False, , esriCommandStyleIconOnly<BR>    sProgID = "esriControlTools.ControlsPageZoomWholePageCommand"<BR>    frmAI.ToolbarControl1.AddItem sProgID, , , False, , esriCommandStyleIconOnly<BR>    sProgID = "esriControlTools.ControlsPageZoomPageToLastExtentBackCommand"<BR>    frmAI.ToolbarControl1.AddItem sProgID, , , False, , esriCommandStyleIconOnly<BR>    sProgID = "esriControlTools.ControlsPageZoomPageToLastExtentForwardCommand"<BR>    frmAI.ToolbarControl1.AddItem sProgID, , , False, , esriCommandStyleIconOnly<BR>    <BR>     'Add Map naviagtion commands<BR>    sProgID = "esriControlTools.ControlsMapZoomInTool"<BR>    frmAI.ToolbarControl1.AddItem sProgID, , , True, , esriCommandStyleIconOnly<BR>    sProgID = "esriControlTools.ControlsMapZoomOutTool"<BR>    frmAI.ToolbarControl1.AddItem sProgID, , , False, , esriCommandStyleIconOnly<BR>    sProgID = "esriControlTools.ControlsMapPanTool"<BR>    frmAI.ToolbarControl1.AddItem sProgID, , , False, , esriCommandStyleIconOnly<BR>    sProgID = "esriControlTools.ControlsMapFullExtentCommand"<BR>    frmAI.ToolbarControl1.AddItem sProgID, , , False, , esriCommandStyleIconOnly<BR>    sProgID = "esriControlTools.ControlsMapZoomToLastExtentBackCommand"<BR>    frmAI.ToolbarControl1.AddItem sProgID, , , False, , esriCommandStyleIconOnly<BR>    sProgID = "esriControlTools.ControlsMapZoomToLastExtentForwardCommand"<BR>    frmAI.ToolbarControl1.AddItem sProgID, , , False, , esriCommandStyleIconOnly<BR>    sProgID = "esriControlTools.ControlsZoomToSelectedCommand"<BR>    frmAI.ToolbarControl1.AddItem sProgID, , , False, , esriCommandStyleIconOnly<BR>    sProgID = "esriControlTools.ControlsSelectTool"<BR>    frmAI.ToolbarControl1.AddItem sProgID, , , False, , esriCommandStyleIconOnly</P>
<P>   <BR>End Sub</P>

<P>因为工具和地图是用setbuddy来设置关联的，你可以用两个toolbar分别关联你的mapcontrol和pagelayerout控件了</P>

同意总统，如果用一个toolbar在tabstrip变换事件中分别设置与mapcontrol、pagelayerout关联，而不是用两个toolbar，不知道可行不？

<P>我也想像楼上的这位一样实现，不知道能不能，怎样实现？</P>

Private Sub TabStrip1_Click()<BR>    Select Case TabStrip1.SelectedItem.Index<BR>      Case 1:<BR>        ToolBarControl1.SetBuddyControl MapControl1<BR>        PageLayOutControl1.Visible = False<BR>      Case 2:<BR>        ToolBarControl1.SetBuddyControl PageLayOutControl1<BR>        MapControl1.Visible = False<BR>    End Select<BR>End Sub<BR>

谢谢好心人！