powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Treeview
11 сообщений из 11, страница 1 из 1
Treeview
    #34322974
Jimy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Здравствуйте!
Никак не получается связать TreeView c ImageList
вот кусочек кода из инит формы:

**************************************************
this.olecontrol1.Object.ImageList = This.olecontrol2

****************************************************
this.olecontrol1.Nodes.Add(,,"n1","Àäðåñà")
*************************************************
SELECT streets
SET ORDER TO STREET && STREET

SCAN
s=ALLTRIM(ids)
ul=ALLTRIM(street)
this.olecontrol1.Nodes.Add("n1",4,s,ul)

endscan
******************************************

Получаю ошибку. Подскажите, что не так...
Спасибо
Фокс9
...
Рейтинг: 0 / 0
Treeview
    #34323158
Ffffffffff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
...
Рейтинг: 0 / 0
Treeview
    #34323193
Фотография Aleksey-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
1. А что за ошибка?
2. На какой команде ошибка ?
С уважением, Алексей.
...
Рейтинг: 0 / 0
Treeview
    #34323987
Jimy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ошибка на первой строке
OLE IDispatch exception code 0 from trectrl:invalid object
...
Рейтинг: 0 / 0
Treeview
    #34324168
FFFFFFFF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Можно взять более раннюю версию TreeView (5-ю вместо 6-Й)
...
Рейтинг: 0 / 0
Treeview
    #34324279
Jimy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
То же самое...
Что же делать?
...
Рейтинг: 0 / 0
Treeview
    #34324346
Fffffff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Может,
это поможет.
...
Рейтинг: 0 / 0
Treeview
    #34324414
Jimy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
В смысле так?
this.olecontrol1.Object.ImageList = This.olecontrol2.object

Та же ошибка, не помогает...
...
Рейтинг: 0 / 0
Treeview
    #34324617
AleksMed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
авторOLE IDispatch exception code 0 from trectrl:invalid object
А где у тебя объект trectrl ?
...
Рейтинг: 0 / 0
Treeview
    #34324914
Jimy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Всё, разобрался!

Оказывается, если на стадии конструирования формы сначала бросить имэджлист, а потом тривью, то все работает!
Вот уж не думал, что это может влиять!
Однако возник еще вопрос - форма не обновляется
Вот пример:
Событие ноудклик

*** ActiveX Control Event ***
LPARAMETERS node
DO case
CASE LEFT(node.key(),1)="k"
SELECT people
SET FILTER TO idk=node.key()

thisform.text1.value=people.family
thisform.Refresh()
endcase

Не обновляет!!!
Спасибо.
...
Рейтинг: 0 / 0
Treeview
    #34325152
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
JimyВсё, разобрался!

Оказывается, если на стадии конструирования формы сначала бросить имэджлист, а потом тривью, то все работает!
Вот уж не думал, что это может влиять!
Это влияет, если ты пытаешся выполнить привязку в init-TreeView. Однако если привязка делается в init-формы, то это не оказывает никакого влияния. Поэтому посмотри ГДЕ ты делаешь такую привязку.

JimyОднако возник еще вопрос - форма не обновляется
Вот пример:
Событие ноудклик

*** ActiveX Control Event ***
LPARAMETERS node
DO case
CASE LEFT(node.key(),1)="k"
SELECT people
SET FILTER TO idk=node.key()

thisform.text1.value=people.family
thisform.Refresh()
endcase

Не обновляет!!!
Спасибо.

-) Key - это не метод. Это свойство. Поэтому писать надо node.key = ... Без скобок.

-) SET FILTER в данном случае использовать не надо. Тем более его использование в таком виде - некорректно. Используйте LOCATE

Код: plaintext
1.
2.
3.
4.
5.
SELECT people
LOCATE FOR idk=node.key

thisform.text1.value=people.family
thisform.text1.Refresh()
...
Рейтинг: 0 / 0
11 сообщений из 11, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Treeview
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]