vb.net ボタンがどのフォームからクリックされたのか判別しフォームの関数を実行する

Question

いつもお世話になっております。

タイトル通り、どのフォームのボタンがクリックされたのかを判別し、
ボタンからフォームの関数を呼び出したいです。

Public Class btnOpe : Inherits CustomControl1

	Friend Sub btnOpe_Click(sender As Object, e As EventArgs) Handles Me.Click

		F_Dentaku.Operator_Click(Me.Text)

	End Sub

End Class

Public NotInheritable Class F_Dentaku

省略

Friend Sub Operator_Click(ByVal strOpe As String)

省略

end sub

end class

最初はこのように書いたのですが、フォームが複数開いていた場合うまくいきませんよね。

よろしくお願い致します。

Answer 1

ボタンのクリックイベント btnOpe_Click に、

  sender As Object

があります。これが「ボタンをクリックした時の、ボタンそのもの」を指していますから、sender が何であるかをイベントハンドラの中で判断すればよい、のですが……
単に「そのボタンが乗っている form」であれば、button の FindForm() を呼び出せばよいです。

Sub btnOpe_Click(sender As Object, e As EventArgs) Handles Me.Click
  Button b = TryCast(Object, Button)
  If b IsNot Nothing Then
    Form f = b.FindForm()
    ...
  EndIf
End Sub

Comments

[_ali]

Dim frmcall As Form = Me.FindForm

このように自分が載っているformを取得するということであってますか？
そこから、どうやって関数を実行するのでしょうか。
単に
frmcall.btnOpe_Click(Me.Text)
では呼べませんでした。

Answer 2

キャストが必要だったのですね。
いろいろとこんがらがって難しく考えすぎていました。
以下のコードで解決しました。

Friend Sub btnOpe_Click(sender As Object, e As EventArgs) Handles Me.Click

		'ボタンがあるフォームの関数を呼ぶ
		'フォーム型をクラスにキャストする
		DirectCast(Me.FindForm, F_Dentaku).Operator_Click(Me.Text)

End Sub