複数フォームへのイベントの通知方法について

質問

Visual Basic2005にてプログラミングをしております。プログラミング初心者です。
以下、どなたかご教授いただけませんでしょうか？

あるクラスを定義し、そのクラスの1つのインスタントがイベントを出した時に、
フォーム1～フォーム3の各Formにイベントを通知する様なプログラムを作成しております。

複数フォームへのイベントの通知方法として、以下の様なやり方は一般的に正しいのでしょうか？
プログラムを実行させて見ると、動作上は何の問題もなく動いている様に見えますが、
プログラミング経験が少ない事もあり、以下のやり方が本当に正しいのかどうか、あまり自信が持てません。
どなたかご教授いただけると助かります。宜しくお願い致します。

===================================================================================
'クラスA
Public Class classA
　　Public Event StatusChange(ByVal status As Integer)
　　Public Event MassageOutput(ByVal message As String)
　　Private status As Integer

　　Private Sub EventReport1()
　　　　　　status = 5
　　　　　　'statusの変更を通知するイベントを生成させる
　　　　　　RaiseEvent StatusChange(status)
　　End Sub

　　Private Sub EventReport2()
　　　　　　'メッセージを通知するイベントを生成させる
　　　　　　RaiseEvent MassageOutput("メッセージを通知します")
　　End Sub
End Class

'モジュール
Module moduleA
　　Public myInstance As New classA
End Module

'フォーム1
Public Class form1
　　Private WithEvents myInstance1 As classA
　　Public Sub New()
　　　　　　InitializeComponent()
　　　　　　myInstance1 = myInstance
　　End Sub
　　Private Sub StatusChange(ByVal message As String) _
　　　　　　　　　　　　　　　Handles myInstance1.MassageOutput
　　　　　　TextBox1.Text = message
　　End Sub
End Class

'フォーム2
Public Class form2
　　Private WithEvents myInstance1 As classA
　　Public Sub New()
　　　　　　InitializeComponent()
　　　　　　myInstance1 = myInstance
　　End Sub
　　Private Sub StatusChange(ByVal status As Byte) _
　　　　　　　　　　　　　　　Handles myInstance1.MassageOutput
　　　　　　TextBox1.Text = status.ToString
　　End Sub
End Class

'フォーム3
Public Class form3
　　Private WithEvents myInstance1 As classA
　　Public Sub New()
　　　　　　InitializeComponent()
　　　　　　myInstance1 = myInstance
　　End Sub
　　Private Sub StatusChange(ByVal status As Byte) _
　　　　　　　　　　　　　　　Handles myInstance1.MassageOutput
　　　　　　TextBox1.Text = (status + 10).ToString
　　End Sub
End Class
===================================================================================

回答No.1

田中 裕之（@bybalsendercase） · ベストアンサー

こんにちは

よくできていま～す。

＞一般的に正しいのでしょうか？
個人的な好みや、使い方によって変わりますので、どれが正しいとは言えないと思います。
so7752 さんが、このコードを使用してみて、いいと思えばそれは非常にいい出来栄えです。

本当に一般的といえば、イベントの場合
StatusChange2（ByVal sender As System.Object, ByVal e As System.EventArgs）
のようにいらないsenderを記入していたりします。
それでも、引数が1個でいいならByVal sender As System.Objectはいりませんね。

サンプルです。

Public Class Form1
Private WithEvents myInstance1 As New classA
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim f As New Form2
myInstance1.EventReport1()
myInstance1.EventReport2()
f.Show()
End Sub
Private Sub StatusChange1(ByVal sender As Object, ByVal message As Integer) Handles myInstance1.StatusChange
TextBox1.Text = message
End Sub
Private Sub StatusChange2(ByVal sender As Object, ByVal message As String) Handles myInstance1.MassageOutput
TextBox1.Text &= " " & message
End Sub
End Class

Public Class Form2
Private WithEvents myInstance1 As New classA
Private Sub f2() Handles MyBase.Shown
myInstance1.EventReport2()
End Sub
Private Sub StatusChange(ByVal sender As Object, ByVal e As String) Handles myInstance1.MassageOutput
TextBox1.Text = e.ToString
End Sub
End Class

Public Class classA
Public Event StatusChange(ByVal sender As Object, ByVal e As Integer)
Public Event MassageOutput(ByVal sender As Object, ByVal e As String)
Private status As Integer
Public Sub EventReport1()
status = 5
'statusの変更を通知するイベントを生成させる
RaiseEvent StatusChange(Me, status)
End Sub
Public Sub EventReport2()
'メッセージを通知するイベントを生成させる
RaiseEvent MassageOutput(Me, "メッセージを通知します")
End Sub
End Class

上記はso7752 さんの目的の動作とは違いますが、イベントで値を渡すときの基本的な記述です。

お礼

bybalsendercaseさん、ありがとうございました。少し自信が持てました。
senderについては知りませんでしたので、大変勉強になりました。
今後ともご教授いただくことがあるかと思いますが、どうぞ宜しくお願い致します。