Topmost problem?

[|2eM!x]

I dont understand this one at all. No matter what, i have a form thats being rude and wont stay topmost whatever i do. If i use setwindowpos or load it so its vbmodal it always goes to the back, any other ideas here? Ive never had such a troublesome form

[MartinLiss]

Have you seen this thread from the VB FAQ?

[Sir Loin]

Are you having this trouble with a compiled program? VB doesn't let the form be topmost unless you compile it.

Hope this helps,
Sir Loin

[|2eM!x]

martin, i dont need that as ive already used all the thoughts mentioned in it. Im positive im setting it right, so my question was more towards why isnt it working then how to do so. Sir loin, i thought you might be right, but it doesnt work out of IDE too.

                        LoadFrm.Show
                        LoadFrm.Visible = True
                        Call SetWindowPos(LoadFrm.hwnd, -1, 0, 0, 0, 0, 3)

should at least make it visible..but it flashes and dissapears..

[|2eM!x]

And i just found out..if i walk thru the code it makes it topmost..i dont get it

[|2eM!x]

so can i get some help here?

[chemicalNova]

Are you doing this in form_load? If so, put this before the SetWindowPos call:

Me.Show

EDIT: Its one of those days for me . I see you've done that. It helps to use the constants instead of numbers:

Private Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
 
Private Const SWP_SHOWWINDOW = &H40
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const HWND_TOPMOST = -1
 
Dim ret As Long
ret = SetWindowPos(Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE Or SWP_SHOWWINDOW)

chem

[dglienna]

Are you using a timer in your app?

[|2eM!x]

Yes i am running a timer

[dglienna]

What code is in there?

[wrack]

Start a new exe project and it should have a Form in it.

Go to the code section of the form and paste the following and run the project.

Option Explicit
 
Private Declare Sub SetWindowPos Lib "user32" _
   (ByVal hwnd As Long, _
   ByVal hWndInsertAfter As Long, _
   ByVal X As Long, _
   ByVal Y As Long, _
   ByVal cx As Long, _
   ByVal cy As Long, _
   ByVal wFlags As Long)
 
Private Const HWND_TOPMOST = -1
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOACTIVATE = &H10
 
Private Declare Function ShowWindow Lib "user32" _
   (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
 
Private Const SW_SHOWNOACTIVATE = 4
 
Private Sub Form_Load()
   SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_NOMOVE Or SWP_NOSIZE
   ShowWindow Me.hwnd, SW_SHOWNOACTIVATE
End Sub

[dee-u]

This works for me...

Load frmSplash
DoEvents
Success = SetWindowPos(frmSplash.hWnd, HWND_TOPMOST, 0, 0, 0, 0, flags)
DoEvents
Unload Me
frmItineraryEntry.Show

[|2eM!x]

okay. i already said i know it works in other projects. I just want to know how to fix it/any debugging i should do.