How to setfocus on existing window

[pradeepkrao]

Hi,

I have an application runnig. i want only one instance of it on my system. So i check for the previous instance and then if exist i get the handle and then set that window as fore ground window .. But it is not working fine.. Can any body help me out..

i am sending the code..

Sub Main()

Dim handle As Long
Dim lng As Long
Dim SaveTitle As String

If (App.PrevInstance) Then
SaveTitle = App.Title

handle = FindWindow(0&, "My Application")


If handle = 0 Then
handle = FindWindow(0&, SaveTitle)

End If


lng = BringWindowToTop(handle)

lng = SetForegroundWindow(handle)


If lng = 0 Then

MsgBox "Previous instance not found ", vbInformation

End If


'Kill the Duplicate Instance of the Application in any case.
End

End If
frmMyapplication.Show
End Sub




Reply ASAP

Pradeep

[da_silvy]

1) Put all code inside [vbcode] [/vbcode] tags
2) Do you not have a form?

BringWindowToTop Me.hwnd

??

[pradeepkrao]

Its not working...

if you see the code i have sent you would find
BringWindowToTop(handle) which i have already used.. Bur i dont know why its not working....

pradeep

[beachbum]

Hi
Copy the code on this link
http://www.vbforums.com/showthread.p...p.previnstance
Regards
Stuart

[Megatron]

Change your FindWindow line to match the following. Adding the classname will help narrow your search

'Use This line when you are running a compiled EXE
strClass = ThunderRT6Form

'Use this line if you are running within the IDE
strClass = ThunderForm

handle = FindWindow(strClass, "My Application")

[pradeepkrao]

beachbum

The link which you have mentioned is exactly what i wanted..

Thank you

Pradeep

[da_silvy]

Originally posted by Megatron
Change your FindWindow line to match the following. Adding the classname will help narrow your search

'Use This line when you are running a compiled EXE
strClass = ThunderRT6Form

'Use this line if you are running within the IDE
strClass = ThunderForm

handle = FindWindow(strClass, "My Application")

Is he even using a form?

[pradeepkrao]

Thank you guys,


Every thing is workin fine... Thank you da_silvy... your code also works fine..

Thank you
Pradeep

[da_silvy]

no probs man