منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[vb6.0] كيف اجعل برنامجي يفتح فوق كل البرامج المفتوحة ؟؟ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] كيف اجعل برنامجي يفتح فوق كل البرامج المفتوحة ؟؟ (/showthread.php?tid=3843)



كيف اجعل برنامجي يفتح فوق كل البرامج المفتوحة ؟؟ - Microformt - 17-09-14

الاخوه الكرام
السلام عليكم ورحمة وبركاته
كيف اجعل برنامجي يفتح فوق كل البرامج المفتوحة ؟؟
نامل من الله المساعده والله يحفظكم ويرعاكم


RE: كيف اجعل برنامجي يفتح فوق كل البرامج المفتوحة ؟؟ - Kian Tech - 18-09-14

[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


RE: كيف اجعل برنامجي يفتح فوق كل البرامج المفتوحة ؟؟ - Microformt - 19-09-14

اخي العزيز Big Grineya R Ataya
السلام عليكم ورحمة وبركاته
الكود لم ينجح معي ممكن مثال ؟؟
ولكم مني فائق الاحترام والتقدير


RE: كيف اجعل برنامجي يفتح فوق كل البرامج المفتوحة ؟؟ - vbnet - 19-09-14

.....

منقول

أنشء موديول 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

.....


RE: كيف اجعل برنامجي يفتح فوق كل البرامج المفتوحة ؟؟ - Microformt - 20-09-14

اخي العزيزvbnet
السلام عليكم ورحمة وبركاته
لك مني من جزيل الشكر والتقدير على ما تقدمه من دعم فني والله يحفظكم ويرعاكم