QQ登录

只需一步,快速开始

查看: 16725|回复: 10
收起左侧

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

[复制链接]
累计签到:101 天
连续签到:2 天
发表于 2019-5-16 22:25:08 | 显示全部楼层 |阅读模式
CDR vba插件窗口怎么才能实现最小化跟最大化呢(没有最大化很最小化按钮)
更多图片 小图 大图
累计签到:152 天
连续签到:1 天
发表于 2019-5-19 20:29:30 | 显示全部楼层
  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. Private Const GWL_STYLE = (-16)                 '窗口样式
  8. Private Const WS_THICKFRAME = &H40000           '可更改大小
  9. Private Const WS_THICKFRAME As Long = &H40000   ’(恢复大小)
  10. Private Const WS_MINIMIZEBOX As Long = &H20000  ’(最小化)
  11. Private Const WS_MAXIMIZEBOX As Long = &H10000  ’(最大化)

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

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

  23. End Sub
复制代码
回复 支持 反对 送花

举报

累计签到:1135 天
连续签到:3 天
发表于 2019-5-16 23:38:01 | 显示全部楼层
貌似没有这个功能的吧
回复 支持 反对 送花

举报

累计签到:101 天
连续签到:2 天
 楼主| 发表于 2019-5-17 09:30:51 | 显示全部楼层
caishikun12 发表于 2019-5-16 23:38
貌似没有这个功能的吧

好的,谢谢哈。。。。。。。。CDR vba插件窗口怎么才能实现最小化跟最大化呢{tag}(1),我以为有
回复 支持 反对 送花

举报

累计签到:635 天
连续签到:2 天
发表于 2019-5-17 12:55:12 | 显示全部楼层
有的,就是你不会而已。CDR vba插件窗口怎么才能实现最小化跟最大化呢{tag}(2)
回复 支持 反对 送花

举报

累计签到:126 天
连续签到:35 天
发表于 2019-5-17 13:31:26 | 显示全部楼层
应该可以实现的,我等下找找,我这个VB的好像可以,但是我不会看代码,
回复 支持 反对 送花

举报

累计签到:101 天
连续签到:2 天
 楼主| 发表于 2019-5-17 13:37:10 | 显示全部楼层
老周 发表于 2019-5-17 13:31
应该可以实现的,我等下找找,我这个VB的好像可以,但是我不会看代码,

谢谢,麻烦你了。。刚好用到这个功能
回复 支持 反对 送花

举报

累计签到:101 天
连续签到:2 天
 楼主| 发表于 2019-5-17 13:42:27 | 显示全部楼层
彩广告 发表于 2019-5-17 12:55
有的,就是你不会而已。

我会还用在这里问吗,白说
回复 支持 反对 送花

举报

累计签到:656 天
连续签到:1 天
发表于 2019-5-20 09:27:48 | 显示全部楼层
楼上很有分享精神,赞一个,找空试验下
回复 支持 反对 送花

举报

累计签到:101 天
连续签到:2 天
 楼主| 发表于 2019-5-20 09:58:40 | 显示全部楼层

非常感谢你的回答。。CDR vba插件窗口怎么才能实现最小化跟最大化呢{tag}(3)
回复 支持 反对 送花

举报

您需要登录后才可以回帖 登录 | 注册帐号

本版积分规则

关闭

注意注意注意:必看

华印网 - 华印社区
Share More 周一至周日:09:00 - 21:00
华印网旗下的设计印刷制作类专业技术站点
请勿发布违反国家法律法规的内容,会员观点不代表本站立场
企鹅群号:119572101

华印网汇集印前印后技术、PDF拼版、防伪包装、数码印刷、合版印刷、图文设计、平面设计、数码印刷及CTP等最新印刷技术,提供软件汉化、插件汉化、cdr插件、ai插件、ps插件、pdf插件、印刷流程、ctp输出、印刷软件、印能捷、esko、CorelDRAW、InDesign、Illustrator、CTP、CDR以及PDF软件下载的综合性印刷论坛社区!

Powered by Discuz! X3.4 © 2001-2021,Tencent Cloud.

站点地图|小黑屋|手机版|Archiver|华印 ( 粤ICP备19020152号-1 )

GMT+8, 2024-12-22 09:16 , Processed in 0.065434 second(s), 36 queries , Gzip On, Yac On.

快速回复 返回顶部 返回列表