fix(MyCard): IsSwaped 未正确转发

This commit is contained in:
Open-KFC
2025-08-15 12:29:27 +08:00
parent 8e095ddaed
commit 5622e50a54
+9 -3
View File
@@ -326,13 +326,19 @@
<Obsolete("IsSwaped 存在拼写错误,请换用 IsSwapped 属性。")> <Obsolete("IsSwaped 存在拼写错误,请换用 IsSwapped 属性。")>
Public Property IsSwaped As Boolean Public Property IsSwaped As Boolean
Get Get
Return IsSwapped Return GetValue(IsSwapedProperty)
End Get End Get
Set(value As Boolean) Set(value As Boolean)
IsSwapped = value SetValue(IsSwapedProperty, value)
End Set End Set
End Property End Property
Public Shared ReadOnly IsSwapedProperty As DependencyProperty = DependencyProperty.Register("IsSwaped", GetType(Boolean), GetType(MyCard), New PropertyMetadata(False)) Public Shared ReadOnly IsSwapedProperty As DependencyProperty = DependencyProperty.Register("IsSwaped", GetType(Boolean), GetType(MyCard), New PropertyMetadata(False, AddressOf OnIsSwapedPropertyChanged))
Private Shared Sub OnIsSwapedPropertyChanged(d As DependencyObject, e As DependencyPropertyChangedEventArgs)
Dim self = TryCast(d, MyCard)
If self IsNot Nothing Then
self.IsSwapped = CType(e.NewValue, Boolean)
End If
End Sub
Public Property SwapLogoRight As Boolean = False Public Property SwapLogoRight As Boolean = False
Private IsMouseDown As Boolean = False Private IsMouseDown As Boolean = False