ReSQL.ru
     
powered by simpleCommunicator - 2.0.41     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Узнать наличие свойства у объекта
17 сообщений из 17, страница 1 из 1
Узнать наличие свойства у объекта
    #35795924
Артемий Лебедев
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Артемий Лебедев
Гость
Хочется сделать такую функцию для формы (см. код), только свойство Enabled не у всех контролов есть (например, у надписей нет :-)

Как проверить наличие свойства у объекта?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Private Sub Form_Current()
    Dim st As Boolean
    st = True

    If Me.date_completion_actual >  0  Then
        st = False
   
    i =  1 
    While Me.Controls.Count <= i
        Me.Countrols.Item(i).Enabled = st
        Inc (i)
    Loop
   
    Me.Refresh
End Sub
...
Рейтинг: 0 / 0
04.02.2009, 12:18
| Ответить | Цитировать | Написать  
Узнать наличие свойства у объекта
    #35795936
незаморачиватся
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
незаморачиватся
Гость
а, вписать в начеле процедуры:
On Error Resume Next
...
Рейтинг: 0 / 0
04.02.2009, 12:20
| Ответить | Цитировать | Написать  
Узнать наличие свойства у объекта
    #35795942
Ashton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ashton
Гость
Если на строке

Код: plaintext
Me.Countrols.Item(i).Enabled = st

будет ошибка, значит у элемента нет такого свойства.
...
Рейтинг: 0 / 0
04.02.2009, 12:21
| Ответить | Цитировать | Написать  
Узнать наличие свойства у объекта
    #35796798
assa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assa
Участник
незаморачиватся,

таки можно проверять тип контрола селект кейсом. И в зависимости от -
...
Рейтинг: 0 / 0
04.02.2009, 15:39
| Ответить | Цитировать | Написать  
Узнать наличие свойства у объекта
    #35796874
Фотография Restavraciya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Restavraciya
Участник
Чтобы всему Enabled:=False - сразу EnableWindow Me.hwnd, 0 ;-)
Будет не достучаться 100%
зы: если что - в подформе работает
...
Рейтинг: 0 / 0
04.02.2009, 15:52
| Ответить | Цитировать | Написать  
Узнать наличие свойства у объекта
    #35797033
Gluck_13
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gluck_13
Участник
RestavraciyaЧтобы всему Enabled:=False - сразу EnableWindow Me.hwnd, 0 ;-)
Будет не достучаться 100%
зы: если что - в подформе работает

Имхо в этом случае контролы не приобретают Disable-вид (юзеру поведение окна становится не понятно). Кроме того, "сквозь" такое окно можно щелкнуть мышкой на то окно, что лежит за ним.
...
Рейтинг: 0 / 0
04.02.2009, 16:30
| Ответить | Цитировать | Написать  
Узнать наличие свойства у объекта
    #35797835
aemon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aemon
Гость
Можно в переборе коллекции Controls узнать его тип - каждый контрол имеет свойство ControlType
И если он вас устроит, то выполнить вашу процедуру Inc (i).
разных ControlType всего 18, не так уж и трудно их просеять
...
Рейтинг: 0 / 0
04.02.2009, 22:19
| Ответить | Цитировать | Написать  
Узнать наличие свойства у объекта
    #35798027
Артемий Лебедев
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Артемий Лебедев
Гость
Сделал в итоге
On Error Resume Next

Контролы замораживает, только несколько штук оставляет...

Цикл стал такой
Код: plaintext
1.
2.
3.
4.
    i =  1 
    Do While i<=Me.Controls.Count
        Me.Countrols.Item(i).Enabled = st
        i = i +  1 
    Loop
...
Рейтинг: 0 / 0
05.02.2009, 03:00
| Ответить | Цитировать | Написать  
Узнать наличие свойства у объекта
    #35798039
Фотография Restavraciya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Restavraciya
Участник
автортолько несколько штук оставляет...Среди них есть тот, на котором в момент заморозки установлен фокус
...
Рейтинг: 0 / 0
05.02.2009, 04:34
| Ответить | Цитировать | Написать  
Узнать наличие свойства у объекта
    #35798040
