在vb中如何判断开始菜单是否隐藏，各位大虾帮帮忙

Question

在vb中如何判断开始菜单是否隐藏，各位大虾帮帮忙

Answer 1

我是他的朋友，大家来回答这个问提，给我分>>>>>>>>>>>>>>

Answer 2

不知道你是不是这个意思，按下command2可以知道开始按钮是否可见
command1调整开始按钮的可见性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 FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Private Const SW_RESTORE = 9
Private Const SW_SHOW = 5
Private Const SW_SHOWMAXIMIZED = 3
Private Const SW_HIDE = 0
 
    
Private Sub Command2_Click()
Dim hwnd As Long
Dim ss As Boolean
hwnd = FindWindow("Shell_TrayWnd", vbNullString)
hlong = FindWindowEx(hwnd, 0, "Button", vbNullString)
ss = IsWindowVisible(hlong)
If ss = True Then
MsgBox "visible"
Else
MsgBox "hide"
End If
End Sub
Private Sub Command1_Click()
Dim hwnd As Long
hwnd = FindWindow("Shell_TrayWnd", vbNullString)
hlong = FindWindowEx(hwnd, 0, "Button", vbNullString)
    Select Case Check1.Value
         Case 0
           Select Case Combo1.Text
            Case "正常显示"
            ShowWindow hlong, SW_RESTORE
            Case "最大化"
            ShowWindow hlong, SW_SHOWMAXIMIZED
            End Select
         Case 1
            ShowWindow hlong, SW_HIDE
    End Select
End SubPrivate Sub Form_Load()
Combo1.AddItem "正常显示"
Combo1.AddItem "最大化"
End Sub

Answer 3

关健:
hwnd = FindWindow("Shell_TrayWnd", vbNullString)
hlong = FindWindowEx(hwnd, 0, "Button", vbNullString)