[paveldida]

السلام عليكم

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

شكرااا

[mmali127]

وعليكم السلام

frmItem.ShowDialog()

تحياتى

[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

[paveldida]

(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()

تحياتى

ممكن التوضيح أكثر أخي

[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

[paveldida]

شكراااا للجميع

---

(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

بارك الله فيك أخي

نجح الكود بالتمام التمام و لله الحمد

أنا مبتدئ جدااا عذرا لكثرة الاسئلة