Private Sub tocCtrl_OnDoubleClick(ByVal Button As Long, ByVal shift As Long, ByVal x As Long, ByVal y As Long)
Dim pMap As IMap
Dim pLayer As ILayer
Dim pOther As IUnknown
Dim pItem As esriTOCControlItem
Dim pIndex As Variant
'Determine what kind of item has been clicked on
tocCtrl.HitTest x, y, pItem, pMap, pLayer, pOther, pIndex
'Only layer items can have their labels edited
If pItem = esriTOCControlItemLegendClass Then
Dim pLC As ILegendClass
Dim pLG As ILegendGroup
If TypeOf pOther Is ILegendGroup Then
Set pLG = pOther
End If
Set pLC = pLG.Class(CLng(pIndex))
Dim pSym As ISymbol
Set pSym = pLC.Symbol
Dim pSS As ISymbolSelector
Dim bOK As Boolean
Set pSS = New SymbolSelector
pSS.AddSymbol pSym
bOK = pSS.SelectSymbol(0)
If bOK = True Then
Set pLC.Symbol = pSS.GetSymbolAt(0)
End If
tocCtrl.Update
mapCtrl.Refresh
End If
End Sub
3S工作室 
友情链接
日志搜索 
工作室信息
