原32位API代码在64位OFFICE下，如何更改，才有效？

61866985

1. Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
   
2. Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
   
3. Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
   
4. Private Const GWL_STYLE = (-16)
   
5. Private Const WS_MAXIMIZEBOX = &H10000
   
6. Private Const WS_MINIMIZEBOX = &H20000
   
7. Private Const WS_THICKFRAME = &H40000
   
8. 
   
9. Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
   
10. ListView1.SortKey = ColumnHeader.Index - 1   ' 设定排序值的索引，sortkey是从0开始的，所以要减1
    
11. If ListView1.SortOrder = lvwDescending Then  ' 当前是否为降序
    
12.     ListView1.SortOrder = lvwAscending       ' 按升序
    
13. Else
    
14.     ListView1.SortOrder = lvwDescending      ' 按降序
    
15. End If
    
16. ListView1.Sorted = True                      ' 激活listview排序
    
17. End Sub
    
18. 
    
19. Private Sub UserForm_Initialize()
    
20. Dim hwnd As Long
    
21. Dim lStyle As Long
    
22. hwnd = FindWindow("ThunderDFrame", Me.Caption) '找到窗口的句柄
    
23. lStyle = GetWindowLong(hwnd, GWL_STYLE)        '获得窗口的样式
    
24. lStyle = lStyle Or WS_MINIMIZEBOX              '在原窗口样式增加最小化按钮
    
25. lStyle = lStyle Or WS_MAXIMIZEBOX              '进一步增加最大化按钮
    
26. lStyle = lStyle Or WS_THICKFRAME               '进一步增加窗口边框，使得窗口可以通过鼠标拖拉改变大小
    
27. SetWindowLong hwnd, GWL_STYLE, lStyle          '将新的窗口样式指定给窗口
    
28. End Sub
    

复制代码

wpxxsyzx

参考：Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As LongLong, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
百度 PtrSafe

61866985

wpxxsyzx 发表于 2013-8-7 10:03
参考：Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd ...

因为没学过API，只是利用这段代码，实现窗体可用鼠标拖拉大小，及窗体最大化最小化功能。
是直接照搬用的，所以不太懂。
希望版主能帮我改下，
或只要能实现上述功能，不用API也可以
求教了！

wpxxsyzx

没测试环境，把每个api声明添加PtrSafe，Declare PtrSafe Function