原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
窗口(Windw对象)基本操作应用示例
Window对象代表一个窗口，约有48个属性和14个方法，能对窗口特性进行设置和操作。Window对象是Windows集合中的成员，对于Application对象来说，Windows集合包含该应用程序中的所有窗口；对于Workbook对象来说，Windows集合只包含指定工作簿中的窗口。下面介绍一些示例，以演示和说明Window对象及其属性和方法的运用。
示例02-01：激活窗口(Activate方法) Sub SelectWindow() ? Dim iWin As Long, i As Long, bWin ? MsgBox 依次切换已打开的窗口 ? iWin = Windows.Count ? MsgBox “您已打开的窗口数量为：” iWin ? For i = 1 To iWin ??? Windows(i).Activate ??? bWin = MsgBox(您激活了第 i 个窗口，还要继续吗？, vbYesNo) ??? If bWin = vbNo Then Exit Sub ? Next i End Sub
示例02-02：窗口状态(WindowState属性) [示例02-02-01] Sub WindowStateTest() ? MsgBox 当前活动工作簿窗口将最小化 ? Windows(1).WindowState = xlMinimized ? MsgBox 当前活动工作簿窗口将恢复正常 ? Windows(1).WindowState = xlNormal ? MsgBox 当前活动工作簿窗口将最大化 ? Windows(1).WindowState = xlMaximized End Sub 示例说明：使用WindowState属性可以返回或者设置窗口的状态。示例中，常量xlMinimized、xlNormal和xlMaximized分别代表窗口不同状态值，Windows(1)表示当前活动窗口。可以使用Windows(index)来返回单个的Window对象，其中的index为窗口的名称或编号，活动窗口总是Windows(1)。 [示例02-02-02] Sub testWindow() ? 测试Excel应用程序窗口状态 ? MsgBox 应用程序窗口将最大化 ? Application.WindowState = xlMaximized ? Call testWindowState ? MsgBox 应用程序窗口将恢复正常 ? Application.WindowState = xlNormal ? MsgBox 应用程序窗口已恢复正常 ??? 测试活动工作簿窗口状态 ??? MsgBox 当前活动工作簿窗口将最小化 ??? ActiveWindow.WindowState = xlMinimized ??? Call testWindowState ??? MsgBox 当前活动工作簿窗口将最大化 ??? ActiveWindow.WindowState = xlMaximized ??? Call testWindowState ??? MsgBox 当前活动工作簿窗口将恢复正常 ??? ActiveWindow.WindowState = xlNormal ??? Call testWindowState ? MsgBox 应用程序窗口将最小化 ? Application.WindowState = xlMinimized ? Call testWindowState End Sub ‘********************************************************* Sub testWindowState() ? Select Case Application.WindowState ??? Case xlMaximized: MsgBox 应用程序窗口已最大化 ??? Case xlMinimized: MsgBox 应用程序窗口已最小化 ??? Case xlNormal: ????? Select Case ActiveWindow.WindowState ??????? Case xlMaximized: MsgBox 当前活动工作簿窗口已最大化 ??????? Case xlMinimized: MsgBox 当前活动工作簿窗口已最小化 ??????? Case xlNormal: MsgBox 当前活动工作簿窗口已恢复正常 ????? End Select ? End Select End Sub 示例说明：本示例有两个程序，其中testWindow()是主程序，调用子程序textWindowState()，演示了应用程序窗口和
文档评论（0）