Ontop نگه داشتن فرمها
چهارشنبه 14 مرداد 1388 2:50 AM
اين ترفند مربوط به
ONTOP
نگه داشتن فرمها مي شود
.
اين كار مي تواند در بسياري از زمينه ها از جمله برنامه هاي مانيتورينگ مناسب باشد
.
كدهاي زير را در يك ماژول كپي كنيد و بصورت زير از تابع استفاده كنيد
.
,Set Some API Function and constant to Use Ontop Forms
Public 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)
Const HWND_TOPMOST = -1
Const SWP_NOSIZE = &h1
Const SWP_NOMOVE = &h2
Public Sub StayOntop(YourForms As Form)
SetWindowPos YourForm.hwnd, HWND_TOPPOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NO SIZE
End Sub
