ابحث عن كود ابقاء نافذة البرنامج فوق النوافذ الأخرى

فى Module

'Declarations :
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOACTIVATE = &H10
Private Const HWND_NOTOPMOST = -2
Private Const HWND_TOPMOST = -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

Public Function FormOnTop(FormName As Form, OnTop As Boolean)
Dim wFlags As Long
Dim PosFlag As Long

wFlags = SWP_NOMOVE Or SWP_NOSIZE Or SWP_NOACTIVATE

Select Case OnTop
	Case True
		PosFlag = HWND_TOPMOST
	Case False
		PosFlag = HWND_NOTOPMOST
End Select

SetWindowPos FormName.hWnd, PosFlag, 0, 0, 0, 0, wFlags

End Function

فى الـ Form

FormOnTop Me, True

جزاك الله خير

بحث حتى تعبت

جربت وما نفعت ويش المشكلة

اقتباس

جربت وما نفعت ويش المشكلة

ملحوظة هو ناديت الدالة FormOnTop و لا حطيت الكود فى أى حته و خلاص ;)

حطيتFormOnTop في الفورم لود

كفيت ووفيت اخوي :)

لك هذا المثال أرجو أن يكون المطلوب

Nouveau_dossier.rar

الحبيب99 كتب:

حطيتFormOnTop في الفورم لود

<_< برضه مقلتش ايه اللى حصل !

يعنى طلع Error و لا معملش حاجة و لا ايه يالضبط :angry:

و حطيته فى الـ Form Load بتاع Form بمواصفات عادية و لا Modal window و لا ايه !

البرنامج اشتغل عادي

لكن نافذة برنامجي ليست فوق النوافذ الأخرى

ايه الوظائف اﻷخرى اللى بتناديها فى الـ Form_Load

و جرب الكود بمشروع جديد بدون اى شئ زياده عليه و شوف هينفع و لا ﻷ.