ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Снова Treeview
25 сообщений из 39, страница 1 из 2
  1  все
Снова Treeview
    #40080389
Serg197311
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Serg197311
Участник
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, 07:42
| Ответить | Цитировать | Написать  
Снова Treeview
    #40080393
DarkMan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMan
Участник
Serg197311
каким образом все-таки эту галочку убрать можно?

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

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

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

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

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



И да - был не прав - это именно это событие, Nodecheck
Приношу извинения....
...
Рейтинг: 0 / 0
28.06.2021, 11:57
| Ответить | Цитировать | Написать  
Снова Treeview
    #40080454
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
Serg197311, 406985
...
Рейтинг: 0 / 0
28.06.2021, 12:40
| Ответить | Цитировать | Написать  
Снова Treeview
    #40080492
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
А если без таймера?
Например, так:
Код: 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, 13:58
| Ответить | Цитировать | Написать  
Снова Treeview
    #40080496
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
__Michelle
Код: vbnet
1.
Tr_MouseUp

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

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

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

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



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

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

Не Michelle, а __Michelle.

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


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