VBA Excel UserForm Maximize Minimized Size Drag Control

[NDMDRB]

Hello,

I got the following code to maximize, minimize and resize the form, but it didn't work well, every time I ran it, I got a popup msg "Sub or Function not defined" and highlight "GetWindowLong"

Note: I have 64bit system, so I added "PtrSafe" to the "Private Declare Function" but keep getting the same error above

Please, help me fixing this issue and let me know if I can add all this code to a module and just Call it from each form, because I have a lot of forms and lot of codes on my project, and don't need to add it to all of them

Many thanks in advanced

Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare PtrSafe Function GetWindow Lib "user32" Alias "GetWindowA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare PtrSafe Function SetWindow Lib "user32" Alias "SetWindowA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Const GWL_STYLE As Long = (-16) Private Const WS_THICKFRAME As Long = &H40000 Const MIN_BOX As Long = &H20000 Const MAC_BOX As Long = &H10000 Private Declare PtrSafe Function DrawMenuBar Lib "user32.dll" (ByVal hWnd As Long) As Long Private Declare PtrSafe Function GetForegroundWindow Lib "user32.dll" () As Long Public Sub AddToForm(ByVal Box_Type As Long) Dim BisMask As Long Dim Window_Handle As Long Dim WindowStyle As Long Dim Ret As Long If Box_Type = MIN_BOX Or Box_Type = MAX_BOX Then Window_Handle = GetForegroundWindow() WindowStyle = GetWindowLong(Window_Handle, GWL_STYLE) BisMask = WindowStyle Or Box_Type Ret = SetWindowLong(Window_Handle, GWL_STYLE, BisMask) Ret = DrawMenuBar(Window_Handle) End If End Sub Private Sub UserForm_Activate() Call AddToForm(MIN_BOX) Call AddToForm(MAX_BOX) End Sub Sub Resize() Dim hWndForm As Long Dim istyle As Long If Val(Application.Version) < 9 Then hWndForm = FindWindow("ThunderXFrame", Me.Caption) Else hWndForm = FindWindow("ThunderDFrame", Me.Caption) End If istyle = GetWindowLong(hWndForm, GWL_STYLE) istyle = istyle Or WS_THICKFRAME Call SetWindowLong(hWndForm, GWL_STYLE, istyle) End Sub Private Sub UserForm_Initialize() Call Resize End Sub

<tbody>
</tbody>

 

[ISY]

Hi



The code you attach goes #

Attach the original 32-bit version, the changes must always work in both versions

 

[NDMDRB]

Hi ISY,

Sorry I didn't get what you mean, but here is the link for my workbook with the code and userform, please let me know if there is anyway to fix the error and use it for all of my forms

Here is the link
https://drive.google.com/file/d/1IC8K4T05L3X_6fLPlPtIjli2Ao6n0d8S/view?usp=sharing

 

[Jaafar Tribak]

You don't have the GetWindowLong API declared.

You will also need to adapt other api declarations and pointer variabales for 64bit .

Take a look here:
https://www.mrexcel.com/forum/excel-questions/1078144-autosizing-userform-display.html#post5179915

 

[NDMDRB]

Thanks Jaafar,

This code works, but the form stays at the same size and there is no Maximize and Minimize buttons, so I found another code that works 100% as I need.
But there is just one problem which is the code is too big and I have many codes in each form
1- Do you have any way to put the code in one module and just call it from each form?
2- Another thing, (in each form) if I put all the controls that I need in a frame, can I edit this code to align it in the center of the frame? without scaling it?

Here is the new code that in a frame and 2 modules
https://drive.google.com/file/d/1vp8DgkQYTMCGkXSqkqSJlS2i2bjfuWn4/view?usp=sharing

 

[My Aswer Is This]

I'm curious why you need such a large UserForm that you need to resize.

Have you ever used a UserForm Multipage?

A Multipage is just like a Worksheet.

You can have one small UserForm with as many Multipage Pages as you want.

Think of it like The UserForm is a Workbook and Multipage Pages are like Workbook sheets.