Form on top but let the rest go on in the back

[jacsoft]

Alright this is complicated. I made my own msgbox form cause the standard isn't good enough cause it freezes the whole program. Now I want this form on top so the user can't klik elsewhere in the program, but it must let all the other forms go on. Cause it's a chat program and else the winsock isn't working good cause i check each x seconds if the other users are still online. Any suggestions??

[chrisjk]

Try making the msgbox form modal

Form1.Show vbModal

That will prevent them from clicking elsewhere in the app and it should allow the app to continue working underneath

[jacsoft]

That just do'n't work, cause the mainform winsock will get the data (in a buffer I think) but only goes on handling them when the modal form is away, so showing modal isn't the good solution

[moinkhan]

Modal form would cause the execution in anyother part of program to stop..

You can use SetWindowPos with SWP_TOPMOST and disable any other window of the program

[chrisjk]

I couldn't remember if modal stopped execution or not...apparently it does

Oh well, c'est la vie

[peet]

a sample on how to use SetWindowPos

Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOACTIVATE = &H10
Private Const SWP_SHOWWINDOW = &H40
Private Const TOPMOST_FLAGS = SWP_NOMOVE Or SWP_NOSIZE
 
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, y, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
 
Public Sub MakeNormal(Handle As Long)
    'Replaces the window in the ZOrder
    SetWindowPos Handle, HWND_NOTOPMOST, 0, 0, 0, 0, TOPMOST_FLAGS
End Sub
 
Public Sub MakeTopMost(Handle As Long)
    'Sets the window in the ZOrder
    SetWindowPos Handle, HWND_TOPMOST, 0, 0, 0, 0, TOPMOST_FLAGS
End Sub
 
'usage
Private Sub Form_Load()
    MakeTopMost Me.hwnd
End Sub