Метод Cut (Вырезать)

В результате вызова этого метода информация, выделенная в объекте, удаляется из него и помещается в буфер обмена. Для поля ввода и комбинированного списка удаляется и копируется в буфер текст, выделенный в текущий момент. Для диалогового окна, страницы и рамки удаляются активные (выбранные) в данный момент элементы. Удаляться могут лишь те элементы, что созданы в процессе работы программы. Вызов метода имеет вид:

объект. Cut

где объект - объект, для которого вызывается метод.

Пример применения метода Cut приведен ниже при описании метода Paste.

Метод DropDown (Вывести список)

Раскрывает список элементов, входящих в комбинированный список. Вызов этого метода имеет вид:

объект. DropDown

где объект - тот комбинированный список, для которого вызывается метод.

Метод DropDown можно использовать, чтобы показать список элементов из комбинированного списка в ответ на событие, возникшее в другом управляющем элементе. Мы включили в наше диалоговое окно еще одну возможность, ѕ добавлять комбинированный список. Вот новый фрагмент кода:

Else 'добавляем комбинированный список

AddElem. Width = 350 'Расширяем форму

Set NewCtrl = Controls. Add ("Forms. ComboBox. 1", "List2")

Controls ("List2"). ColumnCount = 2 'число столбцов списка

Controls ("List2"). Left = 96

Controls ("List2"). Top = 12

Controls ("List2"). Width = 200

Controls ("List2"). AddItem ("Федор")

Controls ("List2"). List (0, 1) = "Шаляпин"

Controls ("List2"). AddItem ("Сергей")

Controls ("List2"). List (1, 1) = "Лемешев"

Controls ("List2"). AddItem ("Лучано")

Controls ("List2"). List (2, 1) = "Паваротти"

Controls ("List2"). AddItem ("Пласидо")

Controls ("List2"). List (3, 1) = "Доминго"

Controls ("List2"). DropDown

Теперь диалоговое окно при добавлении комбинированного списка выглядит так:

Рис. 13. 11.  Показ элементов комбинированного списка

Метод Move (Сдвинуть)

Результат вызова этого метода - сдвиг диалогового окна, одного элемента управления или одновременный сдвиг всех элементов управления коллекции Controls диалогового окна.

Для диалогового окна или отдельного элемента вызов метода имеет вид:

объект. Move ([Left [, Top [, Width [, Height [, Layout]]]]])

а для коллекции Controls:

объект. Move (X, Y)

Здесь объект - имя сдвигаемого объекта или коллекции, объекты которой сдвигаются. Все параметры в скобках в первом варианте вызова необязательны. Параметры Left и Top задают координаты верхнего левого угла объекта в точках, а Width и Height - ширину и высоту объекта в точках (все четыре имеют тип Single). Булев параметр Layout определяет, будет ли для объекта-родителя инициировано событие Layout. Во втором варианте параметры X и Y обязательны, они задают смещение всех объектов коллекции по горизонтали и вертикали (отрицательные значения - сдвиг влево и вверх, положительные - вправо и вниз).

Метод Move можно использовать как для сдвига объекта, так и для изменения его размеров. Например, чтобы при двойном щелчке изображения Image1, имеющего координату верхней границы 18 и высоту 70, поднять его верхнюю границу и увеличить высоту на 10 точек, можно использовать процедуру.

Private Sub Image1_DblClick (ByVal Cancel As MSForms. ReturnBoolean)

Me. Image1. Move Top:=8, Height:=80

End Sub