| Вопрос: картинка у детей в treeview | Добавлено: 23.01.07 16:29 |
Автор вопроса:  art
|
| В общем treeview соединил c imagelist. Нужно, чтобы только у родителей отображались картирки, а у детей нет. Это сделал, но у детей остаётся место под картинку - некрасиво смотриться. Кто-нить знает как убрать это пустое место? |
| Ответы | Всего ответов: 20 |
|
Номер ответа: 1 Автор ответа:  Yeputons ICQ: 278444762 Вопросов: 71 Ответов: 179 |
Профиль | | #1 | Добавлено: 23.01.07 19:27 |
| А как ты разделяешь детей и родитилей? | ||
|
Номер ответа: 2 Автор ответа: FeverВопросов: 60 Ответов: 808 |
Профиль | | #2 | Добавлено: 23.01.07 21:15 |
|
treeview соединил c imagelist
А как? |
||
|
Номер ответа: 3 Автор ответа: БоцманICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #3 | Добавлено: 23.01.07 21:17 |
|
При открытии (детей), открой картинку (карапуза)
можно анимированную. |
||
|
Номер ответа: 4 Автор ответа: FeverВопросов: 60 Ответов: 808 |
Профиль | | #4 | Добавлено: 23.01.07 21:28 |
| Ой, звиняюсь, не дошло. Да вроде как стандартных свойств нету, мож в MSDN что найдется, ща посмотрю | ||
|
Номер ответа: 5 Автор ответа: artВопросов: 45 Ответов: 119 |
Профиль | | #5 | Добавлено: 23.01.07 21:53 |
|
Лучше код выложу:
'Îïðåäåëÿåì ïóòü è èìÿ ôàéëà áàçû äàííûõ If Right$(App.Path, 1) = "\" Then dbname = App.Path & "db1.mdb" Else dbname = App.Path & "\db1.mdb" End If Set db = DAO.OpenDatabase(dbname) 'Áàçà îòêðûòà sSQL = "SELECT * FROM class1;" Set rs = db.OpenRecordset(sSQL) 'Ðåêîðäñåò îòêðûò 'ïðîâåðÿåì åñòü ëè â ðåêîðäñåòå çàïèñè If rs.EOF Then 'MsgBox " òàáëèöå ïåðâîãî óðîâíÿ íåò çàïèñåé ", vbExclamation, "Ñîîáùåíèå" rs.Close Set rs = Nothing Exit Sub Else 'Äëÿ òîãî, ÷òîáû êîððåêòíî îòîáðàæàëîñü çíà÷åíèå 'ñâîéñòâà RecordCount ïèøåì rs.MoveLast rs.MoveFirst 'êîë-âî çàïèñåé â rs kol_zap_rs = rs.RecordCount For i = 0 To kol_zap_rs - 1 'äîáàâëÿåì çàïèñè óðîâíÿ TreeView1.ImageList = ImageList1 TreeView1.Nodes.Add(, , rs!index_class1, UCase(rs!name_class1), 2).Bold = True 'ïðèñâàèâàåì çíà÷åíèå äëÿ âñòàâêè åãî â ñòðóêòóðó äåðåâà, 'êàê ìåòêó (íåîòîáðàæàåòñÿ 
a = rs!index_class1 sSQL = "SELECT * FROM class2 where id_class1=" & rs!id Set rs1 = db.OpenRecordset(sSQL) 'ðåêîðäñåò îòêðûò If rs1.EOF Then 'MsgBox "Óðîâåíü ñ íîìåðîì " & rs!id_class1 & " íå ñîäåðæèò ïîäóðîâíåé.", vbExclamation, "Ñîîáùåíèå" Else rs1.MoveLast rs1.MoveFirst kol_zap_rs1 = rs1.RecordCount For j = 0 To kol_zap_rs1 - 1 âñòàâêè âòîðîé ñòðóêòóðû (íå îòîáðàæàåòñÿ
c = UCase(rs1!name_class2) ' äëÿ íåïîñðåäñòâåííîãî îòîáðàæåíèÿ â äåðåâå 'ôîðìèðîâàíèå äåðåâà: ïîäóðîâåíü 'вот здесь детёнышь у него картинке не должно быть TreeView1.Nodes.Add a, tvwChild, , c rs1.MoveNext Next j End If rs.MoveNext Next i End If rs.Close rs1.Close Set rs = Nothing Set rs1 = Nothing |
||
|
Номер ответа: 6 Автор ответа: artВопросов: 45 Ответов: 119 |
Профиль | | #6 | Добавлено: 23.01.07 21:57 |
| Упс, чего то не то вышло. С кодировкой не то? Редактирования здесь нет. В принципе должно быть понятно. Дерево формируется из бд. Выдёргиваем названия первого уровеня, в цикле все его подуровни и так далее. А вот картинки из детей убрать не могу, пока. | ||
|
Номер ответа: 7 Автор ответа: artВопросов: 45 Ответов: 119 |
Профиль | | #7 | Добавлено: 23.01.07 21:57 |
| Дико извиняюсь за пост №5! | ||
|
Номер ответа: 8 Автор ответа: БоцманICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #8 | Добавлено: 23.01.07 22:54 |
|
Ты уточни, незнаешь как не выводить или убрать?
|
||
|
Номер ответа: 9 Автор ответа: artВопросов: 45 Ответов: 119 |
Профиль | | #9 | Добавлено: 23.01.07 22:57 |
| Надо чтобы место под картинку пропало, т.е. убрать место. Картинку у детей я знаю как не выводить. | ||
|
Номер ответа: 10 Автор ответа: БоцманICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #10 | Добавлено: 23.01.07 22:59 |
|
Picture1.Visible = False
|
||
|
Номер ответа: 11 Автор ответа: БоцманICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #11 | Добавлено: 23.01.07 23:08 |
|
Может на задний план перенести,
Picture1.ZOrder (1)
|
||
|
Номер ответа: 12 Автор ответа: artВопросов: 45 Ответов: 119 |
Профиль | | #12 | Добавлено: 23.01.07 23:18 |
| Картинки из imagelist гружу. | ||
|
Номер ответа: 13 Автор ответа: БоцманICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #13 | Добавлено: 23.01.07 23:21 |
|
if дети then Picture1.Visible = False
|
||
|
Номер ответа: 14 Автор ответа: БоцманICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #14 | Добавлено: 24.01.07 08:49 |
|
Извени вчера не въехал в (детей).
Стандартно не нашел. У тебя что рамочки остаются? Попробуй создай иконку прозрачную и загрузи ее, в детей. Сейчас нет VB потом посмотрю. |
||
|
Номер ответа: 15 Автор ответа: artВопросов: 45 Ответов: 119 |
Профиль | | #15 | Добавлено: 24.01.07 08:53 |
| 2 Боцман: на счёт иконки - пробывал, всё равно остаётся рамка. | ||