ایجاد Bar درکنار صفحه نمایش

[BehnamPro]

سلام.برای ساخت یک نوار(bar) مثل taskbar ویندوز در لبه صفحه نمایش چکار باید کرد.بطوریکه با رفتن نشانه موس از روی آن پنهان شود.درست مثل خاصیت auto hide همان task bar ویندوز.(مشکل فقط روی همین پنهای شدن و ظاهر شدنه) :oops:

[HoneySaberi]

دوست عزیز سلام.
در مورد سئوالت باید بگم که کافیه در هر لحظه موقعیت موس رو بگیری و هر وقت که موس به محدودۀ مورد نظرت رسید، فرمت رو، که حالا به صورت یک Bar طراحی شده نمایش بدی، و وقتی موس از اون محدوده خارج شد فرمت رو مخفی کنی.

واضحتر بگم، یه تایمر میخوای که توش با یک API یا از راه دیگه، دائم X,Y موس چک کنی و به محض ورود موس به محدودۀ مورد نظرت فرمت رو توی یک موقعیت مشخص ( که یکی از کناره های صفحه باشه) Show می کنی و توی همون تایمر و یا حتی تایمر دیگه ای که با Show شدن فرمت فعال شده چک میکنی که هر وقت موس از یه محدوده ای خارج شد فرم Hide بشه.
اگرم میخوای مثل Task bar که یک دفعه ظاهر نمیشه و از پایین به بالا و برای مخفی شدن بلعکس حرکت میکنه باشه، بازم ساده است. کافیه با Left و Top فرمت بازی کنی و اونارو توی یه حلقه کم و زیاد کنی.

امیدوارم مفید بوده باشه.
کوچیکت حمید. :wink:

[BehnamPro]

آقای صابری از پاسختون خیلی ممنون.لطفا API مورد نظر روهم معرفی کنید. :roll:

[Best Programmer]

Declare Function GetCursorPos Lib "user32.dll" (lpPoint As POINT_TYPE) As Long

Platforms: Win 32s, Win 95/98, Win NT

GetCursorPos reads the current position of the mouse cursor. The x and y coordinates of the cursor (relative to the screen) are put into the variable passed as lpPoint. The function returns 0 if an error occured or 1 if it is successful.

lpPoint
Receives the x and y coordinates of the mouse cursor.
Example:

' Display the coordinates of the mouse cursor
Dim coord As POINT_TYPE ' receives coordinates of cursor
Dim retval As Long ' return value

retval = GetCursorPos(coord) ' read cursor location
Debug.Print "The mouse is at:"; coord.x; coord.y

[HoneySaberi]

بازهم سلام.

با جواب دوست عزیزمون دیگه زیاد جای توضیح نمیمونه. فقط یه نکته اینکه اون نوع POINT_TYPE به این صورت تعریف میشه:
Private Type POINT_TYPE
X As Long
Y As Long
End Type

از Best Programmer عزیز هم ممنونم :wink:
امیدوارم که مفید بوده باشه :wink:
کوچیکت حمید.