怎样使左下角的[开始]按钮失效！

Question

有一个API函数可以实现这个功能。开始按钮没有了。变成灰色的了
我现在没有。明天把代码给你

Answer 1

                                  在窗体上放两了按钮控件,name属性改为cmdExit和cmdStartButtonshowWindow为显示窗口                           说明:控制窗口的可见性
FindWindow为返回一个与类和窗口名相关的窗口句柄 说明:寻找窗口列表中第一个符合指定条件的顶级窗口
FindWindowEx                                   说明:在窗口列表中寻找与指定条件相符的第一个子窗口Option Explicit
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As LongPrivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongConst SW_HIDE = 0
Const SW_SHOW = 5
Private Sub cmdExit_Click()
      Unload Me
End SubPrivate Sub cmdStartButton_Click()
   Dim hlong As Long, hwnd As Long
       hwnd = FindWindow("shell_TrayWnd", vbNullString)
       hlong = FindWindowEx(hwnd, 0, "Button", vbNullString)
                If cmdStartButton.Caption = "隐藏" Then
                
                   ShowWindow hlong, SW_HIDE
                   cmdStartButton.Caption = "显示"
                Else
                   ShowWindow hlong, SW_SHOW
                   cmdStartButton.Caption = "隐藏"
                   
       End If
End Sub