Изменение размера формы

[IAMRAT]

Есть форма BorderStyle=0. Как можно реализовать изменение размера формы, как у BorderStyle=2?

[Mikle]

Ну элементарно же, если чуть подумать. Вот я для ресайза по X сделал пример, осталось дописать для Y и учесть случай, когда меняются оба размера.

[Хакер]

Есть форма BorderStyle=0. Как можно реализовать изменение размера формы, как у BorderStyle=2?

Ну и какой смысл лишать окно природной функциональности осознанно, а потом борясь с ситуацией возвращать окну поведения, которое у него и так было?

[bon818]

Для формы с стилем BorderStyle=2, нужно:

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

Private Sub Form_Load()
'Me.BorderStyle = 2 (уже есть)
Me.Caption = ""
'Me.ControlBox = False ( установить в ручную)
End Sub


[Mikle]

Для формы с стилем BorderStyle=2, нужно:

И останется бордюр, клиентская часть формы не распространится на всю форму. Хотя это ли нужно топикстартеру?

[bon818]

Для формы с стилем BorderStyle=2, нужно:

И останется бордюр, клиентская часть формы не распространится на всю форму. Хотя это ли нужно топикстартеру?

Не совсем понял про: клиентскую часть формы, клиентскую часть не меняется-же, как была так и есть тех же размеров.
А бордюр можно и убрать, через WINAPI.
По хорошему, для этого случая, нужно все делать через WINAPI, я бы так сделал.

[Mikle]

Не совсем понял про: клиентскую часть формы

Добавь в свой код строки:

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

  ScaleMode = vbTwips
  Debug.Print Width - ScaleWidth


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

А бордюр можно и убрать, через WINAPI

Если удастся убрать, не сломав ресайз мышью - хорошо.

[bon818]

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

Понял. Ну да, очевидно что бордюр это не клиентская часть. Но это уже другой вопрос.

Если удастся убрать бордюр, не сломав ресайз мышью - хорошо.

Опять же, как бы сделал я:
Оставил бордюр в покое, мне он только на пользу(эстетика), но задал бы ему плоский стиль, при желании подкрасил нужным цветом(привет WinAPI+Subclass).

[The trick]

Попробуй перехватывать WM_NCHITTEST.
viewtopic.php?f=15&t=45323

[bon818]

Если удастся убрать бордюр, не сломав ресайз мышью - хорошо.

Вот что я имел ввиду.
Набросал пример.
Рамка не куда не делать, естественно.

[IAMRAT]

Ну элементарно же, если чуть подумать. Вот я для ресайза по X сделал пример, осталось дописать для Y и учесть случай, когда меняются оба размера.

Вопрос: Почему устанавливаешь ScaleMode в пиксели?

[Mikle]

Почему устанавливаешь ScaleMode в пиксели?

Можно оставить в твипах, будет так:

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

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  Dim xx As Single

  If ReSizeMode Then
    xx = Width + x - mx
    If xx > 0 Then
      Move Left, Top, Width + x - mx, Height
      mx = x
    End If
  Else
    If x < ScaleWidth And x > ScaleWidth - 8 * Screen.TwipsPerPixelX Then
      MousePointer = 9
    Else
      MousePointer = 0
    End If
  End If
End Sub


Не важно в каких единицах измеряется клиентская часть формы, главное учесть это в расчётах.

[IAMRAT]

Но, такой способ предполагает, что у формы есть не видимая рамка. Если в плотную к краю будет расположен элемент управления, то работать не будет. Поэтому я думал, что может как-то через API можно. Но все ровно огромное спасибо!

[Mikle]

Если в плотную к краю будет расположен элемент управления, то работать не будет.

Будет.