ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Существует ли свойство у control'a
4 сообщений из 4, страница 1 из 1
Существует ли свойство у control'a
    #32082107
Mariik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mariik
Гость
Как узнать существует ли свойство, например value, у control'a.

Спасибо!
...
Рейтинг: 0 / 0
19.12.2002, 18:28
| Ответить | Цитировать | Написать  
Существует ли свойство у control'a
    #32082131
-=Alexey=-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-=Alexey=-
Участник
попробовать обратиться к свойству и быть готовым обработать ошибку
...
Рейтинг: 0 / 0
19.12.2002, 18:59
| Ответить | Цитировать | Написать  
Существует ли свойство у control'a
    #32082159
-=Alexey=-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-=Alexey=-
Участник
либо конструкцией for each свойство in коллекция свойств
например:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Public Function existPRP(ctl As Control, prpName As String) As Boolean
Dim prp As Property
  existPRP = False
  For Each prp In ctl.Properties
    If prp.Name = prpName Then
      existPRP = True
      Exit For
    End If
  Next
End Function
...
Рейтинг: 0 / 0
19.12.2002, 21:08
| Ответить | Цитировать | Написать  
Существует ли свойство у control'a
    #32082231
Фотография mahoune
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mahoune
Участник
А так не быстрее будет?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Public Function existPRP(ctl As Control, prpName As String) As Boolean
On Error GoTo Err_existPRP
Dim prp As Property
  existPRP = False
  
  a = ctl.Properties(prpName)
  existPRP = True

Exit_existPRP:
  Exit Function

Err_existPRP:
  existPRP = False
'  MsgBox Err.Description
'  MsgBox Err.Source
'  MsgBox Err.Number
  Resume Exit_existPRP
End Function


C_НОВЫМ_ГОДОМ!!!
...
Рейтинг: 0 / 0
20.12.2002, 09:45
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Существует ли свойство у control'a
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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