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

タイトル 初めまして
投稿日: 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は動作しません。

引数の型をどのようにすれば全てうまく動くのか教えていただきたいです。

宜しくお願いいたします。

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

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