本文整理匯總了VB.NET中System.Windows.Ink.DrawingAttributes.PropertyDataChanged事件的典型用法代碼示例。如果您正苦於以下問題：VB.NET DrawingAttributes.PropertyDataChanged事件的具體用法？VB.NET DrawingAttributes.PropertyDataChanged怎麽用？VB.NET DrawingAttributes.PropertyDataChanged使用的例子？那麽, 這裏精選的事件代碼示例或許可以為您提供幫助。您也可以進一步了解該事件所在類System.Windows.Ink.DrawingAttributes的用法示例。
在下文中一共展示了DrawingAttributes.PropertyDataChanged事件的1個代碼示例，這些例子默認根據受歡迎程度排序。您可以為喜歡或者感覺有用的代碼點讚，您的評價將有助於係統推薦出更棒的VB.NET代碼示例。
示例1: ShadowedStroke
Class ShadowedStroke
Inherits Stroke
Private shadow As New Guid("12345678-9012-3456-7890-123456789012")
Public Sub New(ByVal stylusPoints As StylusPointCollection, ByVal drawingAttributes As DrawingAttributes)
MyBase.New(stylusPoints, drawingAttributes)
AddHandler Me.DrawingAttributes.PropertyDataChanged, AddressOf DrawingAttributes_PropertyDataChanged
End Sub
Public Property Shadowed() As Boolean
' Return the value of the custom property, shadow.
' If there is no custom property, return false.
Get
If Not Me.DrawingAttributes.ContainsPropertyData(shadow) Then
Return False
End If
Dim propertyData As Object = Me.DrawingAttributes.GetPropertyData(shadow)
If TypeOf propertyData Is Boolean Then
Return CType(propertyData, Boolean)
Else
Return False
End If
End Get
' Set the value of the custom property.
Set
Me.DrawingAttributes.AddPropertyData(shadow, value)
End Set
End Property
Private Sub DrawingAttributes_PropertyDataChanged(ByVal sender As Object, ByVal e As PropertyDataChangedEventArgs)
Me.OnInvalidated(New EventArgs())
End Sub
Protected Overrides Sub DrawCore(ByVal context As System.Windows.Media.DrawingContext, _
ByVal overriddenAttributes As DrawingAttributes)
' create a drop shadow
'
If Me.Shadowed Then
Dim pathGeometry As Geometry = Me.GetGeometry(overriddenAttributes).Clone()
pathGeometry.Transform = New TranslateTransform(5, 0)
Try
context.PushOpacity(0.5)
context.DrawGeometry(Brushes.DarkGray, Nothing, pathGeometry)
Finally
context.Pop()
End Try
End If
MyBase.DrawCore(context, overriddenAttributes)
End Sub
End Class