Min. højde og brede ved sizeable

...når man resizer den

Jeg har ikke lige VB foran mig så jeg husker ikke helt nøjagtigt hvad den Sub der kaldes når man resizer hedder, men jeg gør det sådan:

Private Sub Form1_Resize()
  If Form1.Width < 500 then Form1.Width = 500
End Sub

Private Sub Form_Resize()
    If Me.Height < MinHøjde Then Me.Height = MinHøjde
    If Me.Width < MinBrede Then Me.Width = MinBrede
End Sub

euroman28 & ulrina ---> Duer ikke! Jeg kikker efter en funktion der gør at når formen bliver under en hvis højde og brede kan man simpelthen ikke gøre den midre - som om den ikke var sizable. Den kode I begge har foreslået gør at formen flakker og flimre og i øvrigt godt kan blive mindre end man sætter 'MinHøjde' og 'MinBredde' til... Håber I forstår hvad jeg mener

egentlig ikke, jeg bruger den metode ofte og det virker fint her.

Same her.

Der er vist kun ét rigtigt svar! ;o)

'Add to Form
Private Sub Form_Load()
    Call StartResize(Me)
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Call StopResize(Me)
End Sub


'Add to Module
Private Const GWL_WNDPROC As Long = -4
Private Const WM_GETMINMAXINFO As Long = &H24
Private Const SM_CXFULLSCREEN As Long = 16
Private Const SM_CYFULLSCREEN As Long = 17
Private Const SM_CYCAPTION As Long = 4

Type POINTAPI
    x As Long
    y As Long
End Type

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

Private mlngOldWindowProc&

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDest As Any, pSource As Any, ByVal ByteLen As Long)
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex 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
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Function SubClass1_WndMessage(ByVal hWnd As Long, ByVal Msg As Long, ByVal wp As Long, ByVal lp As Long) As Long
    If Msg = WM_GETMINMAXINFO Then

        Dim MinMax As MINMAXINFO
       
        Call CopyMemory(MinMax, ByVal lp, Len(MinMax))
       
        MinMax.ptMinTrackSize.x = 8295 \ Screen.TwipsPerPixelX
        MinMax.ptMinTrackSize.y = 7815 \ Screen.TwipsPerPixelY
        MinMax.ptMaxTrackSize.x = GetSystemMetrics(SM_CXFULLSCREEN)
        MinMax.ptMaxTrackSize.y = GetSystemMetrics(SM_CYFULLSCREEN) + GetSystemMetrics(SM_CYCAPTION)
       
        Call CopyMemory(ByVal lp, MinMax, Len(MinMax))
       
        SubClass1_WndMessage = 1
        Exit Function
    End If
       
    SubClass1_WndMessage = CallWindowProc(mlngOldWindowProc, hWnd, Msg, wp, lp)
End Function


Public Sub StartResize(ByVal Form As Form)
    mlngOldWindowProc& = GetWindowLong&(Form.hWnd, GWL_WNDPROC)
    Call SetWindowLong&(Form.hWnd&, GWL_WNDPROC, AddressOf SubClass1_WndMessage)
End Sub

Public Sub StopResize(ByVal Form As Form)
    Call SetWindowLong&(Form.hWnd&, GWL_WNDPROC, mlngOldWindowProc&)
End Sub

andymax -> Lige og helt nøjagtigt det jeg var på udkik efter! Mange tak, der er en potion points på vej til dig...

Super! ;o)