dan800913
路人甲
路人甲
  • 注册日期2005-01-10
  • 发帖数102
  • QQ
  • 铜币617枚
  • 威望0点
  • 贡献值0点
  • 银元0个
阅读:1268回复:3

ae+vbnet编程向axtoolbarcontrol中加载ae提供的globe工具,调试为何没有显示?

楼主#
更多 发布于:2005-09-03 16:28
<P>各位好!</P>
<P>我向axtoolbarcontrol中添加ae中自带的globe工具,是在form_load事件中实现的,代码如下,但是在调试的时候,在axtoolbarcontrol却没有任何工具显示,请大家帮忙!谢谢!</P>
<P>AxToolbarControl1.SetBuddyControl(AxGlobeControl1)<BR>        Dim m_Puid As String </P>
<P>        m_Puid = "ESRI.ArcGIS.GlobeCore.ControlsGlobeOpenDocCommand"<BR>        AxToolbarControl1.AddItem(m_Puid, 0, 0, False, 0, esriCommandStyles.esriCommandStyleIconOnly)<BR>        m_Puid = "esri.ArcGIS.GlobeCore.ControlsGlobeFixedZoomInCommand"<BR>        AxToolbarControl1.AddItem(m_Puid, 0, 1, False, 0, esriCommandStyles.esriCommandStyleIconOnly)<BR>        m_Puid = "ESRI.ArcGIS.GlobeCore.ControlsGlobeFixedZoomOutCommand"<BR>        AxToolbarControl1.AddItem(m_Puid, 0, 2, False, 0, esriCommandStyles.esriCommandStyleIconOnly)<BR>        m_Puid = "ESRI.ArcGIS.GlobeCore.ControlsGlobeFullExtentCommand"<BR>        AxToolbarControl1.AddItem(m_Puid, 0, 3, True, 1, esriCommandStyles.esriCommandStyleIconOnly)<BR>        m_Puid = "esri.ArcGIS.GlobeCore.ControlsGlobeFlyTool"<BR>        AxToolbarControl1.AddItem(m_Puid, 0, 4, False, 0, esriCommandStyles.esriCommandStyleIconOnly)<BR>        m_Puid = "esri.ArcGIS.GlobeCore.ControlsGlobeWalkTool"<BR>        AxToolbarControl1.AddItem(m_Puid, 0, 5, True, 1, esriCommandStyles.esriCommandStyleIconOnly)<BR>        m_Puid = "esri.ArcGIS.GlobeCore.ControlsGlobeNavigateTool"<BR>        AxToolbarControl1.AddItem(m_Puid, 0, 6, False, 0, esriCommandStyles.esriCommandStyleIconOnly)<BR>        m_Puid = "esri.ArcGIS.GlobeCore.ControlsGlobeSelectFeaturesTool"</P>
<P>        AxToolbarControl1.Refresh()<BR>        AxToolbarControl1.Show()<BR>        AxToolbarControl1.Visible = True</P>
喜欢0 评分0
kisssy
卧底
卧底
  • 注册日期2004-04-18
  • 发帖数235
  • QQ
  • 铜币614枚
  • 威望2点
  • 贡献值0点
  • 银元0个
1楼#
发布于:2005-09-04 14:46
<P>应该有两种方法,具体是不是可以,你可以试试</P>
<P>1、</P>
<P>Dim m_Puid As New ESRI.ArcGIS.esriSystem.UID</P>
<P>m_Puid.value = "ESRI.ArcGIS.GlobeCore.ControlsGlobeOpenDocCommand"<BR>AxToolbarControl1.AddItem(m_Puid, 0, 0, False, 0, esriCommandStyles.esriCommandStyleIconOnly)</P>
<P>2</P>
<P>Dim mCmd As New ESRI.ArcGIS.GlobeCore.ControlsGlobeOpenDocCommand</P>
<P>AxToolbarControl1.AddItem(mCmd, 0, 0, False, 0, esriCommandStyles.esriCommandStyleIconOnly)<BR></P>
个人专栏: https://zhuanlan.zhihu.com/c_165676639
举报 回复(0) 喜欢(0)     评分
dan800913
路人甲
路人甲
  • 注册日期2005-01-10
  • 发帖数102
  • QQ
  • 铜币617枚
  • 威望0点
  • 贡献值0点
  • 银元0个
2楼#
发布于:2005-09-04 09:41
kisssy,你好!能详细的说说你的意思吗?我已经建立了globecontrol,但是调试的时候还是不会加载工具,请明示!
举报 回复(0) 喜欢(0)     评分
kisssy
卧底
卧底
  • 注册日期2004-04-18
  • 发帖数235
  • QQ
  • 铜币614枚
  • 威望2点
  • 贡献值0点
  • 银元0个
3楼#
发布于:2005-09-03 20:44
<P>globe工具需要GlobeControl配合</P>
<P>ToolbarControl1.SetBuddyControl GlobeControl1</P>
个人专栏: https://zhuanlan.zhihu.com/c_165676639
举报 回复(0) 喜欢(0)     评分
游客

返回顶部