|
阅读：1665回复：2
紧急求助：如何在AE中实现半透明效果？
紧急求助：如何在AE中实现半透明效果？
|
|
|
1楼#
发布于：2005-12-14 15:19
<P>面填充是可以设置透明度的</P>FillTransparency Property (esriCarto)
<br> <P> </P> <P>The fill transparency coeficient (0.0-1.0). <P>Read/write.</P> <p> <P>Syntax</P> <P>object.FillTransparency = [ value ]</P> |
|
|
2楼#
发布于：2005-12-27 20:59
'给图层赋透明值<BR> If CInt(Me.TxtTransparence.Text) > 100 Then<BR> Me.TxtTransparence.Text = 100<BR> End If<BR> <BR> Dim pLayerEffects As ILayerEffects<BR> Dim pRasterLayer As IRasterLayer<BR> Dim pFeatureLayer As IFeatureLayer<BR> Dim vTransparence As Integer<BR> vTransparence = CInt(Me.TxtTransparence.Text)<BR> '现在透明度只设置了featurelayer和rasterlayer<BR> If TypeOf pSelSymLayer Is IFeatureLayer Then<BR> Set pFeatureLayer = pSelSymLayer<BR> Set pLayerEffects = pFeatureLayer<BR> '如果用户输入要改变透明度<BR> If pLayerEffects.Transparency <> vTransparence Then<BR> pLayerEffects.Transparency = vTransparence<BR> RefreshMap<BR> End If<BR> '符号是否随参考比例尺而改变<BR> pFeatureLayer.ScaleSymbols = Me.chkScaleSymbol.Value<BR> <BR> ElseIf TypeOf pSelSymLayer Is IRasterLayer Then<BR> Set pRasterLayer = pSelSymLayer<BR> Set pLayerEffects = pRasterLayer<BR> '如果用户输入要改变透明度<BR> If pLayerEffects.Transparency <> vTransparence Then<BR> pLayerEffects.Transparency = vTransparence<BR> RefreshMap<BR> End If<BR> End If
|
|
|
