PDA

View Full Version : Always On Top in Child Form



بمب منطقی
پنج شنبه 16 مهر 1383, 21:29 عصر
سلام بر دوستان خوب قدیمی.
یه سوال پیش و پا افتاده داشتم:
من توسط این کد میتونم یه پنجره رو Always on top کنم. ولی این کد میتونه اون پنجره رو بر بالای تمام پنجره های داخل Desktop ویندوز قرار بده ولی من میخوام پنجره مربوطه ام رو (که خودشم یکی از childهای MDIForm برنامست) فقط بر بالای تمام پنجره های Child داخل برنامم قرار بدم نه بالای تمام پنجره های باز شده در ویندوز.
کد مربوطه:


Private Const HWND_BOTTOM = 1
Private Const HWND_NOTOPMOST = -2
Private Const HWND_TOP = 0
Private Const HWND_TOPMOST = -1

Private Const SWP_FRAMECHANGED = &H20
Private Const SWP_DRAWFRAME = SWP_FRAMECHANGED
Private Const SWP_HIDEWINDOW = &H80
Private Const SWP_NOACTIVATE = &H10
Private Const SWP_NOCOPYBITS = &H100
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOREDRAW = &H8
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOZORDER = &H4
Private Const SWP_SHOWWINDOW = &H40

Private Declare Sub 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)
Private Sub Form_Activate()
SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 10, 300, 100, SWP_SHOWWINDOW
End Sub

پیشاپیش از همه شما ممنونم. :flower:

بمب منطقی
جمعه 17 مهر 1383, 23:59 عصر
کسی نیست به من جواب بده. بابا من لنگ این موضوعم.
:flower: :heart:

vbprogramer
شنبه 18 مهر 1383, 09:22 صبح
آقا سلام
جواب سئوالتون رو بلد نیستم ولی دست شما درد نکنه کدتون خیلی به درد خورد :D :mrgreen: :تشویق:

بمب منطقی
شنبه 18 مهر 1383, 20:06 عصر
خیلی باحالی :cry: :cry:
بابا مردیم :cry: :cry:
من خیلی وقته که به این بخش سر نزدم.ولی اون قدیما که مدام تو این بخش پلاس بودم تا یه نفر میخواست سوال کنه هیچ سوالشو نپرسیده ده بیست نفر میریختن و جواب سوالشو میدادن. اما انگار طی این مدت یه تغییراتی تو این بخش ایجاد شده. :roll:

کم حوصله
شنبه 18 مهر 1383, 23:11 عصر
اون قدیما که مدام تو این بخش پلاس بودم تا یه نفر میخواست سوال کنه هیچ سوالشو نپرسیده ده بیست نفر میریختن و جواب سوالشو میدادن.
واقعا که یادش بخیر :( :? :cry:

vbprogramer
یک شنبه 19 مهر 1383, 11:20 صبح
جناب بمب منطقی این روزها همه دنبال برنامه آماده میگردند (البته جسارت نشه هااااااااا)
من خودم تا اونجا که بلد باشم یا کدی داشته باشم در اختیار میگذارم
ولی خوب چه کنم که سوادم به اندازه سوال شما نیست :(

بمب منطقی
سه شنبه 21 مهر 1383, 12:20 عصر
:(