Объект - часть 2

Свойство Parent. Это свойство указывает объект, на котором расположен элемент управления. Вызов UserControl. Extender. Parent - единственный способ получить доступ к свойствам контейнера. Получить размеры контейнера можно с помощью следующих вызовов.

PWidth = UserControl.Extender.Parent.Width

PHeight = UserControl.Extender.Parent.Height

Аналогичным способом можно получить доступ к имени контейнера (UserCont­rol. Extender.Parent.Name), цвету его фона (UserControl. Extender. Parent. BackColor) и т.д.

Совет

Обратите внимание на важное различие:

UserControI.Extender.Name - это имя специаль­ного элемента управления (например, Label3D1), a UserControl.Extender.Parent.Name — это имя контейнера (например, Form1).

Для того чтобы немного поэкспериментировать с объектом Extender, вставьте следующие строки в код события Click элемента управления UserControl, запустите тестовую форму и щелкните мышью на элементе FLEXLabel.

Программа 16.8. Доступ к объекту Extender

"Private Sub UserControl_Click()

Dim ExtProp As String

ExtProp = "I'm a custom control. My name is" _

                & UserControl.Extender.Name

                ' (Я специальный элемент управления. Мое имя...)

ExtProp    = ExtProp & "I'm located at _

(" & UserControl.Extender.Left & ", " & _

UserControl.Extender.Left & ")"

' (Я расположен в точке с координатами...)

ExtProp = ExtProp & vbCrLf & " My dimensions are" _

& UserControl.Extender.Width & " by " _

& UserControl.Extender.Height

' (Мои размеры...)

ExtProp = ExtProp & vbCrLf & "I'm tagged as" _

& UserControl.Extender.Tag

' (Мой тег...)

ExtProp = ExtProp & vbCrLf & "I'm sited on a control named " _

& UserControl.Extender.Parent.Name

' (Я размещен на элементе с именем...)

ExtProp = ExtProp & vbCrLf & "whose dimensions are " _

& UserControl.Extender.Parent.Width _

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

---

---

---

---