Как кнопку оставить включенным во время выполнения асинхронной задачи

Question

В моей xaml У меня есть кнопка и 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. Я думал, что настройка canExecutetrue изменит поведение, но это не так!

Как управлять поведением кнопки?

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 

Нормальное поведение команды всегда остаются включенными.