窗口(window对象)基本操作应用示例

《窗口(window对象)基本操作应用示例》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、Window对象代表一个窗口，约有48个属性和14个方法，能对窗口特性进行设置和操作。Window对象是Windows集合中的成员，对于Application对象来说，Windows集合包含该应用程序中的所有窗口；对于Workbook对象来说，Windows集合只包含指定工作簿中的窗口。下面介绍一些示例，以演示和说明Window对象及其属性和方法的运用。示例02-01：激活窗口(Activate方法)SubSelectWindow() DimiWinAsLong,iAsLong,bWin MsgBox"依次切换已打开的窗口" iWin=Windows.Count Msg

2、Box“您已打开的窗口数量为：”&iWin Fori=1ToiWin   Windows(i).Activate   bWin=MsgBox("您激活了第"&i&"个窗口，还要继续吗？",vbYesNo)   IfbWin=vbNoThenExitSub NextiEndSub示例02-02：窗口状态(WindowState属性)[示例02-02-01]SubWindowStateTest() MsgBox"当前活动工作簿窗口将最小化" Windows(1).WindowState=xlMinimized MsgBox"当前活动工作簿窗口将恢复正常" Windows(1

3、).WindowState=xlNormal MsgBox"当前活动工作簿窗口将最大化" Windows(1).WindowState=xlMaximizedEndSub示例说明：使用WindowState属性可以返回或者设置窗口的状态。示例中，常量xlMinimized、xlNormal和xlMaximized分别代表窗口不同状态值，Windows(1)表示当前活动窗口。可以使用Windows(index)来返回单个的Window对象，其中的index为窗口的名称或编号，活动窗口总是Windows(1)。[示例02-02-02]SubtestWindow() '测试E

4、xcel应用程序窗口状态 MsgBox"应用程序窗口将最大化" Application.WindowState=xlMaximized CalltestWindowState MsgBox"应用程序窗口将恢复正常" Application.WindowState=xlNormal MsgBox"应用程序窗口已恢复正常"   '测试活动工作簿窗口状态   MsgBox"当前活动工作簿窗口将最小化"   ActiveWindow.WindowState=xlMinimized   CalltestWindowState   MsgBox"当前活动工作簿窗口将最大化"   A

5、ctiveWindow.WindowState=xlMaximized   CalltestWindowState   MsgBox"当前活动工作簿窗口将恢复正常"   ActiveWindow.WindowState=xlNormal   CalltestWindowState MsgBox"应用程序窗口将最小化" Application.WindowState=xlMinimized CalltestWindowStateEndSub‘*********************************************************SubtestWi

6、ndowState() SelectCaseApplication.WindowState   CasexlMaximized:MsgBox"应用程序窗口已最大化"   CasexlMinimized:MsgBox"应用程序窗口已最小化"   CasexlNormal:     SelectCaseActiveWindow.WindowState       CasexlMaximized:MsgBox"当前活动工作簿窗口已最大化"       CasexlMinimized:MsgBox"当前活动工作簿窗口已最小化"       CasexlNormal:MsgBox

7、"当前活动工作簿窗口已恢复正常"     EndSelect EndSelectEndSub示例说明：本示例有两个程序，其中testWindow()是主程序，调用子程序textWindowState()，演示了应用程序窗口和工作簿窗口的不同状态。当前活动窗口一般代表当前活动工作簿窗口，读者可以在VBE编辑器中按F8键逐语句运行testWindow()程序，观察Excel应用程序及工作簿窗口的不同状态。此外，在子程序中，还运用了嵌套的SelectCase结构。[示例02-02-03]SubSheetGradualGrow() DimxAsI