接口ILayerEffects中有个属性Transparency可以用来设置层的透过率。该属性的值是从0-100的，数值越大，透过率也越大。
程序说明
先将要设置透明度的层的引用赋给一个ILayerEffects的实例,然后再用ILayerEffects.Transparency进行透过率的设置。
代码
Private Sub UIButtonControl1_Click()
Dim pMxDocument As IMxDocument
Dim pMap As IMap
Dim pFeatureLayer As IFeatureLayer
Dim pLayerEffects As ILayerEffects
Set pMxDocument = ThisDocument
Set pMap = pMxDocument.FocusMap
Set pFeatureLayer = pMap.Layer(0)
Set pLayerEffects = pFeatureLayer
If pLayerEffects.SupportsTransparency Then
'设置层的透过率
pLayerEffects.Transparency = 75
EndIf
pMxDocument.ActivatedView.Refresh
End Sub
（本文已被浏览 次） | | |
相关评论
