タイトル | : 配列を使ったイベント処理 |
記事No | : 5351 |
投稿日 | : 2007/04/17(Tue) 09:37 |
投稿者 | : ひでと |
お世話になります。また、おかしな質問かもしれませんがよろしくお願いします。 以下のようにして、配列で宣言したオブジェクトでイベントを発生させ、 それを取得したいのですが、どのようにしたらよいのでしょうか?
Public Class Form1 Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a As New test1 Dim b As New test2 a.Obj.Add(b) a.Obj(0).Prop = 1 End Sub End Class
Class test1 Private WithEvents newObj As New List(Of test2) Public Property Obj() As List(Of test2) Get If newObj Is Nothing Then Return New List(Of test2) Else Return newObj End If End Get Set(ByVal value As List(Of test2)) newObj = value End Set End Property Private Sub Prop_Event() Handles newObj.??? '処理 End Sub End Class
Class test2 Private newProp As Integer Public Event Prop_Event() Public Property Prop() As Integer Get Return newProp End Get Set(ByVal value As Integer) newProp = value RaiseEvent Prop_Event() End Set End Property End Class
|