gispower - 2008-05-17 14:12:09
Private Function SelectBySymbol(ByVal pSymbol As ISymbol) As Boolean
If pSymbol Is Nothing Then Exit Function
Dim pSymbologyStyleClass As ISymbologyStyleClass
With SymbologyControl1
Set pSymbologyStyleClass = .GetStyleClass(.StyleClass)
End With
Dim pIndex As Long, tmpSymbol As ISymbol
Dim pStyItem As IStyleGalleryItem
For pIndex = 0 To pSymbologyStyleClass.ItemCount - 1
Set pStyItem = pSymbologyStyleClass.GetItem(pIndex)
Set tmpSymbol = pStyItem.Item
If tmpSymbol Is m_pSymbol Then
pSymbologyStyleClass.SelectItem pIndex
Exit For
End If
Next
End Function
myqiang_0 - 2008-06-12 12:16:47
呵呵， ISymbologyStyleClass是一个不错的类啊 ！！