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

■No76199 (しゃむこ さん) に返信

> 'ユーザコントロール
> 'Btn1を置いています。
> Public Class UserControl1
> 　Public Event Btn1Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
> 　Private Sub Btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn1.Click
> 　　RaiseEvent Btn1Click(sender, e)
> 　End Sub
> End Class

この部分を
> 　　RaiseEvent Btn1Click(Me, e)
にしてみたらどうでしょうか。

独自のEventArgsを作るとか。

Public Class ButtonClickEventArgs
	Inherits EventArgs
	Public Sub New(ByVal index As Integer)
		Me.m_index = index
	End Sub
	Public ReadOnly Property Index As Integer
		Get
			Return Me.m_index
		End Get
	End Property
	Private m_index As Integer
End Class

Public Class UserControl1
	Public Event BtnClick As EventHandler(Of ButtonClickEventArgs)
	Private Sub Btn1_Click(ByVal sender As Object, ByVal e As EventArgs)
		Dim index As Integer
		' 適当にindexを取得
		RaiseEvent BtnClick(sender, New ButtonClickEventArgs(index))
	End Sub
End Class

' Form側はe.Indexを参照する。