شماره 4 : این API برای مخفی کردن دکمه Start ویندوز

شماره 4 : این API برای مخفی کردن دکمه Start ویندوز

مثل همیشه تعریف تابع توی یه Module :

Public

Public

Public Declare Function

Public Declare Function

Public Declare Function

OP As LongOH As Long ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Public Const

SW_HIDE = 0

Public Const

SW_SHOW = 5

از تابع

حالا برای مخفی کردن دکمه

FindWindow برای پیدا کردن هندل TaskBar و از تابع FindWindowEx برای پیدا کردن هندل دکمه Start استفاده می کنیم.Start کد زیر رو بنویسید :

()Private Sub HideStart_Click

("" ,"OP& = FindWindow("Shell_TrayWnd

(OH& = FindWindowEx(OP&, 0, "Button", vbNullString

ShowWindow OH&, SW_HIDE

End Sub

این کد هم برای نمایش دوباره دکمه 

Start است :

("" ,"OP& = FindWindow("Shell_TrayWnd

(OH& = FindWindowEx(OP&, 0, "Button", vbNullString

ShowWindow OH&, SW_SHOW

()Private Sub ShowStart_Click

End Sub