タイトル : Re^4: 複数のForm上の同名のコントロールに関しての処理をまとめるには 投稿日 : 2007/08/10(Fri) 10:36 投稿者 : ひでと
ありがとうございます。 > > そうした共通のプロパティを持たせられないのであれば、やはり > AddHandler を使えばよいでしょう。レイトバインドで得たプロパティであっても、 > 適切にキャストさえすれば、イベントの割り当ては可能です。 たぶん、仰っていることはこういうかと思いやってみました。 1.既存フォームのコードの共通部分を切り取り、標準モジュール Mod1 に貼り付け。 2.標準モジュールに Public Obj as Object を追加。 3.標準モジュールの中で、既存フォームのコントロールを参照している部分が エラーとなるので、それを Obj.コントロールの形になおす。 4.標準モジュールのイベントプロシージャの Handles句を削除し、宣言をPublicに変更。 5.残された既存フォームの Loadイベントに Mod1.Obj=Me Mod1_Load(sender,e) AddHandler Button1.Click, AddressOf Mod1.Button1_Click 等を記載。 6.標準モジュール内で遅延バインディングのエラーがでたので、フォームのコントロール のModifiersプロパティをPublicに変更。 以上で今のところ動くみたいです。 ありがとうございました。 |