چگونه پنجره برنامه ما رو قرار گیرد؟؟؟

[ahmad_r]

چگونه وقتی روی یک پنجره دیگر هستم (غیر از پنجره برنامه وی بی خودمان) (با تنظیمات قبلی) پنجره خودمان روی تمام پنجره ها قرار گیرد و یا آیکون آن پنجره روی task bar به شکل نارنجی در بیاید(منظورم این نیست که یک پنجره از برنامه وی بی بر روی یک پنجره دیگر از برنامه وی بی که خودمان می نویسیم قرار گیرد) (در واقع یک سیستم هشدار دهنده می خواستم)
با تشکر فراوان

[تکنیک برتر]

سلام دوست عزیز به نظر من شما منظور خود را خیلی پیچاندین به طور ساده بیان کن

[ahmad_r]

فرض کنید برنامه ما در حال اجرا باشد ولی ما بر روی یک برنامه دیگر (مثل اکپلورر) باشیم. حال اتفاقاتی که لازم بوده است در برنامه خودمان افتاده و الآن باید کاربر متوجه شود که کار آن برنامه تمام است و به هر نحوی هشدار دهد مثلا پنجره برنامه ما روی برنامه اکسپلورر قرار گیرد.
امیدوارم منظورم را رسانده باشم

[Payman_62]

خوب اين كه خيلي سادست بعد از اتمام كار يه msgbox بذار ديگه يه بوقم براش بزن

[ahmad_h]

آغا چاره كارت دستور appactivate هست که هر برنامه در حال اجرایی که اسمشو بهش بدی رو اکتیو میکنه وپنجرشو
روی همه قرار میده
هلپشو از ام اس دی ان بگیر تمومه

[Romina2006]

Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const HWND_BOTTOM = 1
Private Const HWND_NOTOPMOST = -2
Private Const HWND_TOP = 0
Private Const HWND_TOPMOST = -1
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1

Private Sub MakeWindowAlwaysTop(hwnd As Long)
SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE
End Sub

Private Sub MakeWindowNotTop(hwnd As Long)
SetWindowPos hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE
End Sub

Private Sub Form_Load()
MakeWindowAlwaysTop Me.hwnd
End Sub

[shamsoft]

برای رو قرار گرفتن:
form1.show 1