DrawingAttributes.ContainsPropertyData(Guid) 方法

public:
 bool ContainsPropertyData(Guid propertyDataId);

public bool ContainsPropertyData(Guid propertyDataId);

member this.ContainsPropertyData : Guid -> bool

Public Function ContainsPropertyData (propertyDataId As Guid) As Boolean

參數

傳回

true若指定的屬性資料識別碼位於物件中DrawingAttributes;否則， false

範例

以下範例示範如何從物件中新增及擷取自訂屬性 DrawingAttributes 。 範例中新增了一個屬性，指示物體是 DrawingAttributes 筆還是螢光筆。 事件處理程序ChangeColors_Click會用 A InkCanvas 調用DrawingAttributes新顏色來更改所有放在 的inkDA筆劃。 此範例假設存在一個 InkCanvas 名為 inkCanvas1、 的物件，以及兩個 DrawingAttributes 名為 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