DrawingAttributes.ContainsPropertyData(Guid) 方法

定义

命名空间:

System.Windows.Ink

程序集:

PresentationCore.dll

返回一个值，该值指示指定的属性数据标识符是否在 DrawingAttributes 对象中。

public:
 bool ContainsPropertyData(Guid propertyDataId);

public bool ContainsPropertyData (Guid propertyDataId);

member this.ContainsPropertyData : Guid -> bool

Public Function ContainsPropertyData (propertyDataId As Guid) As Boolean

参数

propertyDataId

Guid

要在 DrawingAttributes 对象中查找的 Guid。

返回

Boolean

如果指定的属性数据标识符在 DrawingAttributes 对象中，则为 true；否则为 false。

示例

以下示例演示如何从 DrawingAttributes 对象中添加和检索自定义属性。 该示例添加一个属性，该属性指示对象是笔还是 DrawingAttributes 荧光笔。 ChangeColors_Click事件处理程序会更改随调用inkDA新颜色一起放置InkCanvasDrawingAttributes的所有笔划。 此示例假定有一个命名inkCanvas1对象，并且有两DrawingAttributes个InkCanvas命名inkDA对象，highlighterDA.

Guid purposeGuid = new Guid("12345678-9012-3456-7890-123456789012");
string penValue = "pen";
string highlighterValue = "highlighter";

// Add a property to each DrawingAttributes object to 
// specify its use.
private void AssignDrawingAttributesInstrument()
{
    inkDA.AddPropertyData(purposeGuid, penValue);
    highlighterDA.AddPropertyData(purposeGuid, highlighterValue);
}

// Change the color of the ink that on the InkCanvas that used the pen.
void ChangeColors_Click(Object sender, RoutedEventArgs e)
{
    foreach (Stroke s in inkCanvas1.Strokes)
    {
        if (s.DrawingAttributes.ContainsPropertyData(purposeGuid))
        {
            object data = s.DrawingAttributes.GetPropertyData(purposeGuid);

            if ((data is string) && ((string)data == penValue))
            {
                s.DrawingAttributes.Color = Colors.Black;
            }
        }
    }
}

Private purposeGuid As New Guid("12345678-9012-3456-7890-123456789012")
Private penValue As String = "pen"
Private highlighterValue As String = "highlighter"

' Add a property to each DrawingAttributes object to 
' specify its use.
Private Sub AssignDrawingAttributesInstrument()

    inkDA.AddPropertyData(purposeGuid, penValue)
    highlighterDA.AddPropertyData(purposeGuid, highlighterValue)

End Sub

' Change the color of the ink that on the InkCanvas that used the pen.
Private Sub ChangeColors_Click(ByVal sender As [Object], _
        ByVal e As RoutedEventArgs)

    Dim s As Stroke

    For Each s In inkCanvas1.Strokes
        If s.DrawingAttributes.ContainsPropertyData(purposeGuid) Then

            Dim data As Object = s.DrawingAttributes.GetPropertyData(purposeGuid)

            If TypeOf data Is String AndAlso CStr(data) = penValue Then
                s.DrawingAttributes.Color = Colors.Black
            End If

        End If
    Next s

End Sub