Фотография Restavraciya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Restavraciya
Участник
+
Из каких соображений цикл от 1 до Count ? Нет контрола с индексом Count, есть с индексом Count-1
Значит остался ЕЩЕ один контрол (+ к тому на котором фокус) - это контрол с индексом =0
Надо
Код: plaintext
1.
2.
3.
4.
for i= 0  to me.controls.count- 1 
  ...
  Me.Countrols.Item(i).Enabled = st
  ...
next
...
Рейтинг: 0 / 0
05.02.2009, 04:42
| Ответить | Цитировать | Написать  
Узнать наличие свойства у объекта
    #35798041
Фотография Restavraciya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Restavraciya
Участник
зы: вот до чего может довести тупое (в вашем случае) применение On Error Resume Next
...
Рейтинг: 0 / 0
05.02.2009, 04:47
| Ответить | Цитировать | Написать  
Узнать наличие свойства у объекта
    #35798544
Фотография proposed amendment
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
proposed amendment
Участник
Код: plaintext
for each control in me
...
Рейтинг: 0 / 0
05.02.2009, 11:29
| Ответить | Цитировать | Написать  
Узнать наличие свойства у объекта
    #35799831
Артемий Лебедев
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Артемий Лебедев
Гость
Restavraciya,

Всегда думал, что БАЗЕК не Ц и в нём всё с единицы начинается.
Впрочем, согласен: моя ошибка.

Сделал цикл в итоге

Код: plaintext
1.
2.
    For Each Control In Me.Controls
        Control.Enabled = st
   Next

Всё равно два поля оставляет, но редактировать их всё равно нельзя (ещё и формы AllowEdits = false), а серым не выделяет ну и хрен с ними!

P.S. Пришлось тут писать одну программу на flash -- тоже идиотизм ещё тот, но хотя бы не получается таких ляпов как в vb.
...
Рейтинг: 0 / 0
05.02.2009, 16:51
| Ответить | Цитировать | Написать  
Узнать наличие свойства у объекта
    #35799898
Фотография BULK INSERT
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BULK INSERT
Участник
отвлеченно полюбопытствую

вам не кажется странным проверять
Код: plaintext
date_completion_actual
на
Код: plaintext
>  0
...
Рейтинг: 0 / 0
05.02.2009, 17:08
| Ответить | Цитировать | Написать  
Узнать наличие свойства у объекта
    #35799941
Фотография BULK INSERT
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BULK INSERT
Участник
AshtonЕсли на строке

Код: plaintext
Me.Countrols.Item(i).Enabled = st

будет ошибка, значит у элемента нет такого свойства.

если на этой строке будет ошибка, то, скорее потому, что неверно написано имя коллекции Controls
...
Рейтинг: 0 / 0
05.02.2009, 17:21
| Ответить | Цитировать | Написать  
Узнать наличие свойства у объекта
    #35799961
Ashton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ashton
Гость
Не обратил внимание, на то как написал автор.
...
Рейтинг: 0 / 0
05.02.2009, 17:31
| Ответить | Цитировать | Написать  
Узнать наличие свойства у объекта
    #35803435
Артемий Лебедев
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Артемий Лебедев
Гость
BULK INSERT,

Ой, подколол!
В этом форуме нихера не изменить уже написанное сообщение. В первом посте ошибся, когда набивал -- что, теперь враг?
Конечно же там должно быть Me.Controls.Item(i).Enabled = st; в программе у меня так и написано. В форум по известным соображениям живой код не выкладываю, а упрощённый пример, чтобы тебе же, милейший друг, голову лишним не забивать!
...
Рейтинг: 0 / 0
07.02.2009, 14:33
| Ответить | Цитировать | Написать  
17 сообщений из 17, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Узнать наличие свойства у объекта
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=35796798&tid=1639106]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 35ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 52ms
get tp. blocked users:
 1ms
others: 261ms
total:  390ms
созд. / загр.: 390ms
x
x
Закрыть


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