Full size userform

[Sharid]

I have this code that makes my userform full page, the problem is that any other objects on the userform do not do the same, like multipages, buttons, images textboxes, etc.
Is there was to do it so that everything will expand. I was testing it on this form, see the attached picture

Private Sub Userform_Activate()
With Application
   Me.Top = .Top
    Me.Left = .Left
    Me.Height = .Height
    Me.Width = .Width
End With
End Sub

The multipage was the original size of the userform, the above code expanded the form, but everything else stayed the size it was designed. Is there a way to do it so everything changes size

Thanks

 

[YasserKhalil]

@Jaafar Tribak
I am using Windows 10 64 Bit and Office 365 32 Bit >> I have tested the workbook but it seems not working for me

 

[Sharid]

Not sure why, see the download link for a copy of my test

Also some of the code showed in red as seen in image see attached, out of my depth to advise you why
Download File from Here

Also the command button is NOW opening the form in Full mode and not in normal size as it was doing and states on the sheet

 

[Jaafar Tribak]

@Sharid

If you don't want the userform to be shown in full size, just comment out the following line in the MakeFormResizeable routine.

 PostMessage hwnd, WM_SYSCOMMAND, SC_MAXIMIZE, 0

The lines in the code that you highlighted in yellow are in red because the VBA7 compiler doesn't recognize them... You can safely ignore them and leave them intact. they won't affect the code.

 

[Jaafar Tribak]

@Jaafar Tribak
I am using Windows 10 64 Bit and Office 365 32 Bit >> I have tested the workbook but it seems not working for me

Hi Yasser,

Do you mean that when you resize the userform the controls don't resize with it ?

 

[YasserKhalil]

I can't resize the userform itself!!

 

[Jaafar Tribak]

I can't resize the userform itself!!

Strange!

Try adding a Debug.Print statement at the end of the CreateMenu routine and let me know the output you get in the immediate window :

Private Sub CreateMenu()
    Call WindowFromAccessibleObject(Ufrm, hwnd)
    lStyle = GetWindowLong(hwnd, GWL_STYLE)
    lStyle = lStyle Or WS_SYSMENU Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX Or WS_THICKFRAME
    SetWindowLong hwnd, GWL_STYLE, lStyle
    DrawMenuBar hwnd
    Debug.Print hwnd  '<===================
End Sub

 

[Jaafar Tribak]

In fact, try this with two Debug.Print statements ;

Private Sub CreateMenu()
    Call WindowFromAccessibleObject(Ufrm, hwnd)
    lStyle = GetWindowLong(hwnd, GWL_STYLE)
    lStyle = lStyle Or WS_SYSMENU Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX Or WS_THICKFRAME
    Debug.Print SetWindowLong(hwnd, GWL_STYLE, lStyle) & vbTab & "Style"  '<===================
    DrawMenuBar hwnd
    Debug.Print hwnd & vbTab & "HWND"   '<===================
End Sub

 

[YasserKhalil]

This is what I got in immediate window

1443823616  Style
132094  HWND

 

[Jaafar Tribak]

This is what I got in immediate window

1443823616  Style
132094  HWND

That output means the hwnd variable holds the correct form window handle and that the form style is changed successfully. So, I have no idea why it doesn't work for you and you can't resize the form.

Is there something about Office 365 that causes API calls to not work as expected - I don't know to be honest.

 

[Sharid]

Jaafar Tribak
Thanks for your up dates, I am happy with your code. its super.

As for Yasser -
Upload an image or a demo of your form so we can see what you mean as I can't see any faults with the code, as it works for me