Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations TouchToneTommy on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
SetForeGroundWindow
- Thread starter CFA
- Start date
- Thread starter
- #3
Sure Thing, 2 API defines,
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function SetForegroundWindow& Lib "user32" (ByVal hwnd As Long)
then
Public Function ShowWindow(ByVal sWindowName As String)
Dim lWindowHandle As Long
lWindowHandle = FindWindow(vbNullString, Trim(sWindowName))
If lWindowHandle <> 0 Then
SetForegroundWindow (lWindowHandle)
Else
' Error Message
End If
End Function
sWindow name = the title bar of the programs window to be pulled forward.
It works, but inconsistently.
Clyde
[sig][/sig]
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function SetForegroundWindow& Lib "user32" (ByVal hwnd As Long)
then
Public Function ShowWindow(ByVal sWindowName As String)
Dim lWindowHandle As Long
lWindowHandle = FindWindow(vbNullString, Trim(sWindowName))
If lWindowHandle <> 0 Then
SetForegroundWindow (lWindowHandle)
Else
' Error Message
End If
End Function
sWindow name = the title bar of the programs window to be pulled forward.
It works, but inconsistently.
Clyde
[sig][/sig]
- Thread starter
- #6
VB400 and Mike,
A little more info:
The program to be brought forward is a DOS app, therefore the title bar is constant. Something like "RUNFORM - RUNFORM".
The DOS box is not minimised. I checked this one myself. I set the property of the link to Maximized and the screen came forward 3 times. On the fourth attempt it just flashs on the taskbar.
I do appriciate the ideas, keep 'em coming.
Clyde
[sig][/sig]
A little more info:
The program to be brought forward is a DOS app, therefore the title bar is constant. Something like "RUNFORM - RUNFORM".
The DOS box is not minimised. I checked this one myself. I set the property of the link to Maximized and the screen came forward 3 times. On the fourth attempt it just flashs on the taskbar.
I do appriciate the ideas, keep 'em coming.
Clyde
[sig][/sig]
Can you reproduce the problem in a minimalist app? Post the code if you can; I hate things that sometimes work and sometimes not.... [sig]<p>Mike<br><a href=mailto:michael.j.lacey@ntlworld.com>michael.j.lacey@ntlworld.com</a><br><a href= Cargill's Corporate Web Site</a><br>[/sig]
- Status
Similar threads
- Locked
- Question
- Locked
- Question