0

مخفی کردن استارت منو

 
masood1371
masood1371
کاربر نقره ای
تاریخ عضویت : مهر 1388 
تعداد پست ها : 154
محل سکونت : اردبیل

مخفی کردن استارت منو


میخوایم با یه تابع APi دکمه استارت را مخفی کنیم...

این قسمت ار کدهارو در جنرال وارد کنید:

private a As Long

private f As Long

Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

private Const hide = 0

private Const show = 5

از تابع FindWindow برای پیدا کردن هندل TaskBar و از تابع FindWindowEx برای پیدا کردن هندل دکمه Start که در واقع فرم فرزند (ChildForm) TaskBar ویندوزه استفاده می کنیم.از تابع ShowWindow هم برای کار اصلی استفاده می کنیم.


حالا برای مخفی کردن دکمه Start کد زیر رو مینویسیم:

()Private Sub HideStart_Click

("" ,"a = FindWindow("Shell_TrayWnd

(f = FindWindowEx(a, 0, "Button", vbNullString

ShowWindow f, hide

End Sub

کد نمایش دوباره استارت :

()Private Sub ShowStart_Click

("" ,"a = FindWindow("Shell_TrayWnd

(f = FindWindowEx(a, 0, "Button", vbNullString

ShowWindow f, show

End Sub

خب شما میتونید با ادغام این کد و کد قبلی و کمی اضافه کاری یه کار جالب کنید

 

یک شنبه 23 آبان 1389  8:49 PM
تشکرات از این پست
دسترسی سریع به انجمن ها