Stay on Top

[Networks]

How do you impliement a "stay on top" function in a VB6 Application?

[K]

You will need to call SetWindowPos() with the HWND_TOPMOST parameter.


Edit: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winui/WinUI/WindowsUserInterface/Windowing/Windows/
WindowReference/WindowFunctions/SetWindowPos.asp

[Grok]

Code Select Expand

Private Function StayOnTop(ByRef TopPerson As CPerson, ByRef BottomPerson As CPerson) As True
   Do While TopPerson.Altitude <= BottomPerson.Altitude
       TopPerson.Altitude = TopPerson.Altitude + 1
       If BottomPerson.Slap(TopPerson) = REAL_HARD Then
           StayOnTop = False
           Exit Function
       End If
   Loop
   StayOnTop = True
End Function

Hope this helps.

[Networks]

Usage? And there is a syntax error Grok.

[Spht]

Usage? And there is a syntax error Grok.

StayOnTop(Grok, Networks)

[Networks]

I am little confused I talking about windows here.

[iago]

grok's response was a joke.  Read K's, it explains what you need to know.

[K]

grok's response was a joke.  Read K's, it explains what you need to know.

Although if you couldn't figure out that Grok's was a joke, good luck implementing the simple api call  

[Eli_1]

Usage? And there is a syntax error Grok.

More proof that people don't actually read the code the copy and paste.

[Newby]

Usage? And there is a syntax error Grok.

Define REAL_HARD as "With Blood"

EDIT -- I totally agree. That is pathetic he didn't catch on to that.

[Eli_1]

Usage? And there is a syntax error Grok.

Define REAL_HARD as "With Blood"

EDIT -- I totally agree. That is pathetic he didn't catch on to that.

Code Select Expand


Const REAL_HARD as String = "With Blood" '// *


[Fr0z3N]

Code Select Expand



'**************************************
'Windows API/Global Declarations for
'Always On Top
'**************************************

Declare Function 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) As Long

Public Sub AlwaysOnTop(myfrm As Form, SetOnTop As Boolean)


   If SetOnTop Then
       lFlag = HWND_TOPMOST
   Else
       lFlag = HWND_NOTOPMOST
   End If
   SetWindowPos myfrm.hwnd, lFlag, _


   myfrm.Left / Screen.TwipsPerPixelX, _
   myfrm.Top / Screen.TwipsPerPixelY, _
   myfrm.Width / Screen.TwipsPerPixelX, _
   myfrm.Height / Screen.TwipsPerPixelY, _
   SWP_NOACTIVATE Or SWP_SHOWWINDOW
End Sub
'Well, if your for example in a form cal
'     led 'Form1' then you'd simply type:
AlwaysOnTop Form1, True



[Eric]

Code Select Expand



'**************************************
'Windows API/Global Declarations for
'Always On Top
'**************************************

Declare Function 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) As Long

Public Sub AlwaysOnTop(myfrm As Form, SetOnTop As Boolean)


   If SetOnTop Then
       lFlag = HWND_TOPMOST
   Else
       lFlag = HWND_NOTOPMOST
   End If
   SetWindowPos myfrm.hwnd, lFlag, _


   myfrm.Left / Screen.TwipsPerPixelX, _
   myfrm.Top / Screen.TwipsPerPixelY, _
   myfrm.Width / Screen.TwipsPerPixelX, _
   myfrm.Height / Screen.TwipsPerPixelY, _
   SWP_NOACTIVATE Or SWP_SHOWWINDOW
End Sub
'Well, if your for example in a form cal
'     led 'Form1' then you'd simply type:
AlwaysOnTop Form1, True



I saw something nearly identical to that on pscode, but I'm sure it's just a coincidence.

[Spht]

I saw something nearly identical to that on pscode, but I'm sure it's just a coincidence.

He never claimed he wrote it, so you could be right.

[iago]

Also, how different can stay-on-top code BE?  I mean, besides Grok's