MDIFORM help !help!

Question

Salut!
Je souhaite empecher l'utilisateur de modifier la largeur et la hauteur de ma MDIform.
je veux egalement l'empecher de réduire la taille de la Mdiform.
Merci beaucoup

Regisgb · Answer

Debut Module ----------------------------------------------
Option Explicit

Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
 
Public Const GWL_STYLE = (-16)
Public Const WS_MAXIMIZE = &H1000000
Public Const WS_MINIMIZEBOX = &H20000
Public Const WS_MAXIMIZEBOX = &H10000
Public Const WS_OVERLAPPED = &H0&
Public Const WS_CAPTION = &HC00000
Public Const WS_SYSMENU = &H80000
Public Const WS_THICKFRAME = &H40000
Public Const WS_VISIBLE = &H10000000
Public Const WS_OVERLAPPEDWINDOW = (WS_OVERLAPPED Or WS_CAPTION Or WS_SYSMENU Or WS_THICKFRAME Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX)
Public Const SW_SHOWMAXIMIZED = 3
Public Const SW_SHOW = 5
Fin Module ------------------------------------------------

FORM MDI ------------------------------------------------
Private Sub MDIForm_Load()
 Dim nret As Long
    nret = SetWindowLong(frmMain.hwnd, GWL_STYLE, (WS_OVERLAPPED Or WS_CAPTION))
    nret = ShowWindow(frmMain.hwnd, SW_SHOWMAXIMIZED)
End Sub 

Private Sub MDIForm_Resize()
    If Me.WindowState = 0 Then
        Me.Width = 12000
        Me.height = 12000
    Else
        Me.WindowState = 0
    End If
End Sub

MDIFORM help !help!

1 réponse

Discussions similaires