powered by simpleCommunicator - 2.0.54     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / readonly Treeview - как?
9 сообщений из 9, страница 1 из 1
readonly Treeview - как?
    #39381286
NVT
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Добрый день!

Как сделать дерево доступным только для чтения?

Т.е. форма открывается с allowedits = false, и пользователь не должен иметь возможность что-то отмечать в дереве, но ему на это пофиг. Галки снимаются и ставятся.

Установка свойства Enabled = false не подходит, т.к. невозможно прокрутить дерево вниз, что бы увидеть скрытую часть. Свойства Locked у екуумшуц нет...

Пробовал сделать отмену события NodeCheck через таймер, но работает криво.

Есть ли иной способ показать дерево только для чтения?

Спасибо

ЗЫ: поиск не помог
...
Рейтинг: 0 / 0
readonly Treeview - как?
    #39381347
POKEP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Если в конструкторе формы свойство "Разрешить изменение" установлено в "Нет", то, как вариант, можно в коде VBA поискать (или присвоить) явное изменение свойства Me.AllowEdits формы в обработках событий Form_Open() или Form_Current(). А также на обработках событий получения фокуса (типа Поле_GotFocus()) некоторыми полями формы.
...
Рейтинг: 0 / 0
readonly Treeview - как?
    #39381351
NVT
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
POKEP,


Увы, но Me.AllowEdits уже = false, и другие контролы (поля, чекбокс и т.п.) недоступны для редактирования, а вот дереву как-то ровно на это.
...
Рейтинг: 0 / 0
readonly Treeview - как?
    #39381366
а так?
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Код: vbnet
1.
2.
3.
Private Sub Tr_NodeCheck(ByVal Node As Object)
    Node.Checked = Not Node.Checked
End Sub
...
Рейтинг: 0 / 0
readonly Treeview - как?
    #39381458
NVT
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
а так?,

если бы было все так просто )))
тут про это написано, посмотрите, пригодится
...
Рейтинг: 0 / 0
readonly Treeview - как?
    #39381485
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Dim col As New Collection

Private Sub Form_Load()
Timer1.Interval = 10
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
If col.Count > 0 Then
    TreeView1.Nodes(col.Item(1)).Checked = False
    col.Remove 1
End If
End Sub

Private Sub TreeView1_NodeCheck(ByVal Node As MSComctlLib.Node)
col.Add Node.Index
End Sub
...
Рейтинг: 0 / 0
readonly Treeview - как?
    #39381491
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
PS. Это код для VB6. Адаптируйте под Access, это несложно.
...
Рейтинг: 0 / 0
readonly Treeview - как?
    #39381532
NVT
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Akina,

как я понял, это по типу того, что я привел выше по ссылке.
Пришлось (пока) так и сделать...
...
Рейтинг: 0 / 0
readonly Treeview - как?
    #39381558
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
NVTэто по типу того, что я привел выше по ссылке.Подход немного другой, запоминается не сама нода, а набивается коллекция индексов почеканных нод. Как следствие, код устойчив к пропуску срабатываний таймера - элемент удаляется только после сброса чекбокса. Так что после небольшого подпиливания он пригоден и для случая, когда выделяется и затем чекается сразу группа нодов.
...
Рейтинг: 0 / 0
9 сообщений из 9, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / readonly Treeview - как?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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