f# - 如何在执行异步任务时保持按钮启用

Question

在我的 xaml我有一个 Button 和一个 TextBlock

<TextBlock Text="{Binding AText}" FontSize="20"/>
<Button Content="Click" Command="{Binding MyCommand}" Grid.Row="1"/>

在我的 ViewModel 我有以下代码

let aText = self.Factory.Backing(<@ self.AText @>, "Initial Text")
let asyncTask x = async {
    self.AText <- "Loading"
    do! Async.Sleep(5000)
    self.AText <- "Loaded"
} 

member self.AText with get() = aText.Value and set(v) = aText.Value <- v    
member self.MyCommand = self.Factory.CommandAsyncChecked(asyncTask, fun _ -> true)

当我单击该按钮时，它被禁用并保持不变，直到它完成 asyncTask .我以为设置canExecute如 true会改变行为，但它没有!

如何控制按钮的行为？

Answer 1

Async FSharp.ViewModule 中的命令支持是专门设计的，以便在操作时禁用命令，以防止它们多次发生。

如果您不想要这种行为，最简单的选择是使用普通命令，然后手动启动异步工作流:

let asyncTask () = async {
    self.AText <- "Loading"
    do! Async.Sleep(5000)
    self.AText <- "Loaded"
} |> Async.Start

member self.MyCommand = self.Factory.Command asyncTask

正常的命令行为将始终保持启用状态。