怎样在VB中实现一按按钮，系统就自动回到桌面呢？请大家帮一下忙。

Question

怎样在VB中实现一按按钮，系统就自动回到桌面呢？请大家帮一下忙。
是不是用shell，还是用api，还是有别的方法，反正只要能回桌面就行。

Answer 1

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 EnumPublic 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

Answer 2

还有一个方法,就是枚举出所有的窗口,再ShowWindows()里面用Hide参数就可以了

Answer 3

简单方法：
工具条上不是有一个“显示桌面”按钮吗？看他的属性所引用的命令，SHELL一下

Answer 4

同意CHKK(hello) 的方法，简单

Answer 5

搞这么麻烦干嘛？用Sendkeys发送WIN键+D键就可以啦嘛!呵呵

Answer 6

to  biku(biku) :
这个程序在windows目录下.你自己找找