PDA

View Full Version : تابعی که برنامه را بالای همه برنامه هاقرارمیده چیه ؟



تک تیرانداز
پنج شنبه 06 اسفند 1383, 19:00 عصر
چطور میتوان پنجره ایی را در بالای تمام پنجره ها
قرار داد

Hamedm
پنج شنبه 06 اسفند 1383, 20:20 عصر
سلام

بوسیله تابع API زیر میتونی این کارو انجام بدی.

Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (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

موفق باشید و پرتوان

حامد مصافی
جمعه 07 اسفند 1383, 00:37 صبح
اینم نحوه کار با اون


Declare Function SetWindowPos Lib "User32" (ByVal h%, ByVal hb%, ByVal x%, ByVal Y%, ByVal cx%, ByVal cy%, ByVal F%) As Integer

Sub AlwaysOnTop(frmID As Form, OnTop As Boolean)
Const SWP_NOMOVE = 2
Const SWP_NOSIZE = 1
Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
If OnTop Then
OnTop = SetWindowPos(frmID.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
Else
OnTop = SetWindowPos(frmID.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS)
End If
End Sub