Алгоритм перемещения

@Maklay · Регистрация: 10.12.2010

Студворк — интернет-сервис помощи студентам

Добрый день!
Суть такая, задаю древовидную систему. Есть набор объектов, и по значению в лист боксе этого набора, при клике на кнопку, создается nое количество таких же объектов связаных с ним.
Для примера:

(без скобок номер группы, в скобках количество связей)
1(2)
2(2)3(2)
4(3)5(2)6(1)7(0)
8(0)9(0)10(0)11(0)12(0)13(0)

Но выходит обсолютно не читаемо(как и в примере). Хотелось бы привести все к виду когда ветви разнесены(при каждом добавлении новых узлов переставить уже заданные):
1(2)
2(2)________________________3(2)
4(3)___________5(2)__________6(1)7(0)
8(0)9(0)10(0)___11(0)12(0)____13(0)

Но даже идей как реализовать нету.
Посоветуйте хотя бы примерный алгоритм.

З.Ы под катом тело програмы

[Код]

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
Private Sub command1_click()
flag = True
rnum = rnum + 1
For j = NvTP To KolTp
ntp = j
ReDim Preserve masstp(1 To 4, 1 To KolTp + LstBox(ntp))
For i = KolTp + 1 To KolTp + LstBox(ntp)
k = k + 1
Call CrObj(CInt(m), rnum, k)
m = i + 1
Next i
If flag = True Then
NvTP = KolTp + 1
End If
flag = False
KolTp = KolTp + LstBox(ntp)
Next j
End Sub
 
Private Sub Form_Load()
ReDim masstp(1 To 4, 1 To 1)
KolTp = 1
rnum = 1
ntp = 1
NvTP = 1
nv2tp = 1
m = 2
Call CrObj(CInt(KolTp), 1, 1)
Set asd = Form1.Controls.Add("vb.commandbutton", "Cb2" & CStr(ntp))
asd.Left = 3000
asd.Visible = True
End Sub
 
Private Sub CrObj(ntp As Integer, rnum, TPnum)
Set masstp(1, ntp) = Form1.Controls.Add("vb.textbox", "N" & CStr(ntp))
Set masstp(2, ntp) = Form1.Controls.Add("vb.combobox", "TR1_" & CStr(ntp))
Set masstp(3, ntp) = Form1.Controls.Add("vb.combobox", "TR2_" & CStr(ntp))
Set masstp(4, ntp) = Form1.Controls.Add("vb.listbox", "Sv" & CStr(ntp))
masstp(1, ntp).Text = ntp
masstp(1, ntp).Top = (rnum - 1) * 1500
masstp(1, ntp).Left = 2000 * (TPnum - 1)
masstp(2, ntp).Left = masstp(1, ntp).Left
masstp(3, ntp).Left = masstp(1, ntp).Left
masstp(2, ntp).Top = masstp(1, ntp).Top + masstp(1, ntp).Height
masstp(3, ntp).Top = masstp(2, ntp).Top + masstp(2, ntp).Height
masstp(4, ntp).Top = masstp(1, ntp).Top
masstp(4, ntp).Left = masstp(1, ntp).Left + masstp(1, ntp).Width
 
masstp(4, ntp).Width = 500
masstp(4, ntp).Height = 500
masstp(1, ntp).Visible = True
masstp(2, ntp).Visible = True
masstp(3, ntp).Visible = True
masstp(4, ntp).Visible = True
For j = 1 To 100
masstp(4, ntp).AddItem j
Next j
End Sub
 
Function LstBox(ntp)
For j = 0 To 99
If masstp(4, ntp).Selected(j) Then
LstBox = j + 1
End If
Next j
End Function

Visual Basic
1
2
3
4
5
6
7
8
Public masstp()
Public KolTp
Public ntp
Public n
Public rnum
Public NvTP
Public nv2tp
Public m

Новые блоги и статьи Все статьи Все блоги /
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .