Always On Top
Keeps Your Form On Top This Is Really Kewl Because You Can Just Use A false attribuite to set it as not on top instead of using 2 functions
AI
Riepilogo AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Codice sorgente
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 called 'Form1' then you'd simply type: AlwaysOnTop Form1, True
Commenti originali (3)
Recuperato da Wayback Machine