Printable View
سلام
می خوام برای برنانم گزینه "Always on top" بزارم(همیشه در بالا بودن)
یعنی وقتی فوکوس روی برنامه های دیگست هم بازم برنامه من بالای برنامه های دیگه باشه
قبلا یک جا دیده بودم با چند خط این کار رو کرده بودن فکر کنم توی همین فروم بود
ولی الان هر چی دنبالش می گردم پیدا نمی کنم
این کد ها را باید تو بخش جنرال یعنی قبل از رخدادها کپی کنی :نقل قول:
این کد برای On top نگه داشتن من گزاشتم تو رخداد Form Loadکد:Private 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
Const SWP_NOMOVE = &H2
Const SWP_NOSIZE = &H1
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const HTCAPTION = 2
Const WM_NCLBUTTONDOWN = &HA1
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
کد:Private Sub Form_Load()
SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE
End Sub
مرسی
برای اینکه دوباره از حالت آن تاپ خارج بشه باید چی بنویسم؟
خب اونو هم که گذاشته بودم
کد:SetWindowPos hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE
اینکه آن تاپش می کنه
اونی که از حالت آن تاپ در میاره رو می خوام
دقت کن فرق داره : این NoMustTop هستنقل قول: