C# と VB.NET の質問掲示板

開発環境：VS2005 VB.net
下記ソースはVS2022 C#です。

VBでC#の if (MyEvent != null) のような分岐方法をしたいのですが分かりません。

「// ここで別処理を記述したい」のところに
MyEventが定義されていない場合の別処理を行ないたいのですが
VBでのイベント発生方法は RaiseEventと書いているのしか見つからず困っています。
よろしくお願いします。

public partial class Form1 : Form
{
    public event EventHandler MyEvent;

    protected override void OnMouseDown(MouseEventArgs e)
    {
        if (MyEvent != null)
            MyEvent.Invoke(this, EventArgs.Empty);
        else
            // ここで別処理を記述したい

        base.OnMouseDown(e);
    }
}

■No102128 (WebSurfer さん) に返信

上記コードには書いていませんが 変数に画像をセットするだけです
MyEventが定義されていれば、そっちで画像をセット
MyEventが定義されていなければ、ベース側で画像をセットしたいです。

変数名 img とします。

img = 画像
if (MyEvent !=null)
    MyEvent.Invoke(this, EventArgs.Empty);
     ↑定義された側でimgに画像をセット

上記のように画像を上書きすれば目的は達成するのですが
画像取得に時間がかかるため、一回の処理で済ませたいです。

■No102138 (WebSurfer さん) に返信

これでどうでしょうか？イメージとしてはこんな感じです。
Form2にTestがあれば、Test内で処理
TestがなければForm1のOnMouseDown内でValueにセットしたいのです。

public partial class Form1 : Form
{
    public EventHandler MyEvent;

    public int Value = 0;

    protected override void OnMouseDown(MouseEventArgs e)
    {
        if (MyEvent is null)
        {
        }

        if (MyEvent != null)
        {
            MyEvent.Invoke(this, EventArgs.Empty);
        }
        else
        {
            Value = 100;
        }

        base.OnMouseDown(e);
    }
}

public partial class Form2 : Form
{
    public Form1 frm1 = new Form1();
    public Form2()
    {
        this.Controls.Add(frm1);
        frm1.MyEvent += Test;
    }

    public void Test(object sender,EventArgs e)
    {
        frm1.Value = 1;
    }
}

■No102139 (ぴよ さん) に返信

VB だとこんな感じです。

Partial Public Class Form1

    Private Shared MyEventKey As New Object()

    Public Custom Event MyEvent As EventHandler
        AddHandler(value As EventHandler)
            Events.AddHandler(MyEventKey, value)
        End AddHandler
        RemoveHandler(value As EventHandler)
            Events.RemoveHandler(MyEventKey, value)
        End RemoveHandler
        RaiseEvent(sender As Object, e As EventArgs)
            Dim handler As EventHandler = DirectCast(Events(MyEventKey), EventHandler)
            If handler IsNot Nothing Then
                handler.Invoke(sender, e)
            End If
        End RaiseEvent
    End Event

    Public Value As Integer

    Protected Overrides Sub OnMouseDown(e As MouseEventArgs)
        Dim handler As EventHandler = DirectCast(Events(MyEventKey), EventHandler)
        If handler IsNot Nothing Then
            handler.Invoke(Me, e)
        Else
            Value = 100
        End If
        MyBase.OnMouseDown(e)
    End Sub

End Class

Partial Public Class Form2

    Public WithEvents frm1 As New Form1

    Public Sub New()
        InitializeComponent()
        frm1.TopLevel = False
        frm1.Dock = DockStyle.Fill
        frm1.Visible = True
        Me.Controls.Add(frm1)
    End Sub

    Public Sub Test(sender As Object, e As EventArgs) Handles frm1.MyEvent
        frm1.Value = 1
    End Sub

End Class

EventではなくAction型で定義すればNothingの判断が出来るので可能かと思います。

'--- Button1, 2を配置
Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Using fm2 As New Form2()
            fm2.ShowDialog(Me)
        End Using
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Using fm2 As New Form2()
            fm2.TestEvent = Sub()
                                fm2.Label1.Text = "Form1側で設定処理を実行"
                            End Sub
            fm2.ShowDialog(Me)
        End Using
    End Sub
End Class


'--- Button1とLabel1を配置
Public Class Form2

    Public Property TestEvent As Action = Nothing

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If TestEvent Is Nothing Then
            Label1.Text = "Form2側で設定処理を実行"
        Else
            TestEvent.Invoke()
        End If
    End Sub
End Class

■No102139 (ぴよ さん) に返信

> Form2にTestがあれば、Test内で処理
> TestがなければForm1のOnMouseDown内でValueにセットしたいのです。

イベント MyEvent にハンドラがアタッチされてなければ Form1 の OnMouseDown メソッドで
処理を行い、ハンドラ Test がアタッチされていればそのハンドラで処理を行いたいのだと
理解しました。

その理解で合っているのであれば、イベントを使うのは、XY 問題とまでは言えないものの、
適切ではないと思います。

デリゲートを使ってはいかがですか？

質問者さんのコードを動くように直して（動かないコードを貼るのは止めましょう）、イベ
ントに代えてデリゲートを使って書き直すと以下のようになります。下のコードでは Action 
がデリゲートです。


using System;
using System.Windows.Forms;

namespace WindowsFormsApp1
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }
                
        public Action p;

        protected override void OnMouseDown(MouseEventArgs e)
        {
            if (p != null)
            {
                // デリゲートのポイントするメソッドで処理
                p();
            }
            else
            {
                MessageBox.Show("Form1 の OnMouseDown で処理");
            }

            base.OnMouseDown(e);
        }
    }
}


using System;
using System.Windows.Forms;

namespace WindowsFormsApp1
{
    public partial class Form2 : Form
    {
        public Form1 frm1 = new Form1();
        
        public Form2()
        {
            InitializeComponent();

            frm1.TopLevel = false;
            frm1.Height = 100;
            frm1.Width = 100;
            frm1.Visible = true;
            this.Controls.Add(frm1);

            // 以下の設定で Test メソッドで処理される
            // コメントアウトすれば From1 の OnMouseDown で処理
            frm1.p = new Action(Test);
        }

        public void Test()
        {
            MessageBox.Show("Form2 の Test メソッドで処理");
        }
    }
}

デリゲートの方が目的に合っているし、上のコードであれば C# ⇒ VB.NET 変換サービスで変換し
たコードをほぼそのまま使えますので、「VBでのイベント発生方法は RaiseEventと書いているの
しか見つからず困っています」とかで悩むこともないです。

例えば、上のコードを以下の変換サービスで変換したコードを、

Telerik Code Converter
https://converter.telerik.com/

ほぼそのまま使って以下のようにできます。


Public Class Form1
    Public Sub New()
        InitializeComponent()
    End Sub

    Public p As Action

    Protected Overrides Sub OnMouseDown(ByVal e As MouseEventArgs)
        If p IsNot Nothing Then
            p()
        Else
            MessageBox.Show("Form1 の OnMouseDown で処理")
        End If

        MyBase.OnMouseDown(e)
    End Sub
End Class


Public Class Form2
    Public frm1 As Form1 = New Form1()

    Public Sub New()
        InitializeComponent()
        frm1.TopLevel = False
        frm1.Height = 100
        frm1.Width = 100
        frm1.Visible = True
        Me.Controls.Add(frm1)

        '以下の設定で Test メソッドで処理される
        'コメントアウトすれば From2 の OnMouseDown で処理
        'frm1.p = New Action(AddressOf Test)
    End Sub

    Public Sub Test()
        MessageBox.Show("Form2 の Test メソッドで処理")
    End Sub
End Class