ParsX.com
پذیرش پروژه از دانشجویی ... تا سازمانی 09376225339
 
   ProfileProfile   Log in to check your private messagesLog in to check your private messages  |  FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups Log inLog in   RegisterRegister 

Top Most ( فایل مورد نظر بروی تمامی فرمها قرار گیرد)

 
Post new topic   Reply to topic    ParsX.com Forum Index -> ويژوال بيسيك .NET
View previous topic :: View next topic  
Author Message
arash
مدير بخش سي
مدير بخش سي


Joined: 27 Nov 2004
Posts: 1232
Location: www.parsx.com

PostPosted: Sun Jul 03, 2005 5:23 pm    Post subject: Top Most ( فایل مورد نظر بروی تمامی فرمها قرار گیرد) Reply with quote

ب.ب.ک باعث شود فرم شما Top Most شود . حتی بروی برنامه مانند Task Manager قرار گیرد ؟
Back to top
unknown
مدير بخش ويژوال بيسيك
مدير بخش ويژوال بيسيك


Joined: 05 Dec 2004
Posts: 439
Location: Tehran

PostPosted: Mon Jul 04, 2005 6:18 pm    Post subject: Reply with quote

توجه:
کدهایی که در این قسمت توسط اینجانب نوشته می شود تنها جنبه آموزشی دارند و من مسئول هیچگونه استفاده غیر مجاز و خرابکاری در هیچ زمینه ای نمی باشم.

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

PostPosted: Mon Jul 04, 2005 11:38 pm    Post subject: Reply with quote

امیر جان تو نیکی می کن و در دجله انداز
اولا : اگه تشکر نمی کنم به خاطر مقرراته وگرنه خیلی چاکزیم
ثانیا : وقتی نوبل دینامیت رو کشف کرد نمی دونست چند نفر با این وسیله کشته می شن یا زندگی چند نفر رو نجات می ده .
این انسان هان که تصمیم می گیرند از هر وسیله در چه راهی استفاده کنند ولی شاید همیشه هم دید ما آدمها درست نباشه
جنگ خیلی بده ولی اگه جنگ نبود شاید خیلی چیزها کشف نمی شدند مثل انسانیت ...
Back to top
unknown
مدير بخش ويژوال بيسيك
مدير بخش ويژوال بيسيك


Joined: 05 Dec 2004
Posts: 439
Location: Tehran

PostPosted: Tue Jul 05, 2005 5:08 pm    Post subject: Reply with quote

درسته ولی باید یاد آوری می کردم
Back to top
arash
مدير بخش سي
مدير بخش سي


Joined: 27 Nov 2004
Posts: 1232
Location: www.parsx.com

PostPosted: Tue Jul 05, 2005 8:17 pm    Post subject: Reply with quote

hاولین بار خودت گفتی ما هم می گیم
چاکریم ...
Back to top
unknown
مدير بخش ويژوال بيسيك
مدير بخش ويژوال بيسيك


Joined: 05 Dec 2004
Posts: 439
Location: Tehran

PostPosted: Wed Jul 06, 2005 5:29 pm    Post subject: Reply with quote

بیش از این شرمندم نکنید
Back to top
Display posts from previous:   
Post new topic   Reply to topic    ParsX.com Forum Index -> ويژوال بيسيك .NET All times are GMT + 3.5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum