【コントロール配列のイベントを受け取る方法】宜しくお願いします。 (ID:116086)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 結論から言うと『できません』。 イベント引数が違う事からもわかりますように、 「通常のTextBox」と「コントロール配列のTextBox」は、 実際には別の種類のコントロールです。 「コントロール配列のTextBox」は、「通常のTextBox」から派生しているため、 どちらも『Private X As TextBox』な変数に格納する事ができます。しかし、 WithEvents 付きの変数に格納した場合には、実行時エラーとなります。 これは、コントロール配列に限った話ではなく、自作クラスでも起きる現象です。 '===== クラスモジュール [BaseClass] (基本となるクラス) Option Explicit Public Event Completed() Public Sub Finish() End Sub '===== クラスモジュール [DerivedClass] (派生クラス) Option Explicit Implements BaseClass Public Event Completed() Private Sub BaseClass_Finish() RaiseEvent Completed End Sub '===== フォームモジュール [Form1] (呼び出し側) Option Explicit Private WithEvents BC As BaseClass Private WithEvents DC As DerivedClass Private Sub Command1_Click() Set DC = New DerivedClass Set BC = New BaseClass Set BC = DC '←実行時エラー459 BC.Finish Set BC = Nothing Set DC = Nothing End Sub