tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル イベントの継承ができない?
投稿日: 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

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。