[Visual Basic 6.0]Sub ChangeTransparency() Dim pMxDoc As IMxDocument Dim pMap As IMap Dim pLayerEffects As ILayerEffects Set pMxDoc = Application.Document Set pMap = pMxDoc.FocusMap Set pLayerEffects = pMap.Layer(0) If pLayerEffects.SupportsTransparency Then pLayerEffects.Transparency = 30 pMxDoc.ActiveView.PartialRefresh esriViewGeography, Nothing, Nothing End If End Sub
[Visual Basic .NET, C#, C++]
No example is available for Visual Basic .NET, C#, or C++. To view a Visual Basic 6.0 example, click the Language Filter button
in the upper-left corner of the page.