نیاز به یه کد عجیب

[mohsengrisly]

سلام به همه دوستان
من می خواهم با یک قطعه کد که در برنامه قراربگیره taskbar از حالت lock
خارج شود و بعد از ان به کوچکترین سایز تبدیل شود .منظورم حالت پنهان پایین صفحه می باشد .البته با auto hide اشتباه نکنیدا
از کمک و توجه همه شما ممنونم
:sunglass:

[setarehman]

یعنی شما میخواید وقتی فرم اجرا میشه taskbar نشون داده نشه بله؟

[Behrouz_Rad]

سلام.
برای مخفی کردن TaskBar ابتدا باید هندل آن را به دست آورید. این کار با تابع FindWindow انجام می پذیرد.
پس از به دست آوردن هندل، با استفاده از تابع SetWindowPos، که برای تغییر سایز و مکان عناصر استفاده می شود، با فرستان پیغام SWP_HIDEWINDOW می توانید TaskBar را مخفی کنید.

در یک ماژول:


Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public 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

Public Const SWP_HIDEWINDOW = &H80
Public Const SWP_SHOWWINDOW = &H40

برای مخفی کردن TaskBar در روال Form_Load() بنویسید:


rtn = FindWindow("Shell_traywnd", "")
Call SetWindowPos(rtn, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)

برای ظاهر شدن مجدد TaskBar در روال Form_Load() بنویسید:


rtn = FindWindow("Shell_traywnd", "")
Call SetWindowPos(rtn, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)

موفق باشید.
:wise1: