回答編集履歴

  基本的には重い処理を`Task.Run()`に包むだけです。

 

  > 「UI以外にセットさせると例外が発生する」

 

  UIスレッド以外からいじれないのはコントロール類です（`textBlock.Text=""`のような）

  バインディングに使用しているプロパティは、スレッドに関係なく変更できます。

 

  <Window

  x:Class="MainWindow"

  xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"

  xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"

  xmlns:local="clr-namespace:Questions321254"

  Width="800"

  Height="450">

  <Window.DataContext>

  <local:ViewModel />

  </Window.DataContext>

  <DockPanel>

  <Menu DockPanel.Dock="Top">

  <MenuItem Command="{Binding MyCommand}" Header="MyCommand" />

  <MenuItem Command="{Binding MyCommand2}" Header="MyCommand2" />

  <MenuItem Command="{Binding AsyncReactiveCommand}" Header="AsyncReactiveCommand" />

  </Menu>

  <TextBlock Text="{Binding Output}" />

  </DockPanel>

  </Window>

  ```

 

  Imports System.Threading

  Imports Prism.Commands

  Imports Prism.Mvvm

  Imports Reactive.Bindings

 

  Public Class ViewModel

  Inherits BindableBase

 

  Private _Output As String

  Public Property Output As String

  Get

  Return _Output

  End Get

  Set(ByVal value As String)

  SetProperty(_Output, value)

  End Set

  End Property

 

  'MyCommand2で実行可否に使用

  Private _CanExecute As Boolean = True

  Private Property CanExecute As Boolean

  Get

  Return _CanExecute

  End Get

  Set(ByVal value As Boolean)

  SetProperty(_CanExecute, value)

  End Set

  End Property

 

  Public ReadOnly Property MyCommand As DelegateCommand

  Public ReadOnly Property MyCommand2 As DelegateCommand

  Public ReadOnly Property AsyncReactiveCommand As AsyncReactiveCommand

 

  Public Sub New()

  MyCommand = New DelegateCommand(AddressOf MyCommandExecute)

  MyCommand2 = New DelegateCommand(Async Sub() Await MyCommand2Execute()).ObservesCanExecute(Function() CanExecute)

  AsyncReactiveCommand = New AsyncReactiveCommand().WithSubscribe(AddressOf AsyncReactiveCommandExecute)

  End Sub

 

  '何の制御もないので連打できてしまう

  Private Sub MyCommandExecute()

  Task.Run(Sub() HeavyWork()) '投げっぱなしTask

  End Sub

 

  '処理中は押せないようにCanExecuteプロパティで制御

  Private Async Function MyCommand2Execute() As Task

  CanExecute = False

  Await Task.Run(Sub() HeavyWork())

  CanExecute = True

  End Function

 

  'AsyncReactiveCommandならおまかせできる

  Private Async Function AsyncReactiveCommandExecute() As Task

  Await Task.Run(Sub() HeavyWork())

  End Function

 

  Private Sub HeavyWork()

  Output += "はじめるよ" & vbLf

  Thread.Sleep(1000)

  Output += "もうちょっと" & vbLf

  Thread.Sleep(1000)

  Output += "おわったよ" & vbLf

  End Sub

  End Class

  ```

  VBは全然わかっていないので、変な書き方をしていたらすいません。

 

  `DelegateCommand`実装は↓を使用しました。

  [NuGet Gallery | Prism.Core 8.0.0.1909](https://www.nuget.org/packages/Prism.Core/)

 

  おまかせ例の`AsyncReactiveCommand`は↓に含まれています。

  [NuGet Gallery | ReactiveProperty 7.7.0](https://www.nuget.org/packages/ReactiveProperty/)