تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب كود ON TOP
#1
السلام عليكم

ممكن كود لجعل Form يبقى فوق كل نوافذ الكمبيوتر المفتوحة (ON TOP)
شكرااا
الرد
تم الشكر بواسطة:
#2
وعليكم السلام

frmItem.ShowDialog()

تحياتى
الرد
تم الشكر بواسطة: ابراهيم ايبو
#3
السلام عليكم اخي 
لك هذا الكود 
تضعه في FormLoad
كود :
SetWindowPos(Handle, HWND_TOPMOST, Left / 15, Top / 15, Width / 15, Height / 15, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE)


وتضع هذا الكود في التصريحات
أو في المديول
كود :
Public Declare Function SetWindowPos Lib "user32.dll" (ByVal hwnd As Int32, ByVal hWndInsertAfter As Int32, ByVal x As Int32, ByVal y As Int32, ByVal cx As Int32, ByVal cy As Int32, ByVal wFlags As Int32) As Int32
   Public Const HWND_TOPMOST = -1
   Public Const HWND_NOTOPMOST = -2
   Public Const SWP_NOSIZE = &H1
   Public Const SWP_NOMOVE = &H2
   Public Const SWP_NOACTIVATE = &H10
   Public Const SWP_SHOWWINDOW = &H40
الرد
تم الشكر بواسطة: ابراهيم ايبو
#4
(03-05-20, 02:16 PM)alshandodi كتب : السلام عليكم اخي 
لك هذا الكود 
تضعه في FormLoad
كود :
SetWindowPos(Handle, HWND_TOPMOST, Left / 15, Top / 15, Width / 15, Height / 15, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE)


وتضع هذا الكود في التصريحات
أو في المديول
كود :
Public Declare Function SetWindowPos Lib "user32.dll" (ByVal hwnd As Int32, ByVal hWndInsertAfter As Int32, ByVal x As Int32, ByVal y As Int32, ByVal cx As Int32, ByVal cy As Int32, ByVal wFlags As Int32) As Int32
   Public Const HWND_TOPMOST = -1
   Public Const HWND_NOTOPMOST = -2
   Public Const SWP_NOSIZE = &H1
   Public Const SWP_NOMOVE = &H2
   Public Const SWP_NOACTIVATE = &H10
   Public Const SWP_SHOWWINDOW = &H40
هل يمكن ربط الكود بـ checkbox  في كل فورم ليكون الخيار متاح بين الوضع العادي و ON TOP

(03-05-20, 02:07 PM)mmali127 كتب : وعليكم السلام

frmItem.ShowDialog()

تحياتى
ممكن التوضيح أكثر أخي
الرد
تم الشكر بواسطة: ابراهيم ايبو
#5
كود :
 Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
       If CheckBox1.Checked = True Then
           SetWindowPos(Handle, HWND_TOPMOST, Left / 15, Top / 15, Width / 15, Height / 15, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE)
       Else
           Me.SendToBack()
       End If
   End Sub
الرد
تم الشكر بواسطة: paveldida , ابراهيم ايبو
#6
شكراااا للجميع

(03-05-20, 03:21 PM)alshandodi كتب :
كود :
 Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
       If CheckBox1.Checked = True Then
           SetWindowPos(Handle, HWND_TOPMOST, Left / 15, Top / 15, Width / 15, Height / 15, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE)
       Else
           Me.SendToBack()
       End If
   End Sub

بارك الله فيك أخي
نجح الكود بالتمام التمام و لله الحمد
أنا مبتدئ جدااا عذرا لكثرة الاسئلة
الرد
تم الشكر بواسطة: ابراهيم ايبو , alshandodi


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


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