求将文件夹恢复原来大小的代码

20090930

下面是将文件夹最小化的代码，现在求将文件夹恢复原来大小的代码。
#If Win64 Then
Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Any, ByVal lpWindowName As String) As Long
Declare PtrSafe Function CloseWindow Lib "user32" (ByVal hwnd As Long) As Long
#Else
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Any, ByVal lpWindowName As String) As Long
Declare Function CloseWindow Lib "user32" (ByVal hwnd As Long) As Long
#End If

Sub 文件夹最小化()
Dim hndfd&, s&
hndfd = FindWindow("cabinetwclass", "新建文件夹")
s = CloseWindow(hndfd)
End Sub

yangyangzhifeng

showwindow

20090930

yangyangzhifeng 发表于 2018-7-30 07:18
showwindow

出错：
子过程或函数未定义
如何修改？

yangyangzhifeng

20090930 发表于 2018-7-30 11:26
出错：
子过程或函数未定义
如何修改？

1. Option Explicit
   
2. Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
   
3. 
   
4. #If Win64 Then
   
5. Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Any, ByVal lpWindowName As String) As Long
   
6. Declare PtrSafe Function CloseWindow Lib "user32" (ByVal hwnd As Long) As Long
   
7. #Else
   
8. Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Any, ByVal lpWindowName As String) As Long
   
9. Declare Function CloseWindow Lib "user32" (ByVal hwnd As Long) As Long
   
10. #End If
    
11. 
    
12. 
    
13. Sub 文件夹最小化()
    
14. Dim hndfd&, s&
    
15. hndfd = FindWindow("cabinetwclass", "新建文件夹")
    
16. s = CloseWindow(hndfd)
    
17. End Sub
    
18. 
    
19. Sub 文件夹最大化()
    
20.     Dim hndfd&, s&
    
21.     hndfd = FindWindow("cabinetwclass", "新建文件夹")
    
22.     s = ShowWindow(hndfd, 3)
    
23. End Sub
    

复制代码