excel定制化窗体之窗体添加最大最小化按钮.docVIP

下载本文档

5
0
约2.23千字
约 3页
2019-07-13 发布于上海
举报
版权申诉

excel定制化窗体之窗体添加最大最小化按钮.doc

1、有哪些信誉好的足球投注网站（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
7、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

定制化窗体之窗体添加最大最小化按钮主????题　定制化窗体之窗体添加最大最小化按钮版??? 本　Excel2000及其以后版本说????明 ??本示例主要运用API函数来定制化Excel中的用户窗体，为窗体添加最大最小化按钮。（Code By wangminbai）在Excel 中当当我们显示一个VBA中的用户窗体时你会发现此窗体不像一般的程序窗体，它没有最大化和最小化按钮，那我们就来给它添加上最大化和最小化按钮。 ?在Excel 的VBE窗口中插入一个用户窗体，将其命名为 MaxMiniUserform。然后再添加一个模块。在窗体和模块中添加后面所列代码。在工作薄中的任意工作表中添加一窗体按钮控件，将指定其设置宏? 为 ShowForm。其供示范之用显示效果如下图： ? [代码：] //************************************************************************//显示窗体 Sub ShowForm()?? MaxMiniUserform.ShowEnd Sub/------------------------------------------------------------------------ Option Explicit//**************************************************************************//此模块演示了给窗体添加最大最小化按钮//**************************************************************************//以下声明API函数//查找窗口Private Declare Function FindWindow _??? Lib user32 _??? Alias FindWindowA ( _??????? ByVal lpClassName As String, _??????? ByVal lpWindowName As String) _As Long//取得窗口样式位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 DrawMenuBar _??? Lib user32 ( _??????? ByVal Hwnd As Long) _As Long//以下定义常数Private Const GWL_STYLE = (-16)???????????????????? 窗口样式Private Const WS_MAXIMIZEBOX = H10000????????? 最大化按钮Private Const WS_MINIMIZEBOX = H20000?????????? 最小化按钮//*******************************************************************************//?????????????????????????????????????????????? 主程序//********************************************************************************Private Sub UserForm_Initialize()??? Dim Hwnd As Long, Istype As Long??? //查找窗口句柄??? Hwnd = FindWindow(ThunderDFrame, Me.Caption)??? //取得窗口样式位??? Istype = GetWindowLong(Hwnd, GWL_STYLE)???