taskbar and screen

[Blossom]

من يه برنامه ي ساعت خيلي ساده نوشتم كه قابليت آتو هايدداره ولي يه مشكل دارم . گاهي وقتا تسكبار پايين صفحه نيست و گاهي هم سايزش استاندارد نيست . برنامه ي من خودش رو به بالاي صفحه مي چسبونه و طبيعيه كه اگر تسك بار هم اونجا باشه برنامه درست كار نمي كنه و زير تسك بار مخفي ميشه
در ضمن گاهي وقتا علاوه بر تسك بار نواره هاي ديگه اي هم هست كه خودمون از مثلا يه فولدر ساختيم يا راه هاي ديگه (مثل آدرسبار)
چطوري موقيت اين ها رو فهميد يا راحت تر بگم ٬‌چطوري مختصات تصويري كه ميتونم روش كار كنم رو بدست بيارم ... يعني طول و عرض نواره ها رو از سايز صفحه كم كنم...
اگه ميخواين بيشتر توضيح بدم...
آها ٬ اگه فلش كار كرده باشين ميبينين كه كليد ها يه حالت دارن به اسم mouse out آيا بيسيك هم اينطور ايونتي داره ؟
من از يه تايمر استفاده كردم كه با ورود موس به فرم فعال مي شه و مختصات كرسر رو ميگيره و اگر در فرم نبود كارهاي لازم رو مي كنه و بعد تايمر رو غير فعال مي كنه ٬‌آيا راه بهتري هم هست ؟ :?: :!: :?: :!: :?:

[Iron_Fist]

من خيلي دوست دارم كمكت كنم ولي هيچي نفهميدم
فلش هم كار نكردم

[محمد حسینی]

من با مختصات و از این چیزا زیاد کار کردم ولی نفهمیدم چی میخوای

[Blossom]

راحت تر بگم :
اول از كجا ميشه فهميد كه taskbar كجاي تصويره (معمولا پايينه تصويره)
دوم اينكه سايز عرض taskbar چقدره ؟
سوم آيا نوار ديگه اي مثل taskbar هم توي صفحه هست ؟
ما در ويبي يه ايونت داريم به اسم OnMouseMove كه وقتي ماوس روي فرم يا ابجكت حركت مي كنه فعال مي شه . توي فلش يه ايونت هست به اسم OnMouseOut كه وقتي موس از آبجكت خارج مي شه عمل مي كنه . حالا سوال اينه كه در وي بي هم اينطور چيزي امكان پذير هست ؟ من قبلا نوشتم كه چطور اين مشكل رو حل كردم وحالا مي خوام نظر شما رو هم بدونم :wink:

[Blossom]

من با مختصات و از این چیزا زیاد کار کردم ولی نفهمیدم چی میخوای

خسته نباشي ! :wink:

[veyskarami]

فكر كنم امير جان يه سورس گذاشته بود كه توي پنجره ها جستجو مي كرد اگه بتوني پنجرت رو پيدا كني فك كنم بتوني مختصاتش رو هم در بياري

[Blossom]

فكر كنم امير جان يه سورس گذاشته بود كه توي پنجره ها جستجو مي كرد اگه بتوني پنجرت رو پيدا كني فك كنم بتوني مختصاتش رو هم در بياري

يكم بيشتر توضيح ميدين ؟

[Pedram_HookEx]

براي اينكه برنامه هميشه به تسك بار چسبيده باشه بايد اين كارا رو بكني

از تابع

کد:

Private Declare Function GetWindowRect Lib "user32.dll" (ByVal hwnd As Long, ByRef lpRect As RECT) As Long

استفاده كني
اين تابع با گرفتن هندل TaskMgr مكان اونو بهت ميده
و بعد از بدست اوردن مكان پنجره از يه تايمر براي set كردن پنجره خودت با taskMgr استفاده ميكني

براي Mouse Out هم ميتوني از توابع

کد:

Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function TrackMouseEvent Lib "comctl32.dll" (ByRef lpEventTrack As TRACKMOUSEEVENT) As Long

استفاده كني
ابتدا با تابع TrackMouseEvent بايد پنجره يا دكمه اي كه ميخواي وقتي موس از اون خارج ميشه
يه رويداد اتفاق بيفته رو اماده براي دريافت پيغام كني

بعد با تابع SetWindowLong يه حلقه براي پنجره ايجاد ميكني و وقتي كه موس از پنجره خارج شد يه پيغام با عنوان WM_MOUSELEAVE به حلقه فرستاده ميشه و اون موقع ميتوني هر كاري خواستي بكني

[Iron_Fist]

اول از كجا ميشه فهميد كه taskbar كجاي تصويره (معمولا پايينه تصويره)
دوم اينكه سايز عرض taskbar چقدره ؟

بيا اينم جواب دوتا سوالت
مايش 4 تا تكست باكس و يه كليد هست

کد:

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowPlacement Lib "user32" (ByVal hwnd As Long, lpwndpl As WINDOWPLACEMENT) As Long
Private Type POINTAPI
        x As Long
        y As Long
End Type
Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type
Private Type WINDOWPLACEMENT
        Length As Long
        flags As Long
        showCmd As Long
        ptMinPosition As POINTAPI
        ptMaxPosition As POINTAPI
        rcNormalPosition As RECT
End Type


Private Sub Command1_Click()
Dim WP As WINDOWPLACEMENT
hStartMenu = FindWindow("Shell_traywnd", vbNullString)
Call GetWindowPlacement(hStartMenu, WP)
Text1.Text = WP.rcNormalPosition.Top
Text2.Text = WP.rcNormalPosition.Right
Text3.Text = WP.rcNormalPosition.Bottom
Text4.Text = WP.rcNormalPosition.Left
End Sub

سوم آيا نوار ديگه اي مثل taskbar هم توي صفحه هست ؟

يه مثال بزن
نفهميدم

[Blossom]

ممنون از همتون
نواره ي ديگه ...
شما يه فولدر رو بگير و بچسبون به بالاي تصوير و منظور من رو درك كن !!!(درگ كن)
بازم تشكر

[Iron_Fist]

شما يه فولدر رو بگير و بچسبون به بالاي تصوير و منظور من رو درك كن !!!(درگ كن)

باشه بابا
چرا اينقدر مي زني
ريلكس باش به قول معروف