ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 19359|回复: 28

用户窗体的最大化、最小化

[复制链接]

TA的精华主题

TA的得分主题

发表于 2005-7-8 09:01 | 显示全部楼层 |阅读模式
本帖已被收录到知识树中,索引项:窗体
各位大侠!如何在Excel环境中实现用户窗体的最大化、最小化。

TA的精华主题

TA的得分主题

发表于 2005-7-8 09:07 | 显示全部楼层

要的是这个吗?

ActiveWindow.WindowState = xlMaximized'窗口最大化 ActiveWindow.WindowState = xlMinimized'窗口最小化

TA的精华主题

TA的得分主题

发表于 2005-7-8 09:36 | 显示全部楼层

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Private Const SW_SHOWMAXIMIZED = 3

Private Sub UserForm_Activate() hWndForm = FindWindow("ThunderDFrame", Me.Caption) ShowWindow hWndForm, SW_SHOWMAXIMIZED End Sub

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-7-8 14:58 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

谢谢两位热心的帮助!

我还想请教一下菱角朋友!有没有办法在用户窗体的顶端添加控件,当鼠标单击的时候响应相应的事件(最大化、最小化)。

TA的精华主题

TA的得分主题

发表于 2005-7-8 15:08 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
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 ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Private Const WS_MAXIMIZEBOX = &H10000

Private Const WS_MINIMIZEBOX = &H20000

Private Const GWL_STYLE = (-16)

Private Sub UserForm_Initialize()

Dim hWndForm As Long

Dim IStyle As Long

hWndForm = FindWindow("ThunderDFrame", Me.Caption)

IStyle = GetWindowLong(hWndForm, GWL_STYLE)

IStyle = IStyle Or WS_THICKFRAME

IStyle = IStyle Or WS_MINIMIZEBOX

IStyle = IStyle Or WS_MAXIMIZEBOX

SetWindowLong hWndForm, GWL_STYLE, IStyle

End Sub

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-7-11 09:31 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2005-9-3 23:00 | 显示全部楼层

谢谢菱角老师:

我是今日才看到这段代码的,这也是我梦寐以求的。我以前是搞VB的,一个月前才学VBA,当时很纳闷:怎么没有最大化和最小化按钮,而VB中的窗体有。不知微软是怎么考虑的。再次谢谢你!

黄玉宏 江苏泰州人 2005.9.3

TA的精华主题

TA的得分主题

发表于 2005-10-20 19:55 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2010-5-13 14:52 | 显示全部楼层
不错啊  顶下!!!!!





















九鼎记 酒神阴阳冕 酒神 阴阳冕 长生界 神墓全文阅读 斗破苍穹最新章节列表 斗破苍穹 君子堂  酒神阴阳冕 君子堂 九鼎记全文阅读 斗破苍穹全文阅读 斗罗大陆全文阅读 仙逆 君子堂 御医 君子堂 很纯很暧昧 君子堂 官场新贵 君子堂 同居万岁 君子堂 禁血红莲 英雄无敌之十二翼天使全文阅读重生之衙内全文阅读三国之宅行天下全文阅读超级成长全文阅读疯狂的硬盘全文阅读邪龙道全文阅读 零之使魔 仙葫 君子堂 寂灭天骄 君子堂 卡徒 君子堂 异界之最强老爸 君子堂 重生之官道 君子堂 混世小农民全文阅读冒牌大英雄全文阅读  九鼎记全文阅读 流氓天尊 君子堂 官路风流 快眼看书 盘龙全文阅读 七界传说 君子堂 官气 君子堂 大魔王 君子堂 盗墓笔记 君子堂 近身保镖 君子堂 从零开始 君子堂 步步生莲 君子堂 网游之纵横天下 君子堂 间客 君子堂 九幽龙戒全文阅读 异世邪君全文阅读 天才医生全文阅读 斗罗大陆在线阅读 重生之官路商途全文阅读 猎国全文阅读 斗破苍穹 君子堂 酒神 阴阳冕 百炼成仙全文阅读 凡人修仙传 快眼看书 天下无双全文阅读 陈二狗的妖孽人生全文阅读 星辰变全文阅读 神墓 许仙志全文阅读   阳神全文阅读 凡人修仙传全文阅读傲剑凌云全文阅读 武神 君子堂  十方天士 君子堂 凌天传说 君子堂 玄幻魔法 历史军事 网游动漫 科幻小说

TA的精华主题

TA的得分主题

发表于 2005-7-8 15:12 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 16:31 , Processed in 0.043946 second(s), 9 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

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