liaodongxing 发表于 2019-5-16 22:25:08

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

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

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

'VBA窗体可调大小，放在窗体代码中
Option Explicit
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal Hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal Hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal Hwnd As Long) As Long

Private Const GWL_STYLE = (-16)               '窗口样式
Private Const WS_THICKFRAME = &H40000         '可更改大小
Private Const WS_THICKFRAME As Long = &H40000   ’(恢复大小)
Private Const WS_MINIMIZEBOX As Long = &H20000’(最小化)
Private Const WS_MAXIMIZEBOX As Long = &H10000’(最大化)

Private Sub UserForm_Initialize()
    Dim Hwnd As String, MyType As String
    Hwnd = FindWindow("ThunderDFrame", Me.Caption)'取得窗口句柄
    MyType = GetWindowLong(Hwnd, GWL_STYLE)         '取得窗口样式
    MyType = MyType Or WS_THICKFRAME                '重新设置窗口样式
    MyType = MyType Or WS_MAXIMIZEBOX               '添加最大化按钮
    MyType = MyType Or WS_MINIMIZEBOX               '添加最小化按钮
    SetWindowLong Hwnd, GWL_STYLE, MyType         '应用样式
    DrawMenuBar (Hwnd)                              '重绘窗体
End Sub

Private Sub UserForm_Resize()'//定义窗体大小变化后控件位置及尺寸变化

End Sub

caishikun12 发表于 2019-5-16 23:38:01

貌似没有这个功能的吧

liaodongxing 发表于 2019-5-17 09:30:51

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

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

彩广告 发表于 2019-5-17 12:55:12

有的，就是你不会而已。:lol

老周 发表于 2019-5-17 13:31:26

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

liaodongxing 发表于 2019-5-17 13:37:10

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

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

liaodongxing 发表于 2019-5-17 13:42:27

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

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

zhgx998 发表于 2019-5-20 09:27:48

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

liaodongxing 发表于 2019-5-20 09:58:40

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


非常感谢你的回答。。:victory:
页: [1] 2
查看完整版本: CDR vba插件窗口怎么才能实现最小化跟最大化呢