تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] كيف اجعل برنامجي يفتح فوق كل البرامج المفتوحة ؟؟
#1
Question 
الاخوه الكرام
السلام عليكم ورحمة وبركاته
كيف اجعل برنامجي يفتح فوق كل البرامج المفتوحة ؟؟
نامل من الله المساعده والله يحفظكم ويرعاكم
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد }}}
تم الشكر بواسطة:
#2
[quote]Option Explicit

Private Sub Command1_Click()
Dim lR As Long
lR = SetTopMostWindow(Form1.hwnd, True)
End Sub

Private Sub Command2_Click()
Dim lR As Long
lR = SetTopMostWindow(Form1.hwnd, False)
End Sub
الرد }}}
تم الشكر بواسطة:
#3
Question 
اخي العزيز Big Grineya R Ataya
السلام عليكم ورحمة وبركاته
الكود لم ينجح معي ممكن مثال ؟؟
ولكم مني فائق الاحترام والتقدير
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد }}}
تم الشكر بواسطة:
#4
.....

منقول

أنشء موديول Module باسم mdl_TopMostWindow وضع فيه هذا الكود "نافذة دوماً في المقدمة"
كود :
Option Explicit

Public 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
Const SWP_NOMOVE = 2
Const SWP_NOSIZE = 1
Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2

Public Function SetTopMostWindow(hwnd As Long, Topmost As Boolean) As Long
    If Topmost = True Then 'Make the window topmost
        SetTopMostWindow = SetWindowPos(hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
    Else
        SetTopMostWindow = SetWindowPos(hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS)
        SetTopMostWindow = False
    End If
End Function

طريقة تطبيق أمر "نافذة دوماً في المقدمة" على النموذج في الحدث Form_Load
كود :
Private Sub Form_Load()
    Call SetTopMostWindow(Me.hwnd, True)
End Sub

.....
الرد }}}
تم الشكر بواسطة: Microformt
#5
Wink 
اخي العزيزvbnet
السلام عليكم ورحمة وبركاته
لك مني من جزيل الشكر والتقدير على ما تقدمه من دعم فني والله يحفظكم ويرعاكم
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [vb6.0] كيف اجعل تقرير برنامجي تكون السجلات ملونه مثل الذي في الصورة التأليه ؟ Microformt 0 276 29-10-23, 07:37 PM
آخر رد: Microformt
Question [vb6.0] هل هناك ادوات جديده يمكن استخدمها في تصميم برنامجي بدل ادوات فجوال البيسك ؟ Microformt 0 220 21-10-23, 07:34 PM
آخر رد: Microformt
  كيف يمكن تشغيل برنامجي على اكثر من جهاز بنفس الوقت princeofislam 1 291 14-10-23, 08:18 PM
آخر رد: princeofislam
Question [vb6.0] كيف استخدم هذه الخوارزمية في برنامجي نامل المساعدة العاجله؟ Microformt 0 224 04-10-23, 11:44 PM
آخر رد: Microformt
Information [vb6.0] كيف اجعل الارقم في التقرير باء الغه الانجليزية حتى لو كان نظام الارقام في الويندوز Microformt 0 179 16-08-23, 10:41 AM
آخر رد: Microformt
Question [vb6.0] كيف اجعل الصورة تتحرك تدريجياً الى منتصف الفورة من جهة اليمين ؟ Microformt 1 367 13-04-23, 04:57 PM
آخر رد: Taha Okla
Question [vb6.0] كيف اعرف رقم الخطاء عند ظهور هذه الرسالة في برنامجي؟ Microformt 0 398 07-10-22, 09:51 PM
آخر رد: Microformt
Question [vb6.0] كيف اجعل هذا الشريط يظهر المساحة المستخدمة من قاعدة البيانات؟ Microformt 2 742 05-10-22, 08:53 AM
آخر رد: Microformt
Question ريد كود يجعل واجهة برنامجي فوف نوافذ البرامج عند التشغيل البرنامج ؟؟ Microformt 2 699 03-10-22, 11:26 PM
آخر رد: Microformt
Question [vb6.0] كيف اجعل textيقبل فقط إدخال نسبة موأيه بتنسيق التالي ؟؟ Microformt 4 655 28-09-22, 04:54 PM
آخر رد: Microformt

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


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