別々のフォームから1つの関数をｃａｌｌするには？

ばんび 2004-08-02 14:47:46 No: 115263 IP: [192.*.*.*]

こんにちは。初めて質問させていただきます。
VB.NETでの質問です。

別々のフォームから値を入力し、マスタ参照のサブルーチンをcallし、
それぞれのフォームへ名称等を返したいのですが、どのようにすればよいのでしょうか？

フォーム１でtext1.textに値入力。入力後、マスタ参照関数call
フォーム２でtext1.textに値入力。入力後、マスタ参照関数call
マスタ参照関数
Public Sub InpSiire(ByRef Frm As ***, ByVal sender As Object,         ByVal e As System.Windows.Forms.KeyEventArgs)

     With Frm
       strsql = "select * from siire_mst where                                             siirecd='"& .TextBox1.Text & "'"
       **  ＤＢよりマスタを参照し、名称を返す  **
         .Label10.Text = CType(cnRd.Item("siireme"), String)

編集削除

ばんび 2004-08-02 15:00:08 No: 115264 IP: [192.*.*.*]

すいません。
間違って送信してしまいました。

編集削除