how i can make form always on top

في قسم التعريفات:

Private Declare Sub 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)



Private Const HWND_TOPMOST = -1

Private Const HWND_NOTOPMOST = -2

Private Const SWP_NOSIZE = &H1

Private Const SWP_NOMOVE = &H2

Private Const SWP_NOACTIVATE = &H10

Private Const SWP_SHOWWINDOW = &H40

وفي حدث تحميل الفورم Form_load:

SetWindowPos Me.hwnd, HWND_TOPMOST, Me.Left / 15, Me.Top / 15, Me.Width / 15, Me.Height / 15, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE

أخي أضن أنه فيه حل أسهل من استعمال الدوال

وأضن أنها في ميزات كائنات FORM

فعندما تكتب

form.Show [vbModeless | vbModal ]

حيث:

form هو اسم الفورم

vbModeless = 0 هو فورم عادي

و vbModal = 1 هو فورم دائم فعال حتى تغلقه

;)

والله أعلم

هذه تستخدم لإظهار الفورم والانتظار حتى إغلاقه، يظهر في المقدمة صحيح ولكن بالنسبة للفورم الذي وضع فيه أمر التحميل السابق وليس بالنسبة لنوافذ البرنامج الأخرى أو برامج أخرى.

هذا صحيح وأنا لم أفهم جيدا سؤال الأخ شوقي

وبارك الله فيك فإنك علمتني داله جديدة :)