Move2

Изменяет размеры и положение визуальных элементов.

Синтаксис

object.Move2 obj [, typeX, typeY, typeWidth, typeHeight, offsetX, offsetY, addItem]

Части синтаксической последовательности для метода Move2 приведены в таблице:

Часть
Описание
object
Объектное выражение.
obj
Объект для которого необходимо установить параметры.
typeX
 Необязательный параметр. Число задает тип изменения координаты по оси X.
typeY
 Необязательный параметр. Число задает тип изменения координаты по оси Y.
typeWidth
 Необязательный параметр. Число задает тип изменения ширины объекта.
typeHeight
 Необязательный параметр. Число задает тип изменения высоты объекта.
offsetX
 Необязательный параметр. Число задает смещения координаты по оси Х.
offsetY
 Необязательный параметр. Число задает смещения координаты по оси Y.
addItem
 Необязательный параметр. Название элемента управления который будет добавлен в коллекцию Form.Resize. Если параметр не указан то не добавляется в коллекцию.


Примечания

Ниже приведен код этого метода (для упрощения понимания), как влияют все эти параметры на положение и размер объекта:


    Select Case typeWidth
        Case Is > 1
            obj.Width = typeWidth
        Case Is > 0
            obj.Width = Me.ScaleWidth * typeWidth
        Case Is < 0
            obj.Width = Me.ScaleWidth + typeWidth
    End Select
    
    Select Case typeHeight
        Case Is > 1
            obj.Height = typeHeight
        Case Is > 0
            obj.Height = Me.ScaleHeight * typeHeight
        Case Is < 0
            obj.Height = Me.ScaleHeight + typeHeight
    End Select

    Select Case typeX
        Case -1
            x = Me.ScaleWidth / 2 - obj.Width / 2 + offsetX
        Case Is > 0
            x = Me.ScaleWidth * typeX + offsetX
        Case -1.1
            x = Me.ScaleWidth / 2 + offsetX
        Case -1.2
            x = Me.ScaleWidth / 2 - obj.Width + offsetX
        Case -2
            x = offsetX
        Case -3
            x = Me.ScaleWidth - obj.Width + offsetX
    End Select

    Select Case typeY
        Case -1
            y = Me.ScaleHeight / 2 - obj.Height / 2 + offsetY
        Case Is > 0
            y = Me.ScaleHeight * typeY + offsetY
        Case -1.1
            y = Me.ScaleHeight / 2 + offsetY
        Case -1.2
            y = Me.ScaleHeight / 2 - obj.Height + offsetY
        Case -2
            y = offsetY
        Case -3
            y = Me.ScaleHeight - obj.Height + offsetY
    End Select
    
    obj.Move x, y

Назад