| Вопрос: Дв. списки(Дерево) | Добавлено: 31.05.08 09:34 |
Автор вопроса:  true
|
| Ответы | Всего ответов: 77 |
|
Номер ответа: 61 Автор ответа:  Smith ICQ: ненавижу Вопросов: 28 Ответов: 317 |
Web-сайт: Профиль | | #61 | Добавлено: 08.06.08 19:50 |
|
Блин забыл перед End Function добавь строчку TreeView = Join(tmpArray, vbCrLf) |
||
|
Номер ответа: 62 Автор ответа: SmithICQ: ненавижу Вопросов: 28 Ответов: 317 |
Web-сайт: Профиль | | #62 | Добавлено: 08.06.08 19:53 |
|
Ещё ошибка, сделай так: Loop While tmpStr <> Spaces$(Len(tmpStr)) |
||
|
Номер ответа: 63 Автор ответа: true Вопросов: 1 Ответов: 38 |
Профиль | | #63 | Добавлено: 08.06.08 20:08 |
| Сейчас проверю, думаю должно работать. Позже отпишусь. | ||
|
Номер ответа: 64 Автор ответа: trueВопросов: 1 Ответов: 38 |
Профиль | | #64 | Добавлено: 08.06.08 20:25 |
| Че то не работает...виснет млин...ошибку найти не могу... | ||
|
Номер ответа: 65 Автор ответа: trueВопросов: 1 Ответов: 38 |
Профиль | | #65 | Добавлено: 08.06.08 20:30 |
| Нашел ошибку, где цикл for each, tmpline = .... там subscript out of range | ||
|
Номер ответа: 66 Автор ответа: trueВопросов: 1 Ответов: 38 |
Профиль | | #66 | Добавлено: 08.06.08 20:35 |
| Ему эта строчка не нравится... | ||
|
Номер ответа: 67 Автор ответа: SmithICQ: ненавижу Вопросов: 28 Ответов: 317 |
Web-сайт: Профиль | | #67 | Добавлено: 08.06.08 20:49 |
|
А ты проверь почему ненравиться
tmpArray = Split(TreeView) MsgBox tmpArray(UBound(tmpArray)) 'должен показать последнюю строчку в дереве For Each tmpLine In tmpArray MsgBox len(tmpArray(UBound(tmpArray))) \ 2 & " - " & len(tmpLine) \ 2) tmpLine = Space$(len(tmpArray(UBound(tmpArray))) \ 2 - len(tmpLine) \ 2) & tmpLine Next |
||
|
Номер ответа: 68 Автор ответа: trueВопросов: 1 Ответов: 38 |
Профиль | | #68 | Добавлено: 08.06.08 20:56 |
| в 1 msgbox выдает пустую строку, во втором значение -2 ! | ||
|
Номер ответа: 69 Автор ответа: SmithICQ: ненавижу Вопросов: 28 Ответов: 317 |
Web-сайт: Профиль | | #69 | Добавлено: 08.06.08 21:00 |
| Блин банально как банан | ||
|
Номер ответа: 70 Автор ответа: SmithICQ: ненавижу Вопросов: 28 Ответов: 317 |
Web-сайт: Профиль | | #70 | Добавлено: 08.06.08 21:04 |
|
TreeView = Left$(TreeView, Len(TreeView) - 2) tmpArray = Split(TreeView, vbCrLf) |
||
|
Номер ответа: 71 Автор ответа: trueВопросов: 1 Ответов: 38 |
Профиль | | #71 | Добавлено: 08.06.08 21:06 |
| Вот теперь что то стало проясняться, вот только отступов от края до сих пор нету. Блин, какой же это ужас! | ||
|
Номер ответа: 72 Автор ответа: Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632 |
Профиль | | #72 | Добавлено: 08.06.08 21:10 |
|
tmpStr = Empty For Each tmpLine In tmpArray tmpStr = tmpStr & Space$(len(tmpArray(UBound(tmpArray))) \ 2 - len(tmpLine) \ 2) & tmpLine Next TreeView = tmpStr 'а Join убери нахер |
||
|
Номер ответа: 73 Автор ответа: SmithICQ: adamis@list.ru Вопросов: 153 Ответов: 3632 |
Профиль | | #73 | Добавлено: 08.06.08 21:11 |
|
Точнее tmpStr = tmpStr & Space$(len(tmpArray(UBound(tmpArray))) \ 2 - len(tmpLine) \ 2) & tmpLine & vbCrLf |
||
|
Номер ответа: 74 Автор ответа: trueВопросов: 1 Ответов: 38 |
Профиль | | #74 | Добавлено: 08.06.08 21:17 |
| Не, с join было лучше, он теперь вообще все в одну строку выдает! Я его убью сейчас! | ||
|
Номер ответа: 75 Автор ответа: trueВопросов: 1 Ответов: 38 |
Профиль | | #75 | Добавлено: 08.06.08 21:18 |
Аллелуя!!!!!!!!! Наконец то!!! Свершилось чудо!!!! Все, я теперь счастливый!!!! Огромное спасибо за помощь!!!! )))
|
||