VBでAction型への追加記述方法

Question

前提・実現したいこと

VB.Netで以下C#のようにAction型に追加(+=)を行いたいです
以下VBのように記載すると+=の行で
「演算子 '+' は、型 'Action' および 'Sub <generated method>()' に対して定義されていません。」
と怒られてしまいます。
どのように記述すればよろしいでしょうか？

private void Button1_Click(object sender, EventArgs e)
{
    Action xxx;
    xxx = () => Console.WriteLine("aaa");
    xxx += () => Console.WriteLine("bbb");

    xxx();
}

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    Dim xxx As Action
    xxx = Sub() Console.WriteLine("aaa")
    ' ここがエラー
    xxx += Sub() Console.WriteLine("bbb")

    xxx()

End Sub

Answer 1

提示されたC#コードをコンパイルすると下記のC#コードと等価となるようです。

private void Button1_Click(object sender, EventArgs e)
{
    Action xxx;
    xxx = new Action(() => Console.WriteLine("aaa"));
    xxx = (Action)System.Delegate.Combine(xxx, new Action(() => Console.WriteLine("bbb")));

    xxx();
}

なので、VBでは下記のように書くことができます。

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    Dim xxx As Action
    xxx = New Action(Sub() Console.WriteLine("aaa"))
    xxx = DirectCast(System.Delegate.Combine(xxx, New Action(Sub() Console.WriteLine("bbb"))), Action)

    xxx()

End Sub

Comments

[退会済みユーザー]

情報ありがとうございます。
私もやってみました。確かに等価になりますね。

コンパイル後のC#をVBに変換するとエラーの出ないVBコードに変換されたので
C#・VB変換がうまくいかないときは一度コンパイルしてから変換してみるのも手なのですね

Answer 2

C# では演算子のオーバーロードを使い、+= に Delegate.Combine メソッドを割り当てています。
これをほどいて VB で記述すると次のようになります。

Sub Main()
    Dim action As Action
    action = Sub() Console.WriteLine("Hello")
    action = Action.Combine(action, CType(Sub() Console.WriteLine("World"), Action))
    action()
    Console.ReadKey()
End Sub

+= を使えるようにするには、次のリンクを参照して演算子をオーバーロードしてください。

自作クラスの演算子をオーバーロードする

追記

Delegate の演算子をオーバーロードするのは無理そうです。
C# のオーバーロードはライブラリレベルではなく言語レベルでやっていそうです。「いそう」というのは、詳しく調査していないからですが、少なくともソースにはありませんでした。

Comments

[退会済みユーザー]

ご回答ありがとうございます。

教えていただい方法でやりたいことができました。
ありがとうございます。

>Delegate の演算子をオーバーロードするのは無理そうです。
私も色々やってみたのですがうまくいかなくて追加で質問するか
考えていました。。。
難しそうということで承知しました。

Answer 3

変換ツールがあるので使ってみてはいかがですか？

TeleRick Code Converter
http://converter.telerik.com/

試しに、上記のサイトのツールで変換してみると、以下のようになります。動くかどうかは試してませんが。

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
    Dim xxx As Action
    xxx = Function() Console.WriteLine("aaa")
    xxx += Function() Console.WriteLine("bbb")
    xxx()
End Sub

Comments

[退会済みユーザー]

すいません言葉足らずでした。

そのサイト使って変換してみました。
結果、仰る通りになるのですが
まず「Function() Console.WriteLine("aaa")」の時点で怒られます
返り値がないのにFunction()はおかしいということで、そこをSubに変更しました。
それでもまだ怒られるので、お伺いした次第です。