VB:实现“显示桌面”功能

在窗体上建立一个command1按钮

Private Const VK_LWIN = &H5B
Private Const KEYEVENTF_KEYUP = &H2
Private Const VK_APPS = &H5D
Private Const VK_PLAY = &HFA

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Public Enum EnumAction
    eaResourceBrowser = 0
    eaSearchFile = 1
    eaMiniWindows = 2
    eaRunFile = 3
    eaStartMenu = 4
    eaSleep = 5
    eaWindowsHelp = 6
End Enum

Public Sub DoAction(eIndex As EnumAction)
  Dim VK_ACTION As Long

  Select Case eIndex
    Case 0: 'Open Resource Browser
      VK_ACTION = &H45
    Case 1: 'Search File
      VK_ACTION = &H46
    Case 2: 'Mini Windows
      VK_ACTION = &H4D
    Case 3: 'Run
      VK_ACTION = &H52
    Case 4: 'Start Menu
      VK_ACTION = &H5B
    Case 5: 'Sleep
      VK_ACTION = &H5E
    Case 6: 'Open Windows Help
      VK_ACTION = &H70
  End Select
  Call keybd_event(VK_LWIN, 0, 0, 0)
  Call keybd_event(VK_ACTION, 0, 0, 0)
  Call keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0)
End Sub

Private Sub Command1_Click()
DoAction 2

End Sub