View previous topic :: View next topic |
Author |
Message |
arash مدير بخش سي
Joined: 27 Nov 2004 Posts: 1232 Location: www.parsx.com
|
Posted: Sun Jul 03, 2005 5:23 pm Post subject: Top Most ( فایل مورد نظر بروی تمامی فرمها قرار گیرد) |
|
|
ب.ب.ک باعث شود فرم شما Top Most شود . حتی بروی برنامه مانند Task Manager قرار گیرد ؟ |
|
Back to top |
|
|
unknown مدير بخش ويژوال بيسيك
Joined: 05 Dec 2004 Posts: 439 Location: Tehran
|
Posted: Mon Jul 04, 2005 6:18 pm Post subject: |
|
|
توجه:
کدهایی که در این قسمت توسط اینجانب نوشته می شود تنها جنبه آموزشی دارند و من مسئول هیچگونه استفاده غیر مجاز و خرابکاری در هیچ زمینه ای نمی باشم.
Top-Most Code
کافی است روی فرم یک Timer قرار دهید و کد زیر را در فرمتان کپی کنید. این فرم روی تمام پنجره های باز قرار می گیرد از جمله Windows Task Manager .
|
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 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 Declare Function GetActiveWindow Lib "user32" () As Long
Public Sub MakeWindowAlwaysTop(hwnd As Long)
SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE
End Sub
Public Sub MakeWindowNotTop(hwnd As Long)
SetWindowPos hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE
End Sub
Private Sub Form_Load()
Timer1.Interval = 1
End Sub
Private Sub Timer1_Timer()
MakeWindowAlwaysTop Me.hwnd
End Sub |
|
|
Back to top |
|
|
arash مدير بخش سي
Joined: 27 Nov 2004 Posts: 1232 Location: www.parsx.com
|
Posted: Mon Jul 04, 2005 11:38 pm Post subject: |
|
|
امیر جان تو نیکی می کن و در دجله انداز
اولا : اگه تشکر نمی کنم به خاطر مقرراته وگرنه خیلی چاکزیم
ثانیا : وقتی نوبل دینامیت رو کشف کرد نمی دونست چند نفر با این وسیله کشته می شن یا زندگی چند نفر رو نجات می ده .
این انسان هان که تصمیم می گیرند از هر وسیله در چه راهی استفاده کنند ولی شاید همیشه هم دید ما آدمها درست نباشه
جنگ خیلی بده ولی اگه جنگ نبود شاید خیلی چیزها کشف نمی شدند مثل انسانیت ... |
|
Back to top |
|
|
unknown مدير بخش ويژوال بيسيك
Joined: 05 Dec 2004 Posts: 439 Location: Tehran
|
Posted: Tue Jul 05, 2005 5:08 pm Post subject: |
|
|
درسته ولی باید یاد آوری می کردم |
|
Back to top |
|
|
arash مدير بخش سي
Joined: 27 Nov 2004 Posts: 1232 Location: www.parsx.com
|
Posted: Tue Jul 05, 2005 8:17 pm Post subject: |
|
|
hاولین بار خودت گفتی ما هم می گیم
چاکریم ... |
|
Back to top |
|
|
unknown مدير بخش ويژوال بيسيك
Joined: 05 Dec 2004 Posts: 439 Location: Tehran
|
Posted: Wed Jul 06, 2005 5:29 pm Post subject: |
|
|
بیش از این شرمندم نکنید |
|
Back to top |
|
|
|