'
作者: Waty Thierry
' * Module Name : Start_Module
' * Module Filename : Start.bas
' *********************************************************
' * Comments : Show/Hide the start button
' ********************************************************
Private Declare Function FindWindow Lib " user32 " Alias " FindWindowA " (ByVal lpClassName As String , ByVal lpWindowName As String ) As Long
Private 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 Declare Function ShowWindow Lib " user32 " (ByVal hwnd As Long , ByVal nCmdShow As Long ) As Long
Public Function hideStartButton() ' This Function Hides the Start Button’
OurParent & = FindWindow( " Shell_TrayWnd " , "" )
OurHandle & = FindWindowEx(OurParent & , 0 , " Button " , vbNullString)
ShowWindow OurHandle & , 0
End Function
Public Function showStartButton() ' This Function Shows the Start Button’
OurParent & = FindWindow( " Shell_TrayWnd " , "" )
OurHandle & = FindWindowEx(OurParent & , 0 , " Button " , vbNullString)
ShowWindow OurHandle & , 5
End Function
Private Sub Command1_Click()
hideStartButton
End Sub
Private Sub Command2_Click()
showStartButton
End Sub
' * Module Name : Start_Module
' * Module Filename : Start.bas
' *********************************************************
' * Comments : Show/Hide the start button
' ********************************************************
Private Declare Function FindWindow Lib " user32 " Alias " FindWindowA " (ByVal lpClassName As String , ByVal lpWindowName As String ) As Long
Private 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 Declare Function ShowWindow Lib " user32 " (ByVal hwnd As Long , ByVal nCmdShow As Long ) As Long
Public Function hideStartButton() ' This Function Hides the Start Button’
OurParent & = FindWindow( " Shell_TrayWnd " , "" )
OurHandle & = FindWindowEx(OurParent & , 0 , " Button " , vbNullString)
ShowWindow OurHandle & , 0
End Function
Public Function showStartButton() ' This Function Shows the Start Button’
OurParent & = FindWindow( " Shell_TrayWnd " , "" )
OurHandle & = FindWindowEx(OurParent & , 0 , " Button " , vbNullString)
ShowWindow OurHandle & , 5
End Function
Private Sub Command1_Click()
hideStartButton
End Sub
Private Sub Command2_Click()
showStartButton
End Sub