level 13
sscs
楼主
看到教程https://blogs.windows.
com/buildingapps/2016/09/12/creating-beautiful-effects-for-uwp/#ozmC5X36LQele8oX.97
试着改写成VB:
Public Sub ef()
Dim _compositor = ElementCompositionPreview.GetElementVisual(gd).Compositor
Dim effect = New GaussianBlurEffect()
effect.Source = New CompositionEffectSourceParameter("Backdrop")
effect.BlurAmount = 10.0F
effect.BorderMode = EffectBorderMode.Hard
Dim blurEffectFactory = _compositor.CreateEffectFactory(effect)
Dim _brush = blurEffectFactory.CreateBrush()
Dim destinationBrush = _compositor.CreateBackdropBrush()
_brush.SetSourceParameter("Backdrop", destinationBrush)
Dim blurSprite = _compositor.CreateSpriteVisual()
blurSprite.Brush = _brush ElementCompositionPreview.SetElementChildVisual(gd, blurSprite)
End Sub
Private Sub MainPage_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
Call ef()
End Sub
XAML:
<Grid Background="{ThemeResource ApplicationPageBackgroundThemeBrush}">
<Grid >
<Grid.Background>
<ImageBrush Stretch="UniformToFill" ImageSource="Assets/111.jpg"/>
</Grid.Background>
</Grid
<Grid x:Name="gd" />
</Grid>
然后运行,发现没有任何模糊效果。。。。我在可视树里看见已经添加进了SpriteVisual
@Nukepayload2
2017年03月06日 21点03分
1
试着改写成VB:
Public Sub ef()
Dim _compositor = ElementCompositionPreview.GetElementVisual(gd).Compositor
Dim effect = New GaussianBlurEffect()
effect.Source = New CompositionEffectSourceParameter("Backdrop")
effect.BlurAmount = 10.0F
effect.BorderMode = EffectBorderMode.Hard
Dim blurEffectFactory = _compositor.CreateEffectFactory(effect)
Dim _brush = blurEffectFactory.CreateBrush()
Dim destinationBrush = _compositor.CreateBackdropBrush()
_brush.SetSourceParameter("Backdrop", destinationBrush)
Dim blurSprite = _compositor.CreateSpriteVisual()
blurSprite.Brush = _brush ElementCompositionPreview.SetElementChildVisual(gd, blurSprite)
End Sub
Private Sub MainPage_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
Call ef()
End Sub
XAML:
<Grid Background="{ThemeResource ApplicationPageBackgroundThemeBrush}">
<Grid >
<Grid.Background>
<ImageBrush Stretch="UniformToFill" ImageSource="Assets/111.jpg"/>
</Grid.Background>
</Grid
<Grid x:Name="gd" />
</Grid>
然后运行,发现没有任何模糊效果。。。。我在可视树里看见已经添加进了SpriteVisual
@Nukepayload2
