dream2007
路人甲
路人甲
  • 注册日期2007-05-24
  • 发帖数1
  • QQ
  • 铜币107枚
  • 威望0点
  • 贡献值0点
  • 银元0个
阅读:1744回复:3

AE开发问题

楼主#
更多 发布于:2007-06-06 14:51
请问怎样在AE中实现如ArcMap的toc中的点击左键弹出Symbol Selector对话框,点击右键弹出ColorPalette
喜欢0 评分0
gis
gis
管理员
管理员
  • 注册日期2003-07-16
  • 发帖数15951
  • QQ
  • 铜币25345枚
  • 威望15368点
  • 贡献值0点
  • 银元0个
  • GIS帝国居民
  • 帝国沙发管家
  • GIS帝国明星
  • GIS帝国铁杆
1楼#
发布于:2007-06-09 11:23
使用ae9.2就有Symbol Selector对话框
GIS麦田守望者,期待与您交流。
举报 回复(0) 喜欢(0)     评分
sxchen
路人甲
路人甲
  • 注册日期2006-06-08
  • 发帖数5
  • QQ
  • 铜币134枚
  • 威望0点
  • 贡献值0点
  • 银元0个
2楼#
发布于:2007-07-24 16:11
<P>有谁对ae开发了解多点的,请多写些在上面</P>
举报 回复(0) 喜欢(0)     评分
kisssy
卧底
卧底
  • 注册日期2004-04-18
  • 发帖数235
  • QQ
  • 铜币614枚
  • 威望2点
  • 贡献值0点
  • 银元0个
3楼#
发布于:2007-07-24 22:25
<P> Private Sub TOC_OnMouseDown(ByVal sender As Object, ByVal e As ESRI.ArcGIS.TOCControl.ITOCControlEvents_OnMouseDownEvent) Handles TOC.OnMouseDown<BR>    Dim pOther As Object = Nothing<BR>    Dim pItem As esriTOCControlItem<BR>    Dim pIndex As Object = Nothing<BR>    Dim pMap As IMap = Nothing<BR>    Dim pLayer As ILayer = Nothing</P>
<P>    'Determine what kind of item has been clicked on<BR>    TOC.HitTest(e.x, e.y, pItem, pMap, pLayer, pOther, pIndex)<BR>    If e.button = 2 Then</P>
<P>      'Only layer items can have their labels edited<BR>      If pItem = esriTOCControlItem.esriTOCControlItemLayer Then<BR>        TOCPopupMenu.ShowPopup(Control.MousePosition)<BR>      End If<BR>    ElseIf e.button = 1 Then<BR>      If pItem = esriTOCControlItem.esriTOCControlItemLegendClass Then<BR>        If TypeOf pOther Is ILegendGroup Then<BR>         ''Todo sth<BR>        End If<BR>      End If<BR>    End If</P>
<P>  End Sub</P>
个人专栏: https://zhuanlan.zhihu.com/c_165676639
举报 回复(0) 喜欢(0)     评分
游客

返回顶部