منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
طلب كود ON TOP - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : طلب كود ON TOP (/showthread.php?tid=34585)

طلب كود ON TOP - paveldida - 03-05-20

السلام عليكم

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


RE: طلب كود ON TOP - mmali127 - 03-05-20

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

frmItem.ShowDialog()

تحياتى

RE: طلب كود ON TOP - alshandodi - 03-05-20

السلام عليكم اخي 
لك هذا الكود 
تضعه في 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


RE: طلب كود ON TOP - paveldida - 03-05-20

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

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


RE: طلب كود ON TOP - alshandodi - 03-05-20

كود :
 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


RE: طلب كود ON TOP - paveldida - 03-05-20

شكراااا للجميع
(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

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