تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ابقاء الشاشه في المقدمه
#1
كاتب الموضوع : AhmedEssawy

كود :
Private Declare Function SetWindowpos Lib "user32" (ByVal hWnd As long, ByVal hWndInsertafter as long, ByVal x as long, ByVal y As long, ByVal y As long, ByVal wFlag As long) As long
Const HWND_TOPMOST = -1
Const SWP_SHOWWINDOW = &H40

كود :
Private Sub Form_Load()
dim retVal As long
retVal = SetWindowPos(Me.hWnd, HWND_TOPMOST, Me.CurrentX, me.CurrentY, 300, 300, SWP_SHOWWINDOW)
End sub
}}}}
تم الشكر بواسطة:


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


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