タイトル : 初めまして 投稿日 : 2006/11/08(Wed) 22:31 投稿者 : プログラム勉強中
初めまして、早速ですが質問です。 共通の関数を作ろうとしているのですが、型の引渡しで悩んでいます。 プログラム、プロジェクトの内容は下記のとおりです。 プロジェクト名「ルート名前空間名」 Sample フォーム名「クラス名」 Test1 Test2 Test3 Test4 モジュール名 Common ※それぞれのフォームには 関数「UserControlGotFocus」が存在します。 Module Common Public Sub setCtrl(ByRef Form As ※この部分が分かりません) Dim ctrl As Control For Each ctrl In Form.Controls AddHandler ctrl.GotFocus, AddressOf Form.UserControlGotFocus Next End Sub End Module 上記同様で Module Common Public Sub setCtrl(ByRef Form As Sample.Test1) Dim ctrl As Control For Each ctrl In Form.Controls AddHandler ctrl.GotFocus, AddressOf Form.UserControlGotFocus Next End Sub End Module にすると Test1はうまく動作しますが、当然他の2,3,4は動作しません。 引数の型をどのようにすれば全てうまく動くのか教えていただきたいです。 宜しくお願いいたします。 |