میخوایم با یه تابع 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
پاسخ با نقل قول
علاقه مندی ها (بوک مارک ها)