With CommandButton would like to automatically minimize the Userform.

[NimishK]

Hi

This is my first time working on API for Minimizing, Maximizing Buttons on Userform and Found the below following code at https://stackoverflow.com/questions/50853247/excel-vba-userform-minimise-button

Would it be possible for a command button Click to automatically minimize the userform and show userform modeless
'Code in Module

Option Explicit
Public Declare Function FindWindowA& Lib "user32" (ByVal lpClassName$, ByVal lpWindowName$)
Public Declare Function GetWindowLongA& Lib "user32" (ByVal hwnd&, ByVal nIndex&)
Public Declare Function SetWindowLongA& Lib "user32" (ByVal hwnd&, ByVal nIndex&, ByVal dwNewLong&)
' Déclaration des constantes
Public Const GWL_STYLE As Long = -16
Public Const WS_MINIMIZEBOX = &H20000
Public Const WS_MAXIMIZEBOX = &H10000
Public Const WS_FULLSIZING = &H70000
'Attention, envoyer après changement du caption de l'UF

Public Sub InitMaxMin(mCaption As String, Optional Max As Boolean = True, Optional Min As Boolean = True _
        , Optional Sizing As Boolean = True)

Dim hwnd As Long
    hwnd = FindWindowA(vbNullString, mCaption)
    If Min Then SetWindowLongA hwnd, GWL_STYLE, GetWindowLongA(hwnd, GWL_STYLE) Or WS_MINIMIZEBOX
    If Max Then SetWindowLongA hwnd, GWL_STYLE, GetWindowLongA(hwnd, GWL_STYLE) Or WS_MAXIMIZEBOX
    If Sizing Then SetWindowLongA hwnd, GWL_STYLE, GetWindowLongA(hwnd, GWL_STYLE) Or WS_FULLSIZING

End Sub

Code in Userform

Private Sub UserForm_Initialize()
    InitMaxMin me.Caption
End Sub

Private Sub CommandButton1_Click()
    userform1.show vbModeless
End Sub

what needs to be coded when clicked on command button: Automatically the Userform minimises automatically rather then clicking on
minimize button on userform and show userform modeless

thanks
NimishK

 

[NimishK]

Re: With Commnand_Button would like to automatically minimize the Userform.

Jaafar

Any progress on multiple userforms. ?

I think the time has come for me to work on mulitple userforms where with command button and to show the other forms modeless work on the modelss forms and simultaneously on worksheet(s)

Thanks and Regards
NimishK

 

[Jaafar Tribak]

Re: With Commnand_Button would like to automatically minimize the Userform.

Jaafar
Any progress on multiple userforms. ?

Hi Nimishk,

I am afraid, I have tried upgrading the code so that it works with multiple userforms but I haven't been successful so far.

The code is complicated enough as it is , more so for multiple userforms .

Hoping someone will see this thread and offer a solution and If I ever come up with one, I'll post it here.

Good luck

 

[NimishK]

Re: With Commnand_Button would like to automatically minimize the Userform.

Thanks for your reply. Will await yours or someone else solution. Take Care