TreeViewのTag情報取得

質問

VB.NET2003 を使用して、
CheckBox付のTreeViewを作成しました。
階層は３階層用意して、最下層のTextに人名・Tagにメールアドレスをセットしました。

下記のサンプルの場合、チェックを入れたＤさんのメールアドレスのみを
取得したいのですが、どのよう書けばよろしいでしょうか？
ご教授いただけますよう、お願い致します。

TreeViewイメージ
□本部
　□総務課
　　□Ａさん
　　□Ｂさん
　□人事課
　　□Ｃさん
　　■Ｄさん
　　□Ｅさん
□営業
　□東京
　　□Ｆさん
　　□Ｇさん

TreeView作成コード
Dim parentrow As DataRow
Dim ParentTable As DataTable

For Each parentrow In ds.Tables("Ａ").Rows
Dim parentnode As TreeNode
parentnode = New TreeNode(parentrow.Item("SHOZOKU").ToString)
treeView1.Nodes.Add(parentnode)
''''child'''''
Dim childrow As DataRow
Dim childnode As TreeNode
childnode = New TreeNode
For Each childrow In parentrow.GetChildRows("Ａ")
childnode = parentnode.Nodes.Add(childrow("BUSHO_NAME").ToString)
''''child2''''
Dim childrow2 As DataRow
Dim childnode2 As TreeNode
childnode2 = New TreeNode
For Each childrow2 In childrow.GetChildRows("Ｂ")
childnode2 = childnode.Nodes.Add(childrow2("NAME").ToString)
childnode2.Tag = childrow2("MAIL").ToString
Next childrow2
''''''''''''''''''''''''
Next childrow
'''''''''''''''
Next parentrow
treeView1.CheckBoxes = True

回答No.1

redfox63 · ベストアンサー

チェックされたのをいつ所得したいのでしょう?

チェックされた時点でいいのであれば TreeViewのAfterChekイベントで

dim nd as TreeNode
nd = e.Node
if nd.Checked then
　　MsgBox(nd.Tag)
end if

別のイベント たとえば別ボタンのClick時点なら

dim ndParent, ndChaild1, ndChaild2 as TreeNode
dim sb as new System.Text.StringBuilder
for each ndParent in TreeView1.Nodes
　　for each ndChild1 in ndParent.Nodes
　　　　for each ndchild2 in ndChild1.Nodes
　　　　　　if ndChild2.Chkeced then
　　　　　　　　if sb.Length <> 0 then
　　　　　　　　　　sb.Append( vbCrLf )
　　　　　　　　end if
　　　　　　　　sb.Append( ndChild2.Tag )
　　　　　　end if
　　　　next ' ndChild2
　　next ' 　　ndChild1
next ' 　　　　ndParent
MsgBox(sb.ToString)

といった具合になるかと

お礼

完璧なご回答有り難うございます！
すぐに解決致しました。
非常に参考になりました。

補足

教えて頂いた通り、
別のボタンクリック時にデータ取得したいと考えております。
上記内容でまずは試したいと思います。
有り難うございます。