|
ｿｽ@ｿｽｿｽtreeviewｿｽﾅ子ｿｽmｿｽ[ｿｽhｿｽｿｽﾇ会ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
ｿｽﾍなゑｿｽ 2007/06/10(ｿｽｿｽ) 22:15:35
ｿｽfｿｽ[ｿｽ^ｿｽｿｽﾇゑｿｽｿｽtreeviewｿｽﾉ移托ｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾉ、ｿｽeｿｽmｿｽ[ｿｽhｿｽｿｽwｿｽ閧ｵｿｽﾄ子ｿｽmｿｽ[ｿｽhｿｽｿｽﾇ会ｿｽｿｽｿｽｿｽ驍ｱｿｽﾆゑｿｽｿｽﾄでゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽH
ｿｽfｿｽ[ｿｽ^ｿｽﾍ「ｿｽRｿｽ[ｿｽhｿｽvｿｽuｿｽｿｽｿｽﾌ」ｿｽuｿｽeｿｽRｿｽ[ｿｽhｿｽvｿｽﾆなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽKｿｽwｿｽﾍ不ｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾌ仕ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽqｿｽbｿｽgｿｽｿｽｿｽﾈゑｿｽｿｽﾄ・ｿｽEｿｽE
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2007/06/11(ｿｽｿｽ) 00:42:22
> ｿｽeｿｽmｿｽ[ｿｽhｿｽｿｽwｿｽ閧ｵｿｽﾄ子ｿｽmｿｽ[ｿｽhｿｽｿｽﾇ会ｿｽｿｽｿｽｿｽ驍ｱｿｽﾆゑｿｽｿｽﾄでゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽH
ｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽﾇの包ｿｽｿｽｿｽｿｽﾅ搾ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽ?
ｿｽETreeView ｿｽﾌ使ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽB
ｿｽEｿｽmｿｽ[ｿｽhｿｽﾌ会ｿｽｿｽﾉ、ｿｽqｿｽmｿｽ[ｿｽhｿｽｿｽﾇ会ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽかｿｽｿｽﾈゑｿｽｿｽB
ｿｽEｿｽｿｽｿｽﾅに追会ｿｽｿｽｿｽｿｽ黷ｽｿｽmｿｽ[ｿｽhｿｽｿｽ謫ｾｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽvｿｽｿｽｿｽﾂゑｿｽｿｽﾈゑｿｽｿｽB
ｿｽﾍなゑｿｽ 2007/06/11(ｿｽｿｽ) 10:00:36
ｿｽｿｽｿｽｿｽsｿｽｿｽｿｽﾅ申ｿｽｿｽｿｽけｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
TreeViewｿｽｿｽgｿｽｿｽｿｽﾌゑｿｽｿｽｿｽﾟてなので、ｿｽ}ｿｽjｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾂつコｿｽ[ｿｽfｿｽBｿｽｿｽｿｽOｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽRｿｽ[ｿｽhｿｽ@ｿｽｿｽｿｽﾌ ｿｽeｿｽRｿｽ[ｿｽh
001 ｿｽeｿｽPｿｽ@000ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽeｿｽP--ｿｽqｿｽP
002 ｿｽqｿｽPｿｽ@001ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@|
003 ｿｽqｿｽQｿｽ@001ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@--ｿｽqｿｽQ
004ｿｽ@ｿｽ@ ｿｽeｿｽQｿｽ@000
005 ｿｽqｿｽP 004ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽeｿｽQ--ｿｽqｿｽP
006 ｿｽｿｽｿｽP 005ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@|
ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ ｿｽ@--ｿｽｿｽｿｽQ
ｿｽfｿｽ[ｿｽ^ｿｽｿｽｿｽｿｽｿｽLｿｽﾆゑｿｽｿｽﾄ、ｿｽEｿｽLｿｽﾌようｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽKｿｽwｿｽﾍ会ｿｽｿｽKｿｽwｿｽﾉなるかｿｽかｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2007/06/11(ｿｽｿｽ) 12:12:12
'ｿｽﾆりあｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽfｿｽ[ｿｽ^ｿｽｿｽ DataTable ｿｽﾉゑｿｽｿｽｿｽﾆ会ｿｽｿｽ閧ｵｿｽﾄ…ｿｽc
Private dataTable1 As New DataTable
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
ｿｽ@dataTable1.Columns.Add("ｿｽRｿｽ[ｿｽh")
ｿｽ@dataTable1.Columns.Add("ｿｽｿｽｿｽｿｽ")
ｿｽ@dataTable1.Columns.Add("ｿｽeｿｽRｿｽ[ｿｽh")
ｿｽ@dataTable1.Rows.Add("001", "ｿｽeｿｽP", "000")
ｿｽ@dataTable1.Rows.Add("002", "ｿｽqｿｽP", "001")
ｿｽ@dataTable1.Rows.Add("003", "ｿｽqｿｽQ", "001")
ｿｽ@dataTable1.Rows.Add("004", "ｿｽeｿｽQ", "000")
ｿｽ@dataTable1.Rows.Add("005", "ｿｽqｿｽP", "004")
ｿｽ@dataTable1.Rows.Add("006", "ｿｽｿｽｿｽP", "005")
ｿｽ@dataTable1.AcceptChanges()
End Sub
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
ｿｽ@Dim view As New DataView(dataTable1)
ｿｽ@view.Sort = "ｿｽeｿｽRｿｽ[ｿｽh,ｿｽRｿｽ[ｿｽh"
ｿｽ@With TreeView1.Nodes
ｿｽ@ｿｽ@For Each row As DataRowView In view
ｿｽ@ｿｽ@ｿｽ@Dim code As String = row("ｿｽRｿｽ[ｿｽh").ToString()
ｿｽ@ｿｽ@ｿｽ@Dim itemName As String = row("ｿｽｿｽｿｽｿｽ").ToString()
ｿｽ@ｿｽ@ｿｽ@Dim parentCode As String = row("ｿｽeｿｽRｿｽ[ｿｽh").ToString()
ｿｽ@ｿｽ@ｿｽ@Dim parentNodes() As TreeNode = .Find(parentCode, True)
ｿｽ@ｿｽ@ｿｽ@If parentNodes.Length > 0 Then
ｿｽ@ｿｽ@ｿｽ@ｿｽ@parentNodes(0).Nodes.Add(code, itemName)
ｿｽ@ｿｽ@ｿｽ@Else
ｿｽ@ｿｽ@ｿｽ@ｿｽ@.Add(code, itemName)
ｿｽ@ｿｽ@ｿｽ@End If
ｿｽ@ｿｽ@Next
ｿｽ@End With
End Sub
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2007/06/11(ｿｽｿｽ) 12:43:49
>ｿｽ@view.Sort = "ｿｽeｿｽRｿｽ[ｿｽh,ｿｽRｿｽ[ｿｽh"
ｿｽｿｽｿｽｿｽBｿｽRｿｽ[ｿｽhｿｽｿｽｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽﾆ、
dataTable1.Rows.Add("050", "ｿｽeｿｽP", "000")
dataTable1.Rows.Add("030", "ｿｽqｿｽP", "050")
dataTable1.Rows.Add("020", "ｿｽｿｽｿｽP", "030")
ｿｽﾌようｿｽﾈデｿｽ[ｿｽ^ｿｽﾌ趣ｿｽｿｽﾉゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾋ。
ｿｽﾈ会ｿｽｿｽAｿｽｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽBVB2005 ｿｽｿｽｿｽｿｽｿｽﾉ擾ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
=================
Public Class NodeItem
ｿｽ@Inherits TreeNode
ｿｽ@Public ReadOnly Code As String
ｿｽ@Public ReadOnly ParentCode As String
ｿｽ@Public Sub New(ByVal row As DataRow)
ｿｽ@ｿｽ@MyClass.Text = row("ｿｽｿｽｿｽｿｽ").ToString()
ｿｽ@ｿｽ@Code = row("ｿｽRｿｽ[ｿｽh").ToString()
ｿｽ@ｿｽ@ParentCode = row("ｿｽeｿｽRｿｽ[ｿｽh").ToString()
ｿｽ@End Sub
End Class
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
ｿｽ@'ｿｽeｿｽqｿｽﾖ係ｿｽｿｽｿｽｿｽｿｽﾅノｿｽ[ｿｽhｿｽｿｽ成
ｿｽ@Dim nodes As New Dictionary(Of String, NodeItem)()
ｿｽ@For Each row As DataRow In dataTable1.Rows
ｿｽ@ｿｽ@Dim item As New NodeItem(row)
ｿｽ@ｿｽ@nodes.Add(item.Code, item)
ｿｽ@Next
ｿｽ@'ｿｽeｿｽqｿｽﾖ係ｿｽｿｽ¥ｿｽz
ｿｽ@Dim rootNodes As New List(Of NodeItem)()
ｿｽ@For Each item As NodeItem In nodes.Values
ｿｽ@ｿｽ@If nodes.ContainsKey(item.ParentCode) Then
ｿｽ@ｿｽ@ｿｽ@nodes(item.ParentCode).Nodes.Add(item)
ｿｽ@ｿｽ@Else
ｿｽ@ｿｽ@ｿｽ@rootNodes.Add(item)
ｿｽ@ｿｽ@End If
ｿｽ@Next
ｿｽ@'ｿｽｿｽﾊに費ｿｽｿｽf
ｿｽ@TreeView1.Nodes.AddRange(rootNodes.ToArray())
End Sub
ｿｽﾍなゑｿｽ 2007/06/11(ｿｽｿｽ) 21:24:44
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士ｿｽｿｽｿｽｿｽAｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
Dim nodes As New Dictionary(Of String, NodeItem)()
Dim rootNodes As New List(Of NodeItem)()
ｿｽｿｽDictionaryｿｽｿｽListｿｽｿｽｿｽｿｽ`ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽﾌエｿｽｿｽｿｽ[ｿｽﾉなゑｿｽﾌでゑｿｽｿｽｿｽｿｽH
ｿｽｿｽｿｽｿｽﾎゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2007/06/11(ｿｽｿｽ) 23:18:04
ｿｽｿｽｿｽ
> VB2005 ｿｽｿｽｿｽｿｽｿｽﾉ擾ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾆ擾ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽ謔､ｿｽﾉ、List(Of T) ｿｽｿｽ Dictionary(Of T) ｿｽｿｽgｿｽｿｽｿｽﾉゑｿｽ
VB2005 ｿｽｿｽｿｽKｿｽvｿｽﾅゑｿｽｿｽBｿｽｿｽｿｽﾈゑｿｽｿｽﾌ環具ｿｽｿｽﾍなゑｿｽﾅゑｿｽｿｽｿｽ?
ｿｽﾍなゑｿｽ 2007/06/11(ｿｽｿｽ) 23:43:43
ｿｽﾂ具ｿｽｿｽｿｽVisual Studio 2005ｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2007/06/11(ｿｽｿｽ) 23:54:46
ｿｽﾓむ。ｿｽWｿｽｿｽｿｽﾅは使ｿｽｿｽｿｽｿｽﾍゑｿｽｿｽﾈのでゑｿｽｿｽｿｽｿｽﾋ。
ｿｽﾅは、.vb ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾌコｿｽ[ｿｽhｿｽﾌ茨ｿｽﾔ先頭(Public Class Form1ｿｽｿｽｿｽO)ｿｽﾉ、
ｿｽ@Imports System.Collections.Generic
ｿｽﾆ擾ｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽﾍ、ｿｽｿｽｿｽ黷ｼｿｽｿｽﾌ変撰ｿｽｿｽ骭ｾｿｽｿｽA
ｿｽ@Dim rootNodes As New System.Collections.Generic.List(Of NodeItem)()
ｿｽﾌようｿｽﾉフｿｽｿｽｿｽlｿｽ[ｿｽｿｽｿｽﾅ指ｿｽ閧ｵｿｽﾄみてゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽﾍなゑｿｽ 2007/06/12(ｿｽｿｽ) 08:48:51
ｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽI
ｿｽｿｽｿｽｿｽｿｽbｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
