Forms Display

[ZAK]

Hi

I am displaying a warning form for a user when the cell
reaches a critical value. However I would like the form to
be at the forefront of all windows application, so that
the user has to acknowledge before he can resume to use
the computer. I am thinking in cases where the Excel is
minimised.

Regards

ZAK

 

[Chip Pearson]

Zak,

Try the following, for Excel 2000 and later.

Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Declare Function SetForegroundWindow Lib "user32" ( _
ByVal hwnd As Long) As Long

Sub ShowTheForm()
Dim FHwnd As Long
Load UserForm1
FHwnd = FindWindow("ThunderDFrame", UserForm1.Caption)
If FHwnd Then
SetForegroundWindow FHwnd
End If
UserForm1.Show
End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

 

[Tom Ogilvy]

API, VB Programmer's Journal, ForeGround

Jim Rech has indicated in past postings that with Windows 98 and later and
Windows 2000 and later, the SetForeGroundWindow function doesn't take the
foreground unless the application issuing it is in the foreground. This
doesn't seem to be the case for the OP. If not, he might want to look at
Jim's solution:

http://groups.google.com/groups?threadm=u00EKddj$GA.262@cppssbbsa04&rnum
=2

http://groups.google.com/groups?selm=OgCCVl4vBHA.1592@tkmsftngp07

 

[Chip Pearson]

It worked fine for me in Excel 2003 on Windows XP Pro.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

 

[Tom Ogilvy]

Ok,
worked for me in Excel 97, with Windows 98 SE.

Go figure <g>