چه جوری فرم خود را همیشه رو نگه داریم؟

[M * M * A]

چه جوری فرم خود را همیشه رو نگه داریم؟(always on top)

[Hossein Bazyan]

هنگام نمایش فرم آنرا به شکل زیر نمایش بده


Form.Show vbModal, me

[Payam Moradi]

به محض فشردن کلید فرم روی تمام پنجره ها در ویندوز قرار میگیرد.:چشمک:

[sohrab o]

اگه منظورت اینه که برنامه همیشه در بالای برنامه های دیگه قرار بگیره از این روش نمی شه باید پیام بدی تا برا اینجا بزام

[M * M * A]

با سلام به دوست عزیزم علما
اگه برنامه ای دارید لطفا بگذاریم

[Payam Moradi]

دیگه چند روش گفتند! دقیقا منظورتون چیست؟

[romina2006]

Option Explicit

Private Const HWND_BOTTOM = 1
Private Const HWND_NOTOPMOST = -2
Private Const HWND_TOP = 0
Private Const HWND_TOPMOST = -1
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1

Private Declare Function GetActiveWindow Lib "user32" () As Long
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

Private Sub MakeWindowAlwaysTop(hwnd As Long)
SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE
End Sub

Private Sub MakeWindowNotTop(hwnd As Long)
SetWindowPos hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE
End Sub

Private Sub Timer1_Timer()
MakeWindowAlwaysTop Me.hwnd
End Sub