Minimize a form

[Guest]

Hi!!

I have a form and in this form i have a button there open another
file , when i do this i want the first form to be minimize can't i do this?
my form name is priser i have try to find a code to minimize this form
but..........?

Alvin

 

[RB Smissaert]

Look at this website:
http://www.bmsltd.ie/excel/SBXLPage.asp
Find FormFun.zip

But maybe it is easier just to make a button on the form
to set the height, width and top of the form.

RBS

 

[Ken Macksey]

Hi

Go to www.vbusers.com and download flex controls. They are free and give you
controls you can drop an a vba userform to do form resizing and add min/max
buttons. Just drag it onto the form and set the properties.No programming at
all for min/max buttons.

You do have to register the control using regsvr32.


HTH

Ken

 

[RB Smissaert]

I had a go with that, but came to the conclusion that it was better to make
your own simple control (command button) that does exactly what you want.

RBS

 

[Guest]

Thanks i try that

alvin


"RB Smissaert" skrev:

I had a go with that, but came to the conclusion that it was better to make
your own simple control (command button) that does exactly what you want.

RBS

 

[kurb]

Hello

I just could not find flex controls at www.vbusers.com
(I'm looking for simple control to minimise userform)
any suggestions appreciated
Thanks
K

 

[Ken Macksey]

Go To

www.vbusers.com

Enter the site, click Downloads on the left side menu. Item # 3 on the page
that opens.

HTH

Ken

 

[Michel Pierron]

Hi kurb,
not need dll or activeX
In UserForm module:
Option Explicit
Private Declare Function FindWindow& Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName$, ByVal lpWindowName$)
Private Declare Function SetWindowLong& Lib "user32" Alias _
"SetWindowLongA" (ByVal hWnd&, ByVal nIndex& _
, ByVal dwNewLong&)
Private Declare Function EnableWindow& Lib "user32" _
(ByVal hWnd&, ByVal fEnable&)
Private Declare Function ShowWindow& Lib "user32" _
(ByVal hWnd&, ByVal nCmdShow&)
Private hWnd As Long

' Minimize in application
Private Sub UserForm_Initialize()
' Min: &H20000 / Max: &H10000 / Resize: &H40000
'Dim Style As Long
'Style = &H84C80080 Or &H20000 Or &H40000 ' => &H84CE0080
hWnd = FindWindow(vbNullString, Me.Caption)
SetWindowLong hWnd, -16, &H84CE0080
End Sub

Private Sub UserForm_Activate()
' Minimize in TaskBar (activate following lines)
'ShowWindow hWnd, 0
'SetWindowLong hWnd, -20, &H40101
'ShowWindow hWnd, 1
' no modal userform for xl97
EnableWindow FindWindow(vbNullString, Application.Caption), 1
End Sub

In standard module:
Sub FormShow()
#If VBA6 Then
UserForm1.Show 0
#Else
UserForm1.Show
#End If
End Sub

Regards,
MP

 

[RB Smissaert]

Thanks, that is nice and simple.
Would there be a way to have the maximize button on the form, but let the
application
run code when this gets pressed and not maximize the form?

RBS