في برنامج رواتب الموضفين للاخ سمير

للرفع

لا حياة لمن تنادي

أسف أخى الحبيب لم أرى سؤالك غير الأن لأن لى فترة لا ادخل على المنتدى

هذا الامر فائدته أنه عندما تفتح النافذة فانه يجعلها فوق كل النوافذ

السلام عليكم

بارك الله فيك

السلام عليكم أخواني الأعزاء

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

والسلام عليكم ورحمة الله وبركاته

السلام عليكم وريحمة الله وبركاته

بالنسبة للكود FrmUser.ZOrder 0 فهذا لجعل النافذه فوق كل النوافذ الموجودة

وعندما تكتب FrmUser.ZOrder فتفعل نفس الشئ لأن القيمة الأفتراضية هي 0 أما عندما تكتب 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 Sub Form_Load()

Dim vWindowPos As Long

vWindowPos = SetWindowPos(Form1.hwnd, -1, 0, 0, 0, 0, 1 Or 2)

End Sub

كي‎يé_ىْل_نç‎ًه_‎و‏_çلنوç‎ً_çلمîٌى.zip

السلام عليكم ورحمة الله وبركاته

بالنسبة للكود FrmUser.ZOrder 0 فهذا لجعل النافذه فوق كل النوافذ الموجودة

وعندما تكتب FrmUser.ZOrder فتفعل نفس الشئ لأن القيمة الأفتراضية هي 0 أما عندما تكتب 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 Sub Form_Load()

Dim vWindowPos As Long

vWindowPos = SetWindowPos(Form1.hwnd, -1, 0, 0, 0, 0, 1 Or 2)

End Sub

كي‎يé_ىْل_نç‎ًه_‎و‏_çلنوç‎ً_çلمîٌى.zip