tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re^2: TreeViewのソート
投稿日: 2008/06/16(Mon) 18:09
投稿者はじめちゃん
魔界の仮面弁士様
いつもご指導ありがとう御座います。
いただいたサンプルではこちらの環境でもソートされるのですが。

私のコードは以下のような事をしているのですが。
順番どおりに出力されるだけでソートされません。

    With TreeView1
        .Nodes.Clear
        .Sorted = True
        .LabelEdit = tvwManual
        .LineStyle = tvwRootLines
        Set objNode = .Nodes.Add(, , "R0", "サーバ", "Folder", "Folder")
        objNode.Tag = "1選択したテンプレートフォルダ \\サーバ" & vbCrLf & "選択したベースフォルダ \\サーバ"
        objNode.Expanded = True
        For i = UBound(avModels, 1) To 0 Step -1
            If (avModels(i, 3) = 1) Then
                Set objNode = .Nodes.Add("R" & avModels(i, 2), tvwChild, "R" & avModels(i, 1), avModels(i, 0), "Folder", "Folder")
                objNode.Tag = "1名前: " & avModels(i, 0) & vbCrLf & _
                            "ID: " & avModels(i, 1) & vbCrLf & _
                            "タイプ: " & iifType(avModels(i, 3)) & vbCrLf & _
                            "パス: " & avModels(i, 9)
            End If
        Next i
        For i = 0 To UBound(avModels, 1)
            If (avModels(i, 3) = 2) Then
                Set objNode = .Nodes.Add("R" & avModels(i, 2), tvwChild, "Key" & i, avModels(i, 0), "Model", "Model")
                objNode.Tag = "2名前: " & avModels(i, 0) & vbCrLf & _
                            "ID: " & avModels(i, 1) & vbCrLf & _
                            "タイプ: " & iifType(avModels(i, 3)) & vbCrLf & _
                            "パス: " & avModels(i, 9) & vbCrLf & vbCrLf & _
                            iifPublished(avModels(i, 4)) & vbCrLf & _
                            "バージョン: " & avModels(i, 6) & vbCrLf & _
                            "前回保存日: " & avModels(i, 5) & vbCrLf & _
                            "作成者: " & avModels(i, 7)
            ElseIf (avModels(i, 3) = 3) Then
                Set objNode = .Nodes.Add("R" & avModels(i, 2), tvwChild, "Key" & i, avModels(i, 0), "Base", "Base")
                objNode.Tag = "3名前: " & avModels(i, 0) & vbCrLf & _
                            "ID: " & avModels(i, 1) & vbCrLf & _
                            "タイプ: " & iifType(avModels(i, 3)) & vbCrLf & _
                            "パス: " & avModels(i, 9) & vbCrLf & vbCrLf & _
                            iifPublished(avModels(i, 4)) & vbCrLf & _
                            "バージョン: " & avModels(i, 6) & vbCrLf & _
                            "前回保存日: " & avModels(i, 5) & vbCrLf & _
                            "作成者:" & avModels(i, 7)
            ElseIf (avModels(i, 3) = 4) Then
                Set objNode = .Nodes.Add("R" & avModels(i, 2), tvwChild, "Key" & i, avModels(i, 0), "Template", "Template")
                objNode.Tag = "4名前: " & avModels(i, 0) & vbCrLf & _
                            "ID: " & avModels(i, 1) & vbCrLf & _
                            "タイプ: " & iifType(avModels(i, 3)) & vbCrLf & _
                            "パス: " & avModels(i, 9) & vbCrLf & vbCrLf & _
                            "バージョン: " & avModels(i, 6) & vbCrLf & _
                            "前回保存日: " & avModels(i, 5) & vbCrLf & _
                            "作成者: " & avModels(i, 7)
            End If
        Next i
        .Refresh
    End With

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。