Вход


Главная страница >> Учебный процесс >> Конспекты >> MS Office. Руководство программиста по Visual Basic для MS Office 97 >> Объекты Microsoft Access >> Обращение к объектам Controls >> Обращение к объектам Controls

Переход на главную страницу

Сервер поддерживается
кафедрой информатики и вычислительной техники ГрГУ
тел. +375-(0)152-445-101
E-mail :
kadan@grsu.grodno.by


[Назад]    [Содержание ]    [Вперед]

  


Обращение к объектам Controls


Неоднократно обращаясь в процедуре к одному и тому же элементу управления, лучше объявить переменную, которая будет его представлять. eсли это элемент управления Microsoft Access и Вам известен его тип, можно объявить переменную конкретного типа. Вот так объявляется переменная тип TextBox.

Dim txt As TextBox

Если тип элемента управления, с которым будет работать Ваш код, заранее не известен, а также если им может оказаться элемент управления на базе ActiveX, используйте переменную универсального типа Control. Например когда в процедуру передаются элементы управления разных типов, тип ее аргумента должен быть Control. В приведенную ниже функцию можно передать любой элемент управления, но она возвращает True только в том случае, если элемент управления содержит допустимую гиперсвязь.

Function FollowControlHyperlink(ctl As Controi) as Boolean
═════Const conNoHyperlink As Integer = 7976

═════' включаем обработку ошибок
═════On Error GoTo Error_FollowControlHyperlink
═════'
переходим по гиперсвязи элемента управления
═════ctl. Hyperlink. Follow
═════'
возвращаем True, если это удалось
═════FollowControlHyperlink = True

Exit_FollowControlHyperlink:
═════Exit Function

Error_FollowControl Нуper link:
═════If Err = conNoHyperlink Then
══════════FollowControlHyperLink = False
═════End If
End Function

Если Вы знаете имя нужного элемента управления, для обращения к конкретному объекту Control в наборе Controls можно применять операцию ! (см. пример ниже). Обратите внимание, что при получении ссылки на объект и присвоении ее объектной переменной используется оператор Set.

Set txt = Forms! Employees! LastName ?получаем ссылку на элемент управления
═════════════════════════════════════════════════════════════════?
LastName из формы Employees

Обращаясь к элементу управления на форме, код которой сейчас выполняется, Вы можете сделать ссылку на эту форму с помощью ключевого слова Me:

Set txt = Me! LastName ' получаем ссылку на элемент управления LastName
════════════════════════════════════════'
той формы, код которой сейчас выполняется

Если при написании процедуры имя элемента управления Вам не известно, то для ссылки на объект Control в наборе Controls можно использовать синтаксис со скобками. Это полезно, когда элемент управления передается процедуре как переменная. Кроме того, на отдельные объекты Control в наборе Controls можно ссылаться по индексу, соответствующему их позиции в наборе. Набор Controls индексируется, начиная с нуля, т. е. индекс первого объекта Control равен 0, индекс второго ?1 и т.д.



[Назад]    [Содержание ]    [Вперед]

  



Текст пособия подготовлен на основе материалов книги
Microsoft Corporation. Руководство программиста по Visual Basic для Microsoft Office 97 / Пер. с англ. - М.: Издательский отдел "Русская Редакция" ТОО "Channel Trading Ltd.", 1997. - 544 с.: илл.
c Оригинальное издание на английском языке,
Microsoft Corporation, 1997
c Русский перевод,
Microsoft Corporation, 1997

  
За содержание страницы отвечает Гончарова М.Н.
©
Кафедра СПиКБ, 2002-2017