Проблема с Resize-ом окна

[|kerish|]

Здравствуйте! Я столкнулся с небольшой проблемой, но незнаю как её обойти, надеюсь вы подскажете.

Мне нужно чтобы окно ресайзилось, но не становилось менее определенного размера.

Проблема в том, что если просто поставить заглушку в событии Resize, то в Висте или Семёрке на долю секунды происходит некрасивое мерцание.
Типа как форма всё равно становится меньше, но моментально становится минимально доступного размера.

В толку не возьму, как сделать это по-нормальному

[Хакер]

Установить с помощью специальной WinAPI-фукнкции минимальный и максимальный размеры окна. Ищи эту функцию сам.

[hclubmk]

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

Option Explicit
Private Type POINTAPI
    x As Long
    y As Long
End Type

Private Type MINMAXINFO
    ptReserved As POINTAPI
    ptMaxSize As POINTAPI
    ptMaxPosition As POINTAPI
    ptMinTrackSize As POINTAPI
    ptMaxTrackSize As POINTAPI
End Type

Private Const WM_GETMINMAXINFO = &H24
Private Const GWL_WNDPROC = (-4)

Private Declare Sub GetMem4 Lib "msvbvm60.dll" (pSrc As Any, pDst As Any)
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Dim PrevProc As Long

' в Form_Load
Public Sub HookWindow(ByVal hwnd As Long)
    PrevProc = SetWindowLong(hwnd, GWL_WNDPROC, AddressOf WindowProc)
End Sub

' в Form_Unload
Public Sub UnHookWindow(ByVal hwnd As Long)
    Call SetWindowLong(hwnd, GWL_WNDPROC, PrevProc)
End Sub

Private Function WindowProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    If uMsg = WM_GETMINMAXINFO Then
        Dim Info As MINMAXINFO
            Call SetMinSize(Info, lParam)
        WindowProc = 1
    Else
        WindowProc = CallWindowProc(PrevProc, hwnd, uMsg, wParam, lParam)
    End If
End Function

Private Sub SetMinSize(Info As MINMAXINFO, ByVal lParam As Long)
    Call GetMem4(lParam, ByVal VarPtr(lParam) - 4)
    With Info
        .ptMinTrackSize.x = <твоё значение>
        .ptMinTrackSize.y = <твоё значение>
    End With
End Sub

[Хакер]

Нет, это плохой вариант для данного случая.

[hclubmk]

Чем?

[Хакер]

Что, совсем никаких соображений у самого нет, чем?

[hclubmk]

Ну почему же.
Суть вопроса была в попытке услышать твое мнение, как эксперта, а не моё, как новичка.

[Денис]

http://support.microsoft.com/kb/185733

[Хакер]

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

Какая глупость использовать сабклассинг для такой задачи, когда достаточно один раз вызвать функцию SetWindowPlacement, установив мин./макс. габариты окна.

[hclubmk]

Не дошло.
Можно объяснить "на пальцах"?

[Хакер]

Что не дошло? Что тут вообще могло не дойти?

[Денис]

Не дошло.
Можно объяснить "на пальцах"?

Можно. В Form_Load() вызывается эта функция и всё.

[hclubmk]

Не дошло:
1 где здесь минимально/максимально допустимые габариты.
2 почему MSDN приводит пример с хуком.

[|kerish|]

Спасибо за помощь.

[Денис]

Вот кстати, ап, в связи с.
Я долго смотрел на этот топик, чувствуя, что хочу что-то сказать, но не помню, что. И вот, пока вспомнил: а все-таки в паскалеподобных языках с этим проще, задаешь в свойствах объекта SizeConstraints и нет проблем, компилятор сам выбирает способ, как провести задание минимальных и максимальных размеров, будь то форма или контрол.

[VBTerminator]

Заранее извиняюсь, если это некрофилия.

Не понимаю, к чему так? Ведь всё очень просто реализуется стандартными возможностями VB:

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

Const MinWidth As Long = 100  'Минимальная ширина окна
Const MinHeight As Long = 100  'Минимальная высота окна

Private Sub Form_Resize()

   If Width < MinWidth Then Width = MinWidth
   if Height < MinHeight  Then Height = MinHeight

End Sub

[Хакер]

Очень просто и ОЧЕНЬ×ОЧЕНЬ погано.

[hclubmk]

Хакер покажи, пожалуйста, решение с SetWindowPlacement. MSDN, да и на MVPs - только через сабклассинг.

[VBTerminator]

Очень просто и ОЧЕНЬ×ОЧЕНЬ погано.

Почему?

[iGrok]

Очень просто и ОЧЕНЬ×ОЧЕНЬ погано.

Почему?

Потому, что ты явно не читал первый же пост.

[VBTerminator]

А, да... Что-то я сглупил.