CDR vba插件窗口怎么才能实现最小化跟最大化呢

liaodongxing

CDR vba插件窗口怎么才能实现最小化跟最大化呢（没有最大化很最小化按钮）

Jerry

1. 'VBA窗体可调大小，放在窗体代码中
   
2. Option Explicit
   
3. Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal Hwnd As Long, ByVal nIndex As Long) As Long
   
4. Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal Hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
   
5. Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
   
6. Private Declare Function DrawMenuBar Lib "user32" (ByVal Hwnd As Long) As Long
   
7. 
   
8. Private Const GWL_STYLE = (-16)                 '窗口样式
   
9. Private Const WS_THICKFRAME = &H40000           '可更改大小
   
10. Private Const WS_THICKFRAME As Long = &H40000   ’(恢复大小)
    
11. Private Const WS_MINIMIZEBOX As Long = &H20000  ’(最小化)
    
12. Private Const WS_MAXIMIZEBOX As Long = &H10000  ’(最大化)
    
13. 
    
14. Private Sub UserForm_Initialize()
    
15.     Dim Hwnd As String, MyType As String
    
16.     Hwnd = FindWindow("ThunderDFrame", Me.Caption)  '取得窗口句柄
    
17.     MyType = GetWindowLong(Hwnd, GWL_STYLE)         '取得窗口样式
    
18.     MyType = MyType Or WS_THICKFRAME                '重新设置窗口样式
    
19.     MyType = MyType Or WS_MAXIMIZEBOX               '添加最大化按钮
    
20.     MyType = MyType Or WS_MINIMIZEBOX               '添加最小化按钮
    
21.     SetWindowLong Hwnd, GWL_STYLE, MyType           '应用样式
    
22.     DrawMenuBar (Hwnd)                              '重绘窗体
    
23. End Sub
    
24. 
    
25. Private Sub UserForm_Resize()  '//定义窗体大小变化后控件位置及尺寸变化
    
26. 
    
27. End Sub
    

复制代码

caishikun12

貌似没有这个功能的吧

liaodongxing

caishikun12 发表于 2019-5-16 23:38
貌似没有这个功能的吧

好的，谢谢哈。。。。。。。。，我以为有

彩广告

有的，就是你不会而已。

老周

应该可以实现的，我等下找找，我这个VB的好像可以，但是我不会看代码，

liaodongxing

老周 发表于 2019-5-17 13:31
应该可以实现的，我等下找找，我这个VB的好像可以，但是我不会看代码，

谢谢，麻烦你了。。刚好用到这个功能

liaodongxing

彩广告 发表于 2019-5-17 12:55
有的，就是你不会而已。

我会还用在这里问吗，白说

zhgx998

楼上很有分享精神，赞一个，找空试验下

liaodongxing

Jerry 发表于 2019-5-19 20:29

非常感谢你的回答。。