اجعل الفورم دائما في المقدمة
صفحة 1 من اصل 1 • شاطر •
اجعل الفورم دائما في المقدمة
اجعل الفورم دائما في المقدمة
وهذا هو الكود
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 Const SWP_NOMOVE = 2
Private Const SWP_NOSIZE = 1
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
Public Sub SetOnTop(ByVal hwnd As Long, ByVal bSetOnTop As Boolean)
Dim lR As Long
If bSetOnTop Then
lR = SetWindowPos(hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)
Else
lR = SetWindowPos(hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)
End If
End Sub
اجعل الكود السابق في موديول
والكود التالي في الفورم
Private Sub Form_Load()
SetOnTop Form1.hwnd, True
End Sub
وهذا هو الكود
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 Const SWP_NOMOVE = 2
Private Const SWP_NOSIZE = 1
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
Public Sub SetOnTop(ByVal hwnd As Long, ByVal bSetOnTop As Boolean)
Dim lR As Long
If bSetOnTop Then
lR = SetWindowPos(hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)
Else
lR = SetWindowPos(hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)
End If
End Sub
اجعل الكود السابق في موديول
والكود التالي في الفورم
Private Sub Form_Load()
SetOnTop Form1.hwnd, True
End Sub
Admin- jadquraan
- عدد الرسائل : 125
العمر : 35
تاريخ التسجيل : 19/10/2006
رد: اجعل الفورم دائما في المقدمة
مميز أخي جاد في شرحك الراقي
شكراً لك
وتحياتي لكم جميعاً
شكراً لك
وتحياتي لكم جميعاً
فيجوال بيسك 6- مراقب عام
- عدد الرسائل : 17
تاريخ التسجيل : 22/10/2006
رد: اجعل الفورم دائما في المقدمة
شكرا اخي جاد
انا بصراحة كنت
محتاج هذا الكود
وشكرا مرة ثانية اخي جاد
انا بصراحة كنت
محتاج هذا الكود
وشكرا مرة ثانية اخي جاد
_________________



bigboss_quraan- مشرف عام
- عدد الرسائل : 136
العمر : 27
تاريخ التسجيل : 19/10/2006
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى