|
|
|
Проблема с ItemsSelected в списке
|
|||
|---|---|---|---|
|
#18+
Нужно выполнить некоторые действия, если в списке есть выделенная строчка. Я полагал, что если щелкнуть на строке списка, то Me.Список.ItemsSelected.Count вернет "1". А возвращает "0"! Ладно, пробуем усложненный вариант: Dim frm As Form Dim ctl As Control Dim varIndex As Variant On Error GoTo ErrorHandler Set frm = Forms!Форма Set ctl = frm!Список For Each varIndex In ctl.ItemsSelected Me.Кнопка.Enabled = False Next Но кнопка не становится неактивной, если этот код повесить на Список_Click, а если повесить на Список_MouseDown, то становится, но только после второго вызова этого кода. В чем тут дело? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 08.03.2008, 17:32 |
|
||
|
Проблема с ItemsSelected в списке
|
|||
|---|---|---|---|
|
#18+
У миня на афтеапдэйт возвращает каунт > 0 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 08.03.2008, 18:08 |
|
||
|
Проблема с ItemsSelected в списке
|
|||
|---|---|---|---|
|
#18+
2 _restavraciya Да повесить можно много на чего и заставить отработать. Почему на Click-е не работает? - вот в чем вопрос. Соврал, на втором проходе по Click тоже отрабатывает. В принципе, можно повесить на DblClick, но почему такое извращение? И у Гетца написана конструкция с использованием Click... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.03.2008, 00:51 |
|
||
|
Проблема с ItemsSelected в списке
|
|||
|---|---|---|---|
|
#18+
КД, видимо у списка свойство "Несвязное выделение" отсутствует. В этом случае ItemsSelected.Count возвращает 0. Проверить выделено ли что-нибудь из списка (при отсутствии несвязного выделения) проще всего функцией isnull(список). Или в цикле проверять Me.список.Selected(i) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.03.2008, 01:45 |
|
||
|
Проблема с ItemsSelected в списке
|
|||
|---|---|---|---|
|
#18+
Понятно, спасибо! А почему после II-го прохода код все-таки срабатывает? Ведь свойства самого списка я при этом не меняю... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.03.2008, 19:10 |
|
||
|
Проблема с ItemsSelected в списке
|
|||
|---|---|---|---|
|
#18+
2 КД Потому что между первым и вторым CLICK есть один UFTERAPDATE ;-) Не знаю что там у Гетца, но обновление (выбор/изменение значения) списка происходит в событии AfterUpdate ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.03.2008, 19:17 |
|
||
|
Проблема с ItemsSelected в списке
|
|||
|---|---|---|---|
|
#18+
_restavraciya2 КД Потому что между первым и вторым CLICK есть один UFTERAPDATE ;-) _restavraciya, CLICK идет самым последним в цепи событий. UFTERAPDATE до него. И это правильно, иначе на этом событии поле еще не получило бы значения. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.03.2008, 19:26 |
|
||
|
Проблема с ItemsSelected в списке
|
|||
|---|---|---|---|
|
#18+
Да, прогнал :-/ ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.03.2008, 19:33 |
|
||
|
Проблема с ItemsSelected в списке
|
|||
|---|---|---|---|
|
#18+
Спасибо, буду пробовать. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 12.03.2008, 01:00 |
|
||
|
Проблема с ItemsSelected в списке
|
|||
|---|---|---|---|
|
#18+
2 _restavraciya Замена Click на AfterUpdate не помогла, а помогло: 2 mds_world Да, лучше всего – проверка IsNull. Спасибо большое! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 12.03.2008, 18:16 |
|
||
|
Проблема с ItemsSelected в списке
|
|||
|---|---|---|---|
|
#18+
HELP ItemsSelected Property See AlsoApplies ToExampleSpecificsYou can use the ItemsSelected property to return a read-only reference to the hidden ItemsSelected collection. This hidden collection can be used to access data in the selected rows of a multiselect list box control. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 13.03.2008, 09:00 |
|
||
|
|
start [/forum/topic.php?fid=45&gotonew=1&tid=1644475]: |
0ms |
get settings: |
12ms |
get forum list: |
13ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
37ms |
get topic data: |
11ms |
get first new msg: |
7ms |
get forum data: |
3ms |
get page messages: |
59ms |
get tp. blocked users: |
2ms |
| others: | 236ms |
| total: | 388ms |
| 0 / 0 |
