Form Resize

[dede]

Как сделать так,чтобы при нажатии правой кнопкой мыши на форме,она(форма) увеличивалась допустим на 50 по Х и на 50 по Y?а при повторном нажатии уменьшалась на такие же значения?Заранее спасибо

[Cyrax]

ну примерно так:

Код: Выделить всё

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Static Push as Boolean
    If Button <> vbRightButton Then Exit Sub
    If Not(Push) Then
        Me.Move Me.Left, Me.Top, Me.Width + 50, Me.Height + 50
    Else
        Me.Move Me.Left, Me.Top, Me.Width - 50, Me.Height - 50
    End If
    Push = Not(Push)
End Sub

[alibek]

Я конечно извиняюсь, но 50 твипов это примерно 3 пиксела Да и такая строчка смотрится лучше

Код: Выделить всё

Me.Move _
  Me.Left - 25*Screen.TwipsPerPixelX, Me.Top - 25*Screen.TwipsPerPixelY, _
  Me.Width + 50*Screen.TwipsPerPixelX, Me.Height + 50*Screen.TwipsPerPixelY

[Cyrax]

Я конечно извиняюсь, но 50 твипов это примерно 3 пиксела Да и такая строчка смотрится лучше

Код: Выделить всё

Me.Move Me.Left - 25*Screen.TwipsPerPixelX, Me.Top - 25*Screen.TwipsPerPixelY, Me.Width + 25*Screen.TwipsPerPixelX, Me.Height + 25*Screen.TwipsPerPixelY

я бы сказа не строчка, эффект ею производимый. да может оно и лучше оставлять центр формы на одном месте.

а по поводу 3 пикселей - ну попросил человек 50 твипов, я ему и сделал 50