サンプル投稿用掲示板 VB2005 〜 用トップページ VB6.0 用 トップページ
- 日時： 2007/09/14 22:25
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[ツリービュー][][] *
* キーワード：TreeView,階層,,,, *
***********************************************************************************
元質問：TreeViewの階層取得方法 - 神威 2007/07/09-13:21No.9569
TreeViewコントロールにて、現在アクティブになっている項目の階層を取得したいのですが
取得するにはどのようにしたらよろしいでしょうか？
-----------------------------------------------------------------------------------
Re: TreeViewの階層取得方法 - 魔界の仮面弁士 2007/07/09-14:29 No.9570
-----------------------------------------------------------------------------------
Private Sub Command1_Click()
Dim n As Node
Set n = TreeView1.SelectedItem
Dim level As Long
level = 0
Do Until n Is Nothing
Set n = n.Parent
level = level + 1
Loop
If level = 0 Then
MsgBox "選択されていません"
Else
MsgBox Format(level, "第0階層にいます")
End If
End Sub
|
