[讨论]engine开发出的程序中如何对symbol进行修改？

<P>说白了就是符号的修改，象在arcmap一样，双击符号就可以打开symbol selector界面。谢谢，有人做过吗？</P>

up

<P>symbol selector是ao的东东，在Engine下得自己开发这个界面，并实现其功能。</P>
<P>另外Engine下要用IStyleGallery等接口读取serverstyle文件中的符号才行。</P>
<P>－－欢迎探讨</P><img src="images/post/smile/dvbbs/em03.gif" />

晕死！郁闷

<P>hoho，engine就是酱子滴</P>
<P>好处就是实现一些简单的功能比较简单</P>

有没有例子？

现在还有就是如何查询TIN中的高程的问题，也恼火

<P>在AO里有个符号的例子</P>
<H1>Style Search</H1>
<P><STRONG>Description:</STRONG> <BR><BR><TEXT>This sample demonstrates how to search symbol names within a Style Gallery. Multiple styles can be searched at the same time. The results will be listed within the form and will include the name of the style, name of the symbol and the type of symbol. The search can be performed on an individual symbol type or made to encompass all the symbols within the style. </TEXT></P>

谁有在AE中实现了的，请教！

<P>下面代码可以实现打开symbol selector界面</P>
<P>Private Sub TOCControl1_OnDoubleClick(ByVal button As Long, ByVal shift As Long, ByVal x As Long, ByVal y As Long)<BR>   Dim pMap As IMap<BR>  Dim pLayer As ILayer<BR>  Dim pOther As IUnknown<BR>  Dim pItem As esriTOCControlItem<BR>  Dim pIndex As Variant<BR>  'Determine what kind of item has been clicked on<BR>  TOCControl1.HitTest x, y, pItem, pMap, pLayer, pOther, pIndex<BR>  'Only layer items can have their labels edited<BR>  If pItem = esriTOCControlItemLegendClass Then<BR>    Dim pLC As ILegendClass<BR>    Dim pLG As ILegendGroup<BR>    If TypeOf pOther Is ILegendGroup Then<BR>       Set pLG = pOther<BR>    End If<BR>    Set pLC = pLG.Class(CLng(pIndex))<BR>    Dim pSym As ISymbol<BR>    Set pSym = pLC.Symbol<BR>    Dim pSS As ISymbolSelector<BR>    Dim bOK As Boolean<BR>    Set pSS = New SymbolSelector<BR>    pSS.AddSymbol pSym<BR>    bOK = pSS.SelectSymbol(0)<BR>    If bOK = True Then<BR>        Set pLC.Symbol = pSS.GetSymbolAt(0)<BR>    End If<BR>    TOCControl1.Update<BR>    MapControl1.Refresh<BR>  End If<BR>End Sub<BR></P>