请问各位老师有没有一点按钮就显示桌面的代码啊？

qhllqhll

请问各位老师有没有一点按钮就显示桌面的代码啊？
也就是把所有窗口 都最小化
谢谢

徐淑颖

HEHE ,这个不好像应该是很简单的嘛！

徐淑颖

根本就不用按钮的嘛，你直接按快捷键  windows+d

徐淑颖

就是左下角  ctrl  和ALT  中间的那个windows；   按那个键+D就可以切换回桌面了！{:29:}

Dj_soo

嗯,我也想这么说,有快捷键不用,费事写代码多没意思.

HYY514

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function SHGetSpecialFolderPath Lib "shell32.dll" Alias "SHGetSpecialFolderPathA" (ByVal hwndOwner As Long, ByVal lpszPath As String, ByVal nFolder As Long, ByVal fCreate As Long) As Long
Sub a()
    Dim s As String
    Dim sPath As String
    s = String$(260, 0)
    SHGetSpecialFolderPath 0, s, &H1A, 0
    sPath = Left$(s, InStr(1, s, Chr$(0)) - 1)
    sPath = sPath & "\Microsoft\Internet Explorer\Quick Launch\显示桌面.scf"
    ShellExecute 0, "Open", sPath, "", "", 1
End Sub

qhllqhll

回复 HYY514 的帖子

老师您好：我做了一个打开excel的登录窗口，想在打开前关闭所有窗口，

qhllqhll

只显示我的登录小窗口 当输入完用户名和密码后 便打开excel界面

HYY514

或者调用脚本
Sub a()
CreateObject("Shell.Application").ToggleDesktop
End Sub

HYY514

新建一个窗体，把下面的代码复制进里面看看：
Private Sub UserForm_Click()
Application.Visible = True
End Sub

Private Sub UserForm_Initialize()
CreateObject("Shell.Application").ToggleDesktop
Application.Visible = False

End Sub