Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Снова Treeview / 25 сообщений из 39, страница 1 из 2
  1  все
28.06.2021, 07:42
    #40080389
Serg197311
Serg197311
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Снова Treeview
Treeview на форме с чекбоксами
при попытке поставить в чекбокс галочку надо проверить некоторое условие и по результатам возможно выкинуть сообщение и галочку из чекбокса убрать. На событие checked стоит

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
     IF
               MsgBox ("   !")
              TRW1.SelectedItem.Checked = False
              TRW1.Requery
              TRW1.refresh
              Me.Refresh
    End if


Вроде все работает - только изменение на экране не отображается, галочка так и остается...
каким образом все-таки эту галочку убрать можно?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.06.2021, 08:14
    #40080393
DarkMan
DarkMan
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Снова Treeview
Serg197311
каким образом все-таки эту галочку убрать можно?

Может поможет ? Q7
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.06.2021, 09:53
    #40080405
court
court
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Снова Treeview
Serg197311
Код: vbnet
1.
TRW1.SelectedItem

SelectedItem - не обязательно та нода, у которой ты ставишь чек ...
SelectedItem - это выбранная в дереве, та у которой лэйбл подсвечен
Serg197311
На событие checked стоит

Где ты "нашел" такое событие ?

Нода которой ставится чек - параметр у метода Treeview, NodeCheck
Код: vbnet
1.
Private Sub MyTreeview_NodeCheck(ByVal Node As Object)


вот для неё и нужно проверять / устанавливать
И никакие рефреши не понадобятся
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.06.2021, 10:00
    #40080408
Панург
Панург
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Снова Treeview
Serg197311
На событие checked
а где это такое событие?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.06.2021, 10:02
    #40080411
Панург
Панург
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Снова Treeview
court
NodeCheck
не во всех версиях дерева такое событие есть...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.06.2021, 10:09
    #40080412
court
court
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Снова Treeview
Панург
court
NodeCheck
не во всех версиях дерева такое событие есть...
таа ладно ! )
Мы ж про МС-овский Treeview говорим ?
вот этот - MSComctlLib.TreeCtrl

В нём есть, и всегда было
То, что на вкладке "События", в "Свойства", его нет - это "да".
Нуу на то он и АктивХ ...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.06.2021, 10:19
    #40080416
Serg197311
Serg197311
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Снова Treeview
не помогло
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.06.2021, 10:21
    #40080417
court
court
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Снова Treeview
Serg197311
не помогло
ты к какому месту прикладывал ? :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.06.2021, 10:24
    #40080418
Панург
Панург
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Снова Treeview
court
таа ладно ! )
Мы ж про МС-овский Treeview говорим ?
ТС не уточнял версии и привёл событие которого нет в обоих версиях
Вот тебе и "таа ладно"
court
В нём есть, и всегда было
То, что на вкладке "События", в "Свойства", его нет - это "да".
Нуу на то он и АктивХ ...

На вкладка я не смотрю, я смотрю в Object Browser

так же я написал
Панург
не во всех версиях дерева такое событие есть...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.06.2021, 10:34
    #40080422
Панург
Панург
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Снова Treeview
Serg197311, версию своего дерева давай для начала.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.06.2021, 10:41
    #40080427
court
court
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Снова Treeview
Панург ,

да, сори, был не прав ... это 5.0 ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.06.2021, 10:55
    #40080431
Панург
Панург
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Снова Treeview
court
это 5.0 ?
да
court
да, сори, был не прав
ок
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.06.2021, 11:54
    #40080443
Serg197311
Serg197311
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Снова Treeview
MSComctlLib.TreeCtrl.2 это класс объекта в свойствах. А библиотеки подключены обе, и 5 и 6
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.06.2021, 11:57
    #40080444
Serg197311
Serg197311
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Снова Treeview
court
Нода которой ставится чек - параметр у метода Treeview, NodeCheck
Код: vbnet
1.
Private Sub MyTreeview_NodeCheck(ByVal Node As Object)



И да - был не прав - это именно это событие, Nodecheck
Приношу извинения....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.06.2021, 12:40
    #40080454
Панург
Панург
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Снова Treeview
Serg197311, 406985
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.06.2021, 13:58
    #40080492
__Michelle
__Michelle
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Снова Treeview
А если без таймера?
Например, так:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Dim Nd As Node

Private Sub Tr_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Long, ByVal y As Long)
 If Not (Nd Is Nothing) Then
   Nd.Checked = False
 End If
End Sub

Private Sub Tr_NodeCheck(ByVal Node As Object)
 If .... Then
   Set Nd = Node
 Else
   Set Nd = Nothing
 End If
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.06.2021, 14:07
    #40080496
Панург
Панург
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Снова Treeview
__Michelle
Код: vbnet
1.
Tr_MouseUp

может и не произойти... емнип
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.06.2021, 14:13
    #40080500
__Michelle
__Michelle
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Снова Treeview
Панург
__Michelle
Код: vbnet
1.
Tr_MouseUp

может и не произойти... емнип

Если ставить/снимать галки клавишей Space?
Ну, да.
Маловероятный случай, конечно.

Но можно подстраховаться еще и проверкой в Tr_KeyUp.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.06.2021, 14:19
    #40080503
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Снова Treeview
просмотрел топик и не понял следующее:
-на форме с Treeview имеется чекбокс
-при клике на некой ноде в форме отображается запись из таблицы, отобранная по какому-то критерию, задаваемому выбранной нодой-на этом роль Treeview заканчивается.Дальнейшая работа ведется с записью таблицы-источником формы.
Правильно ли я понял Вашу задачу?
почему в коде фигурирует TRW1(понял так,что это Treeview),а не Me.поле(я)???
и вообще какой-такой смысл в обновлении Treeview, при изменении(не удалении,не добавлении) записи в ТАБЛИЦЕ
или я чего-то не понимаю?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.06.2021, 14:27
    #40080506
court
court
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Снова Treeview
sdku
-на форме с Treeview имеется поле с чекбокс
нет, тут про Тривью с чекбоксами



...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.06.2021, 14:28
    #40080507
__Michelle
__Michelle
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Снова Treeview
sdku
просмотрел топик и не понял...

Нужно запретить помечать ноды, которые определяются заданным условием.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.06.2021, 14:41
    #40080511
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Снова Treeview
Serg197311
Treeview на форме с чекбоксами...
"Treeview с чекбоксами" было бы понятнее.
Вариант Michelle,с некоторым "допиливанием", вполне хорош
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.06.2021, 14:47
    #40080512
__Michelle
__Michelle
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Снова Treeview
sdku
Serg197311
Treeview на форме с чекбоксами...
"Treeview с чекбоксами" было бы понятнее.
Вариант Michelle,с некоторым "допиливанием", вполне хорош

Не Michelle, а __Michelle.

И в чем допиливание будет состоять?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.06.2021, 15:00
    #40080514
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Снова Treeview
__Michelle,
__Michelle
И в чем допиливание будет состоять?
__Michelle
...Но можно подстраховаться еще и проверкой в Tr_KeyUp.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.06.2021, 15:16
    #40080523
Панург
Панург
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Снова Treeview
__Michelle
Если ставить/снимать галки клавишей Space?
нет, если мышк нажали, а потм не отпуская вывели с дерева. Если есть вероятность события, то оно произойдёт.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
  1  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Снова Treeview / 25 сообщений из 39, страница 1 из 2
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 466ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1609657]:
 0ms
get settings:
 8ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 61ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 61ms
get tp. blocked users:
 1ms
others: 301ms
total:  466ms
x
x
Закрыть


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