Pop Up Program

[kurtsimons]

I need my program to be able to become the window on top and on top with focus.

then I need a new form to pop up from that window.

I am doing it now but the window's blue caption bar blinks and it does not let me type into a text box until I click the form with my mouse.

I call the setwindowspositon API

then I set focus to the form

what else should I try?

[Hack]

Try SetForegroundWindow

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Sub Form_Load()
    'KPD-Team 1999
    'URL: [url]http://www.allapi.net/[/url]
    'E-Mail: [email][email protected][/email]
    Dim lHandle As Long
    'First we're going to retrieve the handle of this window
    ' "ThunderRT5Form" is the classname of a VB-window
    lHandle = FindWindow("ThunderRT5Form", Me.Caption)
    'Set this window to the foreground
    lHandle = SetForegroundWindow(lHandle)
End Sub

[bartbouw]

I think you mean the show event.

You can show a form with the show event. The parent form can not be used until the showed form is unloaded. So even if you click on it in the taskbar the show form will come up.

frmShow.show 1

That is what you mean I think

[kurtsimons]

my Lhandle keeps coming back as a 0

i'm using windows 2000

[kurtsimons]

I am using the show 1 but first I have to make sure my application is the one in the foreground.

1. bring app to front
2. pop up the next form

[bartbouw]

That problem is solved in this trhread

http://www.vbforums.com/showthread.p...w+to+the+front

[kurtsimons]

bartbouw,

I got the same results,

I need to get my application in the front, but with focus.

what happens now is that it goes to the front but the focus seems to be lost because the blue caption bar is blinking

[kurtsimons]

I added this
- - - - - - - - - - - - - - - - - - - - - --

SendKeys "{enter}", True

myform.show 1

text1.setfocus


- - - - - - - - - - - - - - - - - - - - - --
and all is good

[bartbouw]

If you use the code explained in the other thread and you put this code right behind:

frmMain.setfocus

your form will get the focus and be on top. After that you can use the .show command

[kurtsimons]

it didn't work until I added the sendkeys.

the form just blinked in the task bar until a key was pressed or the user clicked the form

[tgoodmannz]

Thanks - this worked for me also when nothing else would on W2K

One clarification - obviously the call:

text1.setfocus

has to be in the Form_Activate event so that this gets called when the form is shown....correct?? [worked for me!]

[kurtsimons]

you are correct, that is where i had it, I guess I was typing fast

[tgoodmannz]

No Worries!

[tgoodmannz]

Just a quick follow-up (sorry to add to an old thread).

I actually removed the line:

SendKeys "{enter}", True

I found that if I had another application open that it sent an enter key to that app .. not great if you are writing a letter ..

It still seems to work OK on W2K (using just the setfocus call)

Cheers,
Tim