Minimize a form

Alvin Hansen

unread,

Jan 29, 2005, 10:23:03 AM1/29/05

to

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

unread,

Jan 29, 2005, 10:39:19 AM1/29/05

to

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

"Alvin Hansen" <Alvin...@discussions.microsoft.com> wrote in message
news:8215B77D-68B5-4166...@microsoft.com...

Ken Macksey

unread,

Jan 29, 2005, 12:04:33 PM1/29/05

to

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

unread,

Jan 29, 2005, 12:20:20 PM1/29/05

to

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

"Ken Macksey" <KenMa...@tnt21.com> wrote in message
news:%2378QYSi...@tk2msftngp13.phx.gbl...

Alvin Hansen

unread,

Jan 29, 2005, 1:01:03 PM1/29/05

to

Thanks i try that

alvin

"RB Smissaert" skrev:

kurb

unread,

Feb 4, 2005, 4:52:39 PM2/4/05

to

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

unread,

Feb 4, 2005, 6:47:23 PM2/4/05

to

Go To

www.vbusers.com

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

HTH

Ken

"kurb" <mom...@sympatico.ca> wrote in message
news:O8PYZPwC...@tk2msftngp13.phx.gbl...

Michel Pierron

unread,

Feb 6, 2005, 4:44:26 AM2/6/05

to

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

"kurb" <mom...@sympatico.ca> a écrit dans le message de
news:O8PYZPwC...@tk2msftngp13.phx.gbl...

RB Smissaert

unread,

Feb 6, 2005, 8:45:41 AM2/6/05

to

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

"Michel Pierron" <michel....@free.fr> wrote in message
news:e0x0vBDD...@TK2MSFTNGP09.phx.gbl...