Dim
pole(,)
As
String
= {{
"0"
,
"Rakousko"
,
"U jezera"
,
"Hotel Pramen"
}, _
{
"1"
,
"Francie"
,
"V udoli"
,
"Hotel Viola"
}, _
{
"2"
,
"Slovensko"
,
"V dire"
,
"Penzion Branik"
}, _
{
"3"
,
"Rakousko"
,
"U jezera"
,
"Hotel Delo "
}, _
{
"4"
,
"Francie"
,
"Pod udolim"
,
"Penzion Nikoho "
}, _
{
"5"
,
"Slovensko"
,
"U dire"
,
"Hotel Noc "
}, _
{
"6"
,
"Slovensko"
,
"Nad dirou"
,
"Hotel Blbec "
}, _
{
"7"
,
"Rakousko"
,
"U jezera"
,
"Hotel Zajic "
}, _
{
"8"
,
"Rakousko"
,
"Pod mostem"
,
"Penzion Pes "
}, _
{
"9"
,
"Rakousko"
,
"Nad mostem"
,
"Hotel Slunce "
}, _
{
"10"
,
"Francie"
,
"Nad udolim"
,
"Hotel Modry"
}}
For
i
As
Integer
= 0
To
pole.GetLength(0) - 1
Dim
n
As
TreeNode
Dim
f()
As
TreeNode = TreeView1.Nodes.Find(pole(i, 1),
False
)
If
f.Length = 0
Then
n = TreeView1.Nodes.Add(pole(i, 1), pole(i, 1))
Else
n = f(0)
End
If
f = n.Nodes.Find(pole(i, 2),
False
)
If
f.Length = 0
Then
n = n.Nodes.Add(pole(i, 2), pole(i, 2))
Else
n = f(0)
End
If
n.Nodes.Add(pole(i, 0), pole(i, 3))
Next