サンプル投稿用掲示板　　VB2005 〜 用トップページ　　VB6.0 用 トップページ TreeViewで現在アクティブになっている項目の階層を取得(VB6.0) ( No.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

　[スレッド一覧へ]　[親スレッドへ]