منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

frmItem.ShowDialog()

تحياتى

السلام عليكم اخي 
لك هذا الكود 
تضعه في FormLoad


وتضع هذا الكود في التصريحات
أو في المديول

(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

---

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

frmItem.ShowDialog()

تحياتى

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

---

(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