to follow the source code that I used, the transparency on polygon does not work. Some ideas???
Dim pFLy As IFeatureLayer
Dim pFeatureClass As IFeatureClass
Dim pFSelection As IFeatureSelection
Dim pGlobeLayerProperties As IGlobeLayerProperties = Nothing
Dim pLayerEffects As ILayerEffects
pFeatureClass = CreateFeatureClass(esriGeometryType.esriGeometryPolygon)
pFLy = New FeatureLayer
With pFLy
.FeatureClass = pFeatureClass
.Name = m_NameLayer
.Cached = My.Settings.UseCachedLayer
.Selectable = True
.DisplayField = "ToolTip"
.ShowTips = True
.ScaleSymbols = Me.m_SymbolProperties.Symbol_SizeFixed
End With
pLayerEffects = pFLy
pLayerEffects.Transparency = 60
m_objGlobeControl.Globe.AddLayerType(pFLy, esriGlobeLayerType.esriGlobeLayerTypeDraped, True)
pGlobeLayerProperties = TryCast(Me.m_objGlobeControl.GlobeDisplay, IGlobeDisplayLayers).FindGlobeProperties(pFLy)
pGlobeLayerProperties.BaseImageDrawingPriority = 1
' ----> Adding feature to feaureclass
TryCast(m_objGlobeControl.GlobeDisplay, IGlobeDisplayLayers2).RefreshLayer(pFLy)