تقييم الموضوع :
  • 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
السلام عليكم ورحمة وبركاته
لك مني من جزيل الشكر والتقدير على ما تقدمه من دعم فني والله يحفظكم ويرعاكم
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] كيف اجعل زر امر الطابعه في برنامج المرفق غير مفعل نامل الاطلاع عليه والمساعدة ان امكن Microformt 3 62 12-11-18, 02:06 PM
آخر رد: elgokr
  [vb6.0] كيف اجعل المستخدم يكتب في Text انجليزي فقط ؟؟ Microformt 2 113 21-09-18, 05:12 PM
آخر رد: Microformt
  كيفية عمل زر print screen للفورم المفتوحة mohamed arafa 1 125 14-09-18, 08:15 AM
آخر رد: Ahmed_Mansoor
Question [vb6.0] كيف اجعل عند النقر على ComboBox تظهر للمستخدم رسالة ؟؟ Microformt 3 125 09-09-18, 11:21 PM
آخر رد: ahmed.m
Question [vb6.0] هل يمكن استخدم كاميرة الحاسب في تصور الموظفين وحفظ الصورة بقاعدة بيانات برنامجي ؟؟ Microformt 3 236 27-07-18, 10:47 AM
آخر رد: Ahmed_Mansoor
Question [vb6.0] كيف اجعل زر الامر غير مفعل في حال عدم جود طابعة على الحاسب ؟ Mysystem32 1 194 28-04-18, 02:18 AM
آخر رد: Amir_alzubidy
Information [vb6.0] كيف ان اجعل الصورة الموجودة في خلفية الفورم تكون في منتصف الفورم في برنامج المرفق؟؟ Microformt 2 212 01-04-18, 02:48 PM
آخر رد: Microformt
Question [vb6.0] هل يمكن ان اجعل الصورة الموجودة في خلفية الفورم تتمدد في برنامج المرفق؟؟ Microformt 2 303 23-03-18, 06:26 AM
آخر رد: Microformt
  هل استطيع برمجة متغير جديد والتعامل معه في البرامج؟ abudawoodd 5 290 16-03-18, 12:59 PM
آخر رد: abudawoodd
  استعلام عن تاريخ في حقل في برنامجي محمد حمد محمد 21 456 31-01-18, 05:33 PM
آخر رد: Amir_alzubidy

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


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