Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Существует ли свойство у control'a / 4 сообщений из 4, страница 1 из 1
19.12.2002, 18:28
    #32082107
Mariik
Mariik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Существует ли свойство у control'a
Как узнать существует ли свойство, например value, у control'a.

Спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.12.2002, 18:59
    #32082131
-=Alexey=-
-=Alexey=-
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Существует ли свойство у control'a
попробовать обратиться к свойству и быть готовым обработать ошибку
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.12.2002, 21:08
    #32082159
-=Alexey=-
-=Alexey=-
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Существует ли свойство у control'a
либо конструкцией 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
| Ответить | Цитировать | Написать  
20.12.2002, 09:45
    #32082231
mahoune
mahoune
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Существует ли свойство у control'a
А так не быстрее будет?
Код: 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
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Существует ли свойство у control'a / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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