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 的新色彩，變更 上 InkCanvas DrawingAttributes 放置的所有筆劃。 此範例假設有一 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