タイトル | : イベントの継承ができない? |
記事No | : 7257 |
投稿日 | : 2008/03/28(Fri) 15:02 |
投稿者 | : ダンボ |
Createdというイベントを持つ基本クラスBaseDefを継承したShelfDefに対して、 下記のようにコーディング(関連部分だけ記載)したのですが、実行しても Shelf_Createdが呼出されません。(泣) どこが悪いのでしょうか?
(基本クラス) Public MustInherit Class BaseDef Public Event Created(ByVal sender As Object, ByVal e As EventArgs) Private innerDefFileFullpath As String Sub New(ByVal DefFileFullPath As String) innerDefFileFullpath = DefFileFullPath RaiseEvent Created(Me, New EventArgs) End Sub End Class
(派生クラス) Public Class ShelfDef Inherits BaseDef Sub New(ByVal DefFileFullPath As String) MyBase.New(DefFileFullPath) End Sub End Class
(利用側クラス) Dim WithEvents Shelf As ShelfDef Shelf = New ShelfDef(DefFileFullPath) 'これを実行することによりShelf_Createdが呼ばれる筈
Private Sub Shelf_Created(ByVal sender As Object, ByVal e As EventArgs) Handles Shelf.Created Shelf.Open() End Sub
|