复选框命令，检查 - 确定，取消选中不好，我如何绑定取消选中命令？

我在附加取消选中命令到复选框时遇到了问题。或者更正确，我不知道如何编码。这是我的检查命令的代码，它应该如何取消选中也可以工作？复选框命令，检查 - 确定，取消选中不好，我如何绑定取消选中命令？

查看：

<CheckBox commands:Checked.Command="{Binding CheckCommand}" 
IsChecked="False"></CheckBox>

视图模型：

Private _CheckCommand As DelegateCommand(Of Object) 

CheckCommand = New DelegateCommand(Of Object)(AddressOf Checked) 

Private Sub Checked(ByVal parameter As Object) 

End Sub

命令：

Public Class ToggleCheckedCommandBehaviour 
    Inherits CommandBehaviorBase(Of CheckBox) 

    Public Sub New(ByVal checkableObject As CheckBox) 
     MyBase.New(checkableObject) 
     AddHandler checkableObject.Checked, AddressOf checkableObject_Checked 
    End Sub 

    Private Sub checkableObject_Checked(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) 
     CommandParameter = TargetObject.Name 
     ExecuteCommand() 
    End Sub 
End Class 

Public NotInheritable Class Checked 

    Private Sub New() 
    End Sub 

    Private Shared ReadOnly SelectedCommandBehaviorProperty As DependencyProperty = _ 
    DependencyProperty.RegisterAttached("SelectedCommandBehavior", _ 
             GetType(ToggleCheckedCommandBehaviour), _ 
             GetType(Checked), _ 
             Nothing) 

    Private Shared ReadOnly CommandProperty As DependencyProperty = _ 
    DependencyProperty.RegisterAttached("Command", _ 
             GetType(ICommand), _ 
             GetType(Checked), _ 
             New PropertyMetadata(AddressOf OnSetCommandCallback)) 


    Public Shared Sub SetCommand(ByVal CheckBox As CheckBox, ByVal command As ICommand) 
     CheckBox.SetValue(CommandProperty, command) 
    End Sub 

    Public Shared Function GetCommand(ByVal CheckBox As CheckBox) As ICommand 
     Return TryCast(CheckBox.GetValue(CommandProperty), ICommand) 
    End Function 

    Private Shared Sub OnSetCommandCallback(ByVal dependencyObject As DependencyObject, ByVal e As DependencyPropertyChangedEventArgs) 
     Dim CheckBox = TryCast(dependencyObject, CheckBox) 
     If Not CheckBox Is Nothing Then 
      Dim behavior = GetOrCreateBehavior(CheckBox) 
      behavior.Command = TryCast(e.NewValue, ICommand) 
     End If 
    End Sub 

    Private Shared Function GetOrCreateBehavior(ByVal CheckBox As CheckBox) As ToggleCheckedCommandBehaviour 
     Dim behavior = TryCast(CheckBox.GetValue(SelectedCommandBehaviorProperty), ToggleCheckedCommandBehaviour) 
     If behavior Is Nothing Then 
      behavior = New ToggleCheckedCommandBehaviour(CheckBox) 
      CheckBox.SetValue(SelectedCommandBehaviorProperty, behavior) 
     End If 
     Return behavior 
    End Function 

End Class 
End Namespace

如前所述的检查命令工作正常，并连接到它的命令和方法获取火灾，我需要做些什么才能使取消选中也工作？对于我正在使用PRISM，CAL，MVVM和SL4的信息 - 在VB.NET中

来源

2010-10-21 Mcad001

Checked命令正常工作的事实意味着附加行为已正确实施。这就是说，行为只监视你在这一行指定单个事件：

AddHandler checkableObject.Checked, AddressOf checkableObject_Checked

因此，您订阅的Checked事件CheckBox控件的。由于您希望控制复选框未被选中，您只需使用Unchecked事件创建另一个附加行为。这假设你想要一个不同的命令在按钮被选中/取消选中时执行。如果您使用相同的命令，则绑定到Command属性应该就足够了。

我希望这会有所帮助。

来源

2010-10-21 20:41:12

复选框命令，检查 - 确定，取消选中不好，我如何绑定取消选中命令？

回答

相关问题