|
ｿｽ@ｿｽｿｽｿｽcｿｽｿｽｿｽ[ｿｽrｿｽｿｽｿｽ[ｿｽﾌノｿｽ[ｿｽhｿｽﾌ表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾖゑｿｽｿｽｿｽﾉは？
|
ｿｽ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
ｿｽGｿｽｿｽｿｽNｿｽgｿｽｿｽｿｽbｿｽNｿｽgｿｽ[ｿｽ}ｿｽX 2005/06/16(ｿｽｿｽ) 00:40:47
VB6ｿｽﾅの趣ｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽcｿｽｿｽｿｽ[ｿｽrｿｽｿｽｿｽ[ｿｽﾅ会ｿｽｿｽLｿｽﾌようｿｽﾈツｿｽｿｽｿｽ[ｿｽｿｽﾅ擾ｿｽｿｽﾉ搾ｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽbｿｽQｿｽAｿｽCｿｽeｿｽｿｽｿｽP
ｿｽbｿｽ@ｿｽ@ｿｽ@ｿｽbｿｽQｿｽQｿｽAｿｽCｿｽeｿｽｿｽｿｽPｿｽP
ｿｽbｿｽ@ｿｽ@ｿｽ@ｿｽbｿｽQｿｽQｿｽAｿｽCｿｽeｿｽｿｽｿｽPｿｽQ
ｿｽbｿｽ@ｿｽ@ｿｽ@ｿｽbｿｽQｿｽQｿｽAｿｽCｿｽeｿｽｿｽｿｽPｿｽR
ｿｽbｿｽQｿｽAｿｽCｿｽeｿｽｿｽｿｽQ
ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽbｿｽQｿｽQｿｽAｿｽCｿｽeｿｽｿｽｿｽQｿｽP
ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽbｿｽQｿｽQｿｽAｿｽCｿｽeｿｽｿｽｿｽQｿｽQ
ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽbｿｽQｿｽQｿｽAｿｽCｿｽeｿｽｿｽｿｽQｿｽR
ｿｽAｿｽCｿｽeｿｽｿｽｿｽPｿｽﾆアｿｽCｿｽeｿｽｿｽｿｽQｿｽﾌ表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽqｿｽmｿｽ[ｿｽhｿｽｿｽｿｽﾜとめて難ｿｽｿｽｿｽﾖゑｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽ
ｿｽﾇのようｿｽﾉゑｿｽｿｽｿｽﾎでゑｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽbｿｽQｿｽAｿｽCｿｽeｿｽｿｽｿｽQ
ｿｽbｿｽ@ｿｽ@ｿｽ@ｿｽbｿｽQｿｽQｿｽAｿｽCｿｽeｿｽｿｽｿｽQｿｽP
ｿｽbｿｽ@ｿｽ@ｿｽ@ｿｽbｿｽQｿｽQｿｽAｿｽCｿｽeｿｽｿｽｿｽQｿｽQ
ｿｽbｿｽ@ｿｽ@ｿｽ@ｿｽbｿｽQｿｽQｿｽAｿｽCｿｽeｿｽｿｽｿｽQｿｽR
ｿｽbｿｽQｿｽAｿｽCｿｽeｿｽｿｽｿｽP
ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽbｿｽQｿｽQｿｽAｿｽCｿｽeｿｽｿｽｿｽPｿｽP
ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽbｿｽQｿｽQｿｽAｿｽCｿｽeｿｽｿｽｿｽPｿｽQ
ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽbｿｽQｿｽQｿｽAｿｽCｿｽeｿｽｿｽｿｽPｿｽR
ｿｽ¥ｿｽ[ｿｽgｿｽﾉゑｿｽｿｽｿｽｿｽﾗ替ゑｿｽｿｽﾅなゑｿｽｿｽCｿｽﾓの包ｿｽｿｽﾗ替ゑｿｽｿｽｿｽsｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾛはマｿｽEｿｽXｿｽhｿｽｿｽｿｽbｿｽOｿｽﾉゑｿｽ闖ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾖゑｿｽｿｽ黷ｽｿｽ轤｢ｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽﾜゑｿｽｿｽRｿｽ[ｿｽh
ｿｽﾅ擾ｿｽｿｽｿｽｿｽﾌ難ｿｽｿｽｿｽﾖゑｿｽｿｽｿｽsｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ考ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
Dim objNd1 As Node
Dim objNd2 As Node
Set objNd1 = TreeView1.Nodes(1)
Set objNd2 = TreeView1.Nodes(1).Next
Set TreeView1.Nodes(1) = objNd2
Set TreeView1.Nodes(1).Next = objNd1
ｿｽﾌようｿｽﾉ擾ｿｽｿｽｿｽｿｽﾄみゑｿｽｿｽﾌでゑｿｽｿｽｿｽSet TreeView1.Nodes(1) = objNd2ｿｽﾅコｿｽｿｽｿｽpｿｽCｿｽｿｽｿｽGｿｽｿｽｿｽ[ｿｽｿｽ
ｿｽﾈゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽUｿｽｿｽｿｽｿｽﾜゑｿｽ驍､ 2005/06/16(ｿｽｿｽ) 00:47:44
ｿｽﾟ具ｿｽｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽwTreeViewｿｽxｿｽﾅよくｿｽｿｽｿｽｿｽｿｽTｿｽｿｽｿｽvｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽH
ｿｽGｿｽｿｽｿｽNｿｽgｿｽｿｽｿｽbｿｽNｿｽgｿｽ[ｿｽ}ｿｽX 2005/06/16(ｿｽｿｽ) 10:41:01
ｿｽ答ゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽﾟ具ｿｽｿｽｿｽｿｽOｿｽｿｽQｿｽlｿｽﾉ、ｿｽmｿｽ[ｿｽhｿｽｿｽVｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽﾚ難ｿｽｿｽｿｽｿｽｿｽmｿｽ[ｿｽhｿｽﾌ要ｿｽfｿｽｿｽRｿｽsｿｽ[ｿｽｿｽ
ｿｽqｿｽmｿｽ[ｿｽhｿｽﾌ親ｿｽmｿｽ[ｿｽhｿｽｿｽVｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽmｿｽ[ｿｽhｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽqｿｽmｿｽ[ｿｽhｿｽﾌ１ｿｽﾂはゑｿｽｿｽｿｽｿｽﾆ親ｿｽmｿｽ[ｿｽhｿｽﾉ付ｿｽｿｽｿｽﾄ移難ｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽ
ｿｽcｿｽｿｽﾌ子ｿｽmｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽLｿｽ¥ｿｽ[ｿｽXｿｽｿｽ
Do While Not c Is Nothing
Set c.Parent = m
Set c = c.Next
Loop
ｿｽｿｽｿｽqｿｽmｿｽ[ｿｽhｿｽﾍ包ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌに１ｿｽしゑｿｽｿｽｿｽｿｽ[ｿｽvｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾟと包ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽﾈゑｿｽｿｽPｿｽしゑｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽﾍどゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔｢ｿｽﾌでゑｿｽｿｽ蛯､ｿｽB
ｿｽfｿｽﾅ擾ｿｽｿｽﾉ趣ｿｽｿｽsｿｽｿｽｿｽｿｽvｿｽｿｽｿｽVｿｽ[ｿｽWｿｽｿｽ
Private Sub Command1_Click()
MoveNode TreeView1.Nodes, TreeView1.Nodes(1), TreeView1.Nodes(1).Next
End Sub
' ns : TreeView.Nodes
' SrcNd : ｿｽﾚ難ｿｽｿｽｿｽｿｽｿｽmｿｽ[ｿｽh
' TgtNd : SrcNdｿｽﾚ難ｿｽｿｽｿｽﾌ抵ｿｽｿｽOｿｽﾌノｿｽ[ｿｽh(Nothingｿｽﾌ趣ｿｽｿｽﾍ先頭ｿｽﾉ移難ｿｽｿｽｿｽｿｽｿｽ)
'
Public Sub MoveNode(ns As Nodes, SrcNd As Node, TgtNd As Node)
Dim m As Node
Dim c As Node
If TgtNd Is Nothing Then
Set m = ns.Add(SrcNd.Index, tvwFirst, , SrcNd.Text, SrcNd.Image, SrcNd.SelectedImage)
Else
Set m = ns.Add(TgtNd.Index, tvwNext, , SrcNd.Text, SrcNd.Image, SrcNd.SelectedImage)
End If
Set c = SrcNd.Child.FirstSibling
Do While Not c Is Nothing '<--------ｿｽｿｽｿｽｿｽｿｽｿｽｿｽPｿｽｿｽﾅ終ｿｽｿｽｿｽ
Set c.Parent = m
Set c = c.Next
Loop
ns.Remove SrcNd.Key
m.Key = SrcNd.Key
Set SrcNd = Nothing
Set m = Nothing
End Sub
ｿｽｿｽｿｽUｿｽｿｽｿｽｿｽﾜゑｿｽ驍､ 2005/06/16(ｿｽｿｽ) 13:08:55
> Set c.Parent = m
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ_ｿｽｿｽ c ｿｽﾍ移難ｿｽｿｽｿｽﾉ移ゑｿｽｿｽﾄゑｿｽだゑｿｽｿｽｿｽAｿｽwｿｽｿｽｿｽｿｽ Nodeｿｽx
ｿｽﾆゑｿｽｿｽwｿｽ閧ｳｿｽｿｽﾄゑｿｽAｿｽﾜゑｿｽｿｽPｿｽﾂゑｿｽｿｽｿｽｿｽﾚ難ｿｽｿｽｿｽｿｽﾄなゑｿｽｿｽだゑｿｽｿｽ迹ｶｿｽｿｽ
ｿｽｿｽｿｽﾈゑｿｽｿｽｿｽﾋ。
ｿｽGｿｽｿｽｿｽNｿｽgｿｽｿｽｿｽbｿｽNｿｽgｿｽ[ｿｽ}ｿｽX 2005/06/16(ｿｽｿｽ) 17:00:58
ｿｽmｿｽ[ｿｽhｿｽﾌ親ｿｽmｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ_ｿｽﾅ、ｿｽｿｽｿｽﾌノｿｽ[ｿｽhｿｽﾍ以前ｿｽﾆゑｿｽ
ｿｽﾊグｿｽｿｽｿｽ[ｿｽvｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾌゑｿｽNextｿｽﾅは趣ｿｽｿｽ得ゑｿｽｿｽﾈゑｿｽｿｽﾆゑｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽﾆ暦ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾅ予ｿｽﾟ趣ｿｽｿｽﾌノｿｽ[ｿｽhｿｽｿｽ謫ｾｿｽｿｽｿｽ驍ｱｿｽﾆにゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
Set c = SrcNd.Child.LastSibling
Do While Not c Is Nothing
Set c2 = c.Previous
Set c.Parent = m
Set c = c2
Loop
ｿｽｿｽｿｽｿｽｿｽAｿｽﾅ擾ｿｽｿｽｿｽ Set c = SrcNd.Child.FirstSiblingｿｽﾆゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽ
ｿｽｿｽｿｽ黷ｾｿｽﾆなゑｿｽｿｽｿｽｿｽqｿｽmｿｽ[ｿｽhｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾅ擾ｿｽｿｽﾆ逆ｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾌゑｿｽLastSibling
ｿｽｿｽｿｽ轤ｵｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌなのでゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
ｿｽﾆにゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾚ的ｿｽﾌ難ｿｽｿｽｿｽｿｽｿｽ骼厄ｿｽｿｽｿｽﾅゑｿｽｿｽAｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽUｿｽｿｽｿｽｿｽﾜゑｿｽ驍､ 2005/06/16(ｿｽｿｽ) 17:37:25
> Set c = SrcNd.Child.LastSibling
SrcNd ｿｽﾉ子ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾆ暦ｿｽｿｽｿｽｿｽ驍ｩｿｽﾈ？
SrcNd ｿｽﾉ子ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ迴ｿｽﾉ移難ｿｽｿｽｿｽﾉ設抵ｿｽcｿｽｿｽｿｽﾍどゑｿｽｿｽｿｽRｿｽ[ｿｽfｿｽBｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽ
[VB6.0]
Me.TreeView1.Visible = False 'Node ｿｽｿｽｿｽｿｽRｿｽｿｽｿｽｿｽﾆ重ｿｽｿｽｿｽﾈゑｿｽﾌで費ｿｽ¥ｿｽｿｽ
Do While Not SrcNd.Child Is Nothing
Set c = SrcNd.Child.LastSibling
Set c.Parent = m
Loop
Me.TreeView1.Visible = True
ｿｽﾅどゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽHｿｽB
>ｿｽｿｽｿｽｿｽｿｽAｿｽﾅ擾ｿｽｿｽｿｽ Set c = SrcNd.Child.FirstSiblingｿｽﾆゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽ
>ｿｽｿｽｿｽ黷ｾｿｽﾆなゑｿｽｿｽｿｽｿｽqｿｽmｿｽ[ｿｽhｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾅ擾ｿｽｿｽﾆ逆ｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾌゑｿｽLastSibling
>ｿｽｿｽｿｽ轤ｵｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌなのでゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
ｿｽｿｽｿｽﾌヘｿｽｿｽｿｽｿｽｿｽﾜり調ｿｽﾗてなゑｿｽｿｽﾌで撰ｿｽｿｽｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾇ、TreeView ｿｽｿｽｿｽﾌ管暦ｿｽｿｽｿｽ
ｿｽlｿｽﾔの鯉ｿｽｿｽｿｽｿｽﾚの奇ｿｽｿｽoｿｽﾆゑｿｽｿｽｿｽﾄる所ｿｽﾉ鯉ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ驍ｩｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽ{ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽﾄみて会ｿｽｿｽｿｽｿｽｿｽｿｽBNodes ｿｽｿｽ Index ｿｽｿｽｿｽﾇゑｿｽｿｽﾏゑｿｽｿｽｿｽﾄるかｿｽｿｽｿｽﾗてみゑｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ驍ｩｿｽｿｽHｿｽBｿｽｿｽｿｽｿｽ Node ｿｽﾌ子ｿｽﾉ設定すｿｽｿｽﾌに子ｿｽﾌ最鯉ｿｽﾉ追会ｿｽｿｽｿｽｿｽ驍ｽｿｽｿｽ
ｿｽﾉは子ｿｽｿｽｿｽｿｽﾗて鯉ｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾈゑｿｽｿｽけｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾌ辺ゑｿｽｿｽﾈゑｿｽｿｽHｿｽHｿｽH
ｿｽGｿｽｿｽｿｽNｿｽgｿｽｿｽｿｽbｿｽNｿｽgｿｽ[ｿｽ}ｿｽX 2005/06/16(ｿｽｿｽ) 18:03:33
ｿｽmｿｽｿｽｿｽｿｽSrcNd.ChildｿｽｿｽNothingｿｽﾌ趣ｿｽｿｽﾍエｿｽｿｽｿｽ[ｿｽﾉなゑｿｽﾜゑｿｽｿｽB
ｿｽ示ゑｿｽｿｽﾄ抵ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽﾌ考ｿｽｿｽｿｽｿｽｿｽiｿｽﾚ難ｿｽｿｽｿｽﾆの子ｿｽmｿｽ[ｿｽhｿｽｿｽｿｽﾈゑｿｽｿｽﾈゑｿｽ
ｿｽﾜでｿｽｿｽ[ｿｽvｿｽjｿｽｿｽｿｽﾆコｿｽ[ｿｽhｿｽﾊゑｿｽｿｽｿｽﾈゑｿｽｿｽﾄ厄ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ。
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽYｿｽｿｽﾄまゑｿｽｿｽｿｽｿｽﾌで会ｿｽｿｽｿｽﾆゑｿｽｿｽﾜゑｿｽｿｽB
