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

名前

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

本文 こんにちは。初めて質問させていただきます。 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)