vb.net 模拟 Win + D 显示桌面

Question

由于主界面最大化，底下任务栏也被覆盖了。我们都知道可以按win+D，但是很多用户只会用鼠标。所以想再主界面加个按钮 达到 显示桌面的功能。可是不知道怎么实现，求具体代码，感激不尽！
sub button_click()

end sub

Answer 1

显示桌面的本质是个系统 Shell（IShellDispatch4.ToggleDesktop()），所以只需要调用这个 Shell 就好了，用不着模拟按键。

 

项目引用 C:\Windows\System32\shell32.dll，参考代码：

Dim objShel As Shell32.ShellClass = New Shell32.ShellClass()
CType(objShel, Shell32.IShellDispatch4).ToggleDesktop()

Answer 2

Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal Scan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
keybd_event(91, 0, 0, 0)'windows键的键码是91
keybd_event(68, 0, 0, 0)'大写D的键码是68，用小写的100都不行
End Sub