2

ボタン A をクリックすると、ボタン B に DropShadow 効果が表示されます。

 Private Sub ButtonA_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles ButtonA.Click

 Dim objDropShadow As New DropShadowEffect
            objDropShadow.ShadowDepth = 0
            objDropShadow.BlurRadius = 30
            objDropShadow.Color = Colors.GreenYellow

            Me.ButtonB.Effect = objDropShadow

End Sub

ボタン C をクリックした場合、ボタン B から DropShadow 効果を削除するにはどうすればよいですか?

4

2 に答える 2

2 
Private Sub ButtonC_Click(
  ByVal sender As System.Object, 
  ByVal e As System.Windows.RoutedEventArgs) Handles ButtonC.Click

 Dim objDropShadow As New DropShadowEffect
            objDropShadow.ShadowDepth = 0
            objDropShadow.BlurRadius = 0
            objDropShadow.Color = Colors.Transparent

            Me.ButtonB.Effect = objDropShadow

End Sub
于 2013-07-18T04:40:23.333 に答える