تقييم الموضوع :
  • 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 4 83 18-11-17, 03:37 PM
آخر رد: Microformt
  كيف يفتح برنامجى ملف عند الضغط على (فتح) ملف ذو امتداد معين مبرمج مصرى 3 52 11-11-17, 10:51 PM
آخر رد: مبرمج مصرى
Question [vb6.0] كيف اجعل زر الامر ينتقل امام text عند انتقل موشر الكتابه الى text اخر ؟؟ Microformt 2 74 29-10-17, 07:33 AM
آخر رد: Microformt
Question [vb6.0] كيف اجعل خلفية Text شفافه ؟؟ Microformt 7 250 13-10-17, 05:40 AM
آخر رد: Mohamad Anan
Question [vb6.0] كيف اجعل في text التاريخ لا يقبل في اليوم اكثر من 30 يوماً وكيف اجعل التاريخ في الشهر Microformt 2 73 09-10-17, 09:17 PM
آخر رد: عبد العزيز البسكري
Question [vb6.0] كيف اغلاق ملف قاعدة بيانات اكسس مفتوحة من خلال برنامجي ؟؟ Microformt 3 93 21-09-17, 04:20 PM
آخر رد: Amir_alzubidy
Question [vb6.0] كيف يتم تعطيل عمل ازارار ctrl+Ait+Delete عند تشغيل برنامجي ؟؟ Microformt 4 150 13-09-17, 08:17 AM
آخر رد: Amir_alzubidy
  [سؤال] مشكلة في برنامجي أرجو حلها suzoki 1 106 08-09-17, 06:06 AM
آخر رد: suzoki
Question [vb6.0] كيف اجعل الصوره تتوسط الفورم سوى كان عند التكبير او التصغير ؟ Microformt 1 107 05-09-17, 10:22 PM
آخر رد: Amir_alzubidy
Question [vb6.0] الاستعلام برقم الموظف في برنامجي المرفق ؟ Microformt 9 241 27-08-17, 01:44 PM
آخر رد: Microformt

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


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