| Вопрос: Деревья в VB | Добавлено: 17.10.04 18:02 |
Автор вопроса:  Kevin Mitnik | ICQ: 205559551 |
|
вот столкнулся с такой проблеммой:
разместил дерево на форме и в form_load пишу: Dim categor As Node With tvwGategories.Nodes Set categor = .Add(, , "TeoriyaInfo", "Теория информатики", 1) Set categor = .Add("TeoriyaInfo", tvwChild, , "Теория информации", 1) но немогу сделать, чтобы из узла "Теория и информация" вылез например еще один раздел "информация и знания" Помоги срочно надо! |
| Ответы | Всего ответов: 34 |
|
Номер ответа: 1 Автор ответа:  someone Вопросов: 215 Ответов: 1596 |
Web-сайт: Профиль | | #1 | Добавлено: 17.10.04 18:49 |
| Kevin, тыт тут? Ответа не знаю, нужна твоя помощь | ||
|
Номер ответа: 2 Автор ответа:  mc-blackICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #2 | Добавлено: 17.10.04 23:07 |
|
Dim categor As Node
With tvwGategories.Nodes Set categor = .Add(, , "TeoriyaInfo", "Теория информатики", 1) Set categor = .Add("TeoriyaInfo", tvwChild, ("TeoriyaInfo2", "Теория информации", 1) вероятно, надо явным образом указать key для нового нода. уникальный key |
||
|
Номер ответа: 3 Автор ответа: mc-blackICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #3 | Добавлено: 17.10.04 23:08 |
|
sorry, лишняя скобка... ну вы меня поймете правильно -
Set categor = .Add("TeoriyaInfo", tvwChild, "TeoriyaInfo2", "Теория информации", 1) |
||
|
Номер ответа: 4 Автор ответа: mc-blackICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #4 | Добавлено: 17.10.04 23:09 |
Это VB.Net, что-ли? 
|
||
|
Номер ответа: 5 Автор ответа: CyRax  Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229 |
Web-сайт: Профиль | | #5 | Добавлено: 18.10.04 02:11 |
|
И когда это он успел с ассемблера на VB.NET перелезть? Видать сильно головой ударился
|
||
|
Номер ответа: 6 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #6 | Добавлено: 18.10.04 10:23 |
| Как это вы догадались, что это VB.NET? | ||
|
Номер ответа: 7 Автор ответа: АлександрРазработчик Offline Client ICQ: 204034 Вопросов: 106 Ответов: 1919 |
Профиль | | #7 | Добавлено: 18.10.04 15:25 |
|
Кэвину Митнику не надо задавать таких вопросов - он и так все должен знать! Не даром отсидел! )))))))))
Да он и по русски-то не говорит... |
||
|
Номер ответа: 8 Автор ответа: Kevin Mitnik ICQ: 205559551 Вопросов: 6 Ответов: 10 |
Профиль | | #8 | Добавлено: 18.10.04 18:04 |
|
ладно программеры, я сам уже сделал.... если кому интересно приведу пример:
Private Sub Form_Load() 'объявляем переменные Dim Programirovanie As Node Dim Teoria As Node 'включаем в дерево НОВЫЕ узлы With tvwGategories.Nodes 'добавляем раздел "Теория информатики" Set Teoria = .Add(, , "TeoriyaInformazii", "Теория информации", 1) 'выделяем узел "Теория информации" синим цветов Teoria.ForeColor = &HFF0000 'добавляем узел "Человек и информация" Set Teoria = .Add("TeoriyaInformazii", tvwChild, "Человек_И_информация", "Человек и информация", 1) 'добавляем ПОДузел "Теории и информации" Set Teoria = .Add("Человек_И_информация", tvwChild, "", "Информация и знания", 1) Set Teoria = .Add("TeoriyaInformazii", tvwChild, , "Первое знакомство с ПК", 1) Set Teoria = .Add("TeoriyaInformazii", tvwChild, , "Текстовая информация и компьютер", 1) Set Teoria = .Add("TeoriyaInformazii", tvwChild, , "Графическая информация и компьютер", 1) Set Teoria = .Add("TeoriyaInformazii", tvwChild, , "Передача информации к компьютерных сетях", 1) end sub |
||
|
Номер ответа: 9 Автор ответа: CyRax Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229 |
Web-сайт: Профиль | | #9 | Добавлено: 19.10.04 00:25 |
|
Я просто застыл в восхищённом изумлении...
Какой идеальный код!!! Как чётко расположены биты и байты! Как безупречно код пересекается с данными! LZW - просто детский лепет по сравнению с этим совершенством. Я тут кстати с лёгкой руки LOL'а полез разгребать это дело. Да, блин, на VB это сделать крайне трудно. Может быть кто ещё пытался декодер GIF'а сделать на VB? Искренне вам сочувствую 
Ну ничего, скоро я его одолею.
|
||
|
Номер ответа: 10 Автор ответа: mc-blackICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #10 | Добавлено: 19.10.04 21:34 |
|
2 Kevin Mitnik:
Круто! Ты End With забыл!!! И как оно только у тебя работает! А с VB.Net мы с CyRax лохонулись
CyRax, там вроде всё очень просто... Теоретически. Я описание читал всё. А LZW-сжатие где-то видел пример VB никак не связанный с GIF). |
||
|
Номер ответа: 11 Автор ответа: CyRax Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229 |
Web-сайт: Профиль | | #11 | Добавлено: 20.10.04 00:14 |
| Ну если просто, то дай пример. Только не с VbKiev. Там халтура. | ||
|
Номер ответа: 12 Автор ответа: mc-blackICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #12 | Добавлено: 20.10.04 11:19 |
| очень возможно, что именно оттуда... я посмотрю всё хорошенько дома. меня вопрос по gif интересовал давно, но лениво это было... | ||
|
Номер ответа: 13 Автор ответа: Kevin MitnikICQ: 205559551 Вопросов: 6 Ответов: 10 |
Профиль | | #13 | Добавлено: 20.10.04 17:01 |
| ага, бывает | ||
|
Номер ответа: 14 Автор ответа: CyRax Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229 |
Web-сайт: Профиль | | #14 | Добавлено: 21.10.04 00:27 |
|
mc-black,
Я написал статью про упаковку чисел и уже отправил на сайт. Там описывается именно LZW алгоритм. Если интересно и неохота ждать появления на сайте, то могу выслать. |
||
|
Номер ответа: 15 Автор ответа: CyRax Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229 |
Web-сайт: Профиль | | #15 | Добавлено: 21.10.04 00:30 |
| Теперь буду разгребать компрессию. А заготовки для GIF'а у меня уже есть. Я их сразу сделал. Кстати через файловый маппинг. | ||