ユーザーコントロールの実装について

質問

早速質問させて頂きます。

VB2005でWindowsアプリを作成しております。
下記の５項目を持つ得意先マスタがあります。
(1)得意先コード
(2)得意先名称
(3)得意先カナ
(4)得意先住所
(5)得意先電話番号

得意先名称検索機能はよく使うので、(1)をキーとして検索した結果を
(2)(3)にセットする機能をユーザーコントロールにしました。

あるFormにこのユーザーコントロールと(4)(5)をセットしました。
ユーザーコントロールで得意先検索を行った際に、(4)(5)も同時にセットしたいのですが
どのタイミングで処理を行えばよいのでしょうか？

すみませんがご教授の程よろしくお願い致します。

回答No.1

naganaga_001 · ベストアンサー

お世話になります。

ユーザーコントロールでセットした時に RaiseEvent してやると
いいと思います。
■ユーザーコントロールのコード
Public Class UserControl1
　　Public Event OnSetNames(ByVal sender As Object, ByVal data As DataSet)
　　Private Sub 取引先の名前をセットする()
　　　　Dim データセット As DataSet = 検索処理()
　　　　Me.TextBox1.Text = Convert.ToString(data.Tables("得意先マスタ").Rows(0)("得意先名称"))
　　　　Me.TextBox2.Text = Convert.ToString(data.Tables("得意先マスタ").Rows(0)("得意先カナ"))
　　　　' イベントを発生させる
　　　　RaiseEvent OnSetNames(Me, データセット)
　　End Sub
End Class

■ユーザーコントロールを貼り付けた Form 側のコード
Public Class Form1
　　Private Sub UserControl11_OnSetNames(ByVal sender As Object, ByVal data As System.Data.DataSet) Handles UserControl11.OnSetNames
　　　　Me.TextBox1.Text = Convert.ToString(data.Tables("得意先マスタ").Rows(0)("住所")) '得意先住所
　　　　Me.TextBox2.Text = Convert.ToString(data.Tables("得意先マスタ").Rows(0)("電話番号")) '得意先電話番号
　　End Sub
End Class

お礼

naganaga_001さん
ご丁寧に説明をして頂きましてありがとうございました。
仕組みがよく理解できました。