modifying a fullscreen userform macro

[kelly mort]

I found this code here in this forum which maximizes the userform to cover the whole screen. It worked for me but I have a multi page form and the multi page did not expand. So I wanna know if it can also expand as well. Then what happens to the controls on it. Will they too expand?

Option Explicit

[URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=If]#If[/URL]   VBA7 Then
    Private Declare PtrSafe Function WindowFromAccessibleObject Lib "oleacc" (ByVal pacc As IAccessible, phwnd As LongPtr) As Long
    Private Declare PtrSafe Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
    Private Declare PtrSafe Function SetWindowPos Lib "user32" (ByVal hwnd As LongPtr, ByVal hWndInsertAfter As LongPtr, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
    Private Declare PtrSafe Function IsWindow Lib "user32" (ByVal hwnd As LongPtr) As Long
    Private hwnd As LongPtr
[URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=Else]#Else[/URL]   
    Private Declare Function WindowFromAccessibleObject Lib "oleacc" (ByVal pacc As IAccessible, phwnd As Long) As Long
    Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
    Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
    Private Declare Function IsWindow Lib "user32" (ByVal hwnd As Long) As Long
    Private hwnd As Long
[URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=End]#End[/URL]   If

Private Const SM_CXSCREEN = 0
Private Const SM_CYSCREEN = 1

Private Sub UserForm_Initialize()
    Call WindowFromAccessibleObject(Me, hwnd)
    If IsWindow(hwnd) Then
        SetWindowPos hwnd, 0, 0, 0, GetSystemMetrics(SM_CXSCREEN), GetSystemMetrics(SM_CYSCREEN), 0
    End If
End Sub

And also on my pc the lines after the #Else are lighted red and was prompted to update them and mark them as PtrSafe. Somebody help me out.
Kelly

 

[kelly mort]

Oh okay thanks very much for it. I am very grateful.

There is one issue with the listbox: the columns did not expand to match the data it contains.

 

[Jaafar Tribak]

Oh okay thanks very much for it. I am very grateful.

There is one issue with the listbox: the columns did not expand to match the data it contains.

Good point ... Never thought about the listbox\combobox dropdown .. I'll see if I can find a solution and post back later.

 

[Jaafar Tribak]

I have just tried populating a listbox as well as a combobox on the useform and the data in both of them expands just fine :

Are you refering to a multi-column listbox ?

 

[kelly mort]

Yes multi column. I have 14 columns. When we used the Me.Zoom it worked fine. The listbox itself expands well but the columns don't

Comboboxes worked for me too.

 

[Jaafar Tribak]

Yes multi column. I have 14 columns. When we used the Me.Zoom it worked fine. The listbox itself expands well but the columns don't

Comboboxes worked for me too.

I have just added a multi-column listbox with 3 columns for testing and everything works as expected ... the listbox expands as do the listbox columns ... I can see the columns have expanded when scrolling the listbox horizontally

So I don't really know the reason the columns don't expand for you.

 

[kelly mort]

I have just added a multi-column listbox with 3 columns for testing and everything works as expected ... the listbox expands as do the listbox columns ... I can see the columns have expanded when scrolling the listbox horizontally

So I don't really know the reason the columns don't expand for you.

Okay I am about to delete the column widths and see

 

[kelly mort]

I think it is not expanding because I have the column widths personalised. When I deleted the personalized one, it expanded well but the contents did not fit well in the spaces

 

[kelly mort]

Is there a way to get this issue resolved?
Maybe some if statement will do. That's the if statement will run only when I maximize the userform. I just can't figure how to place it yet.
Kelly

 

[Jaafar Tribak]

Is there a way to get this issue resolved?
Maybe some if statement will do. That's the if statement will run only when I maximize the userform. I just can't figure how to place it yet.
Kelly

Can you upload a workbook demo somewhere like box.net or other file- sharing site so I can see what problem you are having ?

 

[kelly mort]

Hello Jaafar Tribak,
Can you please pm me your email so I can send the demo to you? I am having problems uploading to the Dropbox
Kelly