AlexZir:
Код:
TV1.Nodes.Add , , "main", "Contents" 'Create Main Parent
TV1.Nodes.Add "main", tvwChild, "I1", "Example #1" 'Child Node to the Main Parent or ROOT
TV1.Nodes.Add "I1", tvwChild, "SI1", "Example #1's Child Node"
TV1.Nodes.Add "main", tvwChild, "I2", "Example #2"
TV1.Nodes.Add "main", tvwChild, "I3", "Example #3"
TV1.Nodes.Add "I3", tvwChild, "IA3", "Example #3's Child Node"
TV1.Nodes.Add "IA3", tvwChild, "IAA3", "Example #3's 2nd Child Node"
TV1.Nodes.Add "main", tvwChild, "L1", "Load List Example"
TV1.Nodes.Add "L1", tvwChild, "LA1", "Click To Load List"
TV1.Nodes.Item(1).Expanded = True 'expands the 1st or ROOT node
TV1.Nodes.Item(8).Expanded = True ' expands the 8th Node
это - в Form_Load :)
TV1 = TreeView1
откопал в древних архивах planetsource.com
кстати, там же нашел умопомрачительный контрол
McListBox - ты только посмотри! но в левом столбце слишком много кнопок понадобится .......... а хотяяяяяяяяя время покажет, ведь больше кнопок - больше окно - больше места. Возникла задумка подключить модуль английского языка программы ...... в будущем