阅读:2482回复:0
[讨论]ArcEngine例子出错?!
我运行\ArcGIS\DeveloperKit\SamplesNET\Engine\ControlsCommandsHookActions\VBNet例子,在下面的代码段中提示出错“未处理的COMException,The supplied command is invalid.……”。<br><br> Private Sub HookActions_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br><br> 'Add generic commands <br> AxToolbarControl1.AddItem("esriControls.ControlsAddDataCommand", 0, -1, False, 0, esriCommandStyles.esriCommandStyleIconOnly)<br> 'Add map navigation commands<br> AxToolbarControl1.AddItem("esriControls.ControlsMapZoomInTool", 0, -1, True, 0, esriCommandStyles.esriCommandStyleIconOnly)<br> AxToolbarControl1.AddItem("esriControls.ControlsMapZoomOutTool", 0, -1, False, 0, esriCommandStyles.esriCommandStyleIconOnly)<br> AxToolbarControl1.AddItem("esriControls.ControlsMapPanTool", 0, -1, False, 0, esriCommandStyles.esriCommandStyleIconOnly)<br> AxToolbarControl1.AddItem("esriControls.ControlsMapFullExtentCommand", 0, -1, False, 0, esriCommandStyles.esriCommandStyleIconOnly)<br> AxToolbarControl1.AddItem("esriControls.ControlsSelectFeaturesTool", 0, -1, False, 0, esriCommandStyles.esriCommandStyleIconOnly)<br> AxToolbarControl1.AddItem("esriControls.ControlsSelectTool", 0, -1, False, 0, esriCommandStyles.esriCommandStyleIconOnly)<br> 'Add globe navigation commands<br> AxToolbarControl1.AddItem("esriControls.ControlsGlobeZoomInOutTool", 0, -1, True, 0, esriCommandStyles.esriCommandStyleIconOnly)<br> AxToolbarControl1.AddItem("esriControls.ControlsGlobePanTool", 0, -1, False, 0, esriCommandStyles.esriCommandStyleIconOnly)<br> AxToolbarControl1.AddItem("esriControls.ControlsGlobeFullExtentCommand", 0, -1, False, 0, esriCommandStyles.esriCommandStyleIconOnly)<br> AxToolbarControl1.AddItem("esriControls.ControlsGlobeSelectFeaturesTool", 0, -1, False, 0, esriCommandStyles.esriCommandStyleIconOnly)<br><br> 'Create menu <br> m_ToolbarMenu = New ToolbarMenuClass()<br> 'Set hook and command pool<br> m_ToolbarMenu.SetHook(AxToolbarControl1)<br> m_ToolbarMenu.CommandPool = AxToolbarControl1.CommandPool<br> 'Add custom commands<br> m_ToolbarMenu.AddItem(New hookActionsPan, 0, -1, False, esriCommandStyles.esriCommandStyleTextOnly)<br> m_ToolbarMenu.AddItem(New hookActionsZoom, 0, -1, False, esriCommandStyles.esriCommandStyleTextOnly)<br> m_ToolbarMenu.AddItem(New hookActionsFlash, 0, -1, True, esriCommandStyles.esriCommandStyleTextOnly)<br> m_ToolbarMenu.AddItem(New hookActionsGraphic, 0, -1, True, esriCommandStyles.esriCommandStyleTextOnly)<br> m_ToolbarMenu.AddItem(New hookActionsLabel, 0, -1, False, esriCommandStyles.esriCommandStyleTextOnly)<br> m_ToolbarMenu.AddItem(New hookActionsCallout, 0, -1, False, esriCommandStyles.esriCommandStyleTextOnly)<br><br> 'Set buddy control<br> AxToolbarControl1.SetBuddyControl(AxMapControl1)<br><br> End Sub<br><br>在 'Add globe navigation commands<br> AxToolbarControl1.AddItem("esriControls.ControlsGlobeZoomInOutTool", 0, -1, True, 0, esriCommandStyles.esriCommandStyleIconOnly)<br>处出错。<br>但是在别的机器上运行却Ok!不知道什么原因?请高手指点。<br>
|
|