تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
لجعل الفورم دوماً في المقدمة
#1
كاتب الموضوع : AhmedEssawy

الكود منقول من المنتدى القديم .


ضع هذة الشفرة في التصريحات

كود :
Const FLAGS = 3
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Public bOnTop As Boolean
Private Declare Function SetWindowPos Lib "user32" (ByVal h%, ByVal hb%, ByVal X%, ByVal Y%, ByVal cx%, ByVal cy%, ByVal f%) As Integer
وهذة الشفرة في اجراء(AlwaysOnTop)

كود :
Sub AlwaysOnTop(FormName As Form, bOnTop As Boolean)
Dim res As Integer
If bOnTop = False Then
res% = SetWindowPos(FormName.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
Else
res% = SetWindowPos(FormName.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS)
End If
End Sub
}}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم