ch02窗口_Window对象_基本操作应用示例

《ch02窗口_Window对象_基本操作应用示例》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、ExcelVBA>>ExcelVBA编程入门范例>>窗口(Window对象)基本操作第二章窗口(Window对象)基本操作应用示例Window对象代表一个窗口，约有48个属性和14个方法，能对窗口特性进行设置和操作。Window对象是Windows集合中的成员，对于Application对象来说，Windows集合包含该应用程序中的所有窗口；对于Workbook对象来说，Windows集合只包含指定工作簿中的窗口。下面介绍一些示例，以演示和说明Window对象及其属性和方法的运用。示例02-01：激活窗口(Activate方法)SubSelectWind

2、ow()DimiWinAsLong,iAsLong,bWinMsgBox"依次切换已打开的窗口"iWin=Windows.CountMsgBox“您已打开的窗口数量为：”&iWinFori=1ToiWinWindows(i).ActivatebWin=MsgBox("您激活了第"&i&"个窗口，还要继续吗？",vbYesNo)IfbWin=vbNoThenExitSubNextiEndSub示例02-02：窗口状态(WindowState属性)[示例02-02-01]SubWindowStateTest()MsgBox"当前活动工作簿窗口将最小化"Win

3、dows(1).WindowState=xlMinimizedMsgBox"当前活动工作簿窗口将恢复正常"Windows(1).WindowState=xlNormalMsgBox"当前活动工作簿窗口将最大化"Windows(1).WindowState=xlMaximizedEndSub示例说明：使用WindowState属性可以返回或者设置窗口的状态。示例中，常量xlMinimized、xlNormal和xlMaximized分别代表窗口不同状态值，Windows(1)表示当前活动窗口。可以使用Windows(index)来返回单个的Window对象

4、，其中的index为窗口的名称或编号，活动窗口总是Windows(1)。[示例02-02-02]SubtestWindow()'测试Excel应用程序窗口状态MsgBox"应用程序窗口将最大化"Application.WindowState=xlMaximizedCalltestWindowStateMsgBox"应用程序窗口将恢复正常"2006年9月23日-1-http://fanjy.blog.excelhome.netPDF文件使用"pdfFactoryPro"试用版本创建www.fineprint.cnExcelVBA>>ExcelVBA编程入门

5、范例>>窗口(Window对象)基本操作Application.WindowState=xlNormalMsgBox"应用程序窗口已恢复正常"'测试活动工作簿窗口状态MsgBox"当前活动工作簿窗口将最小化"ActiveWindow.WindowState=xlMinimizedCalltestWindowStateMsgBox"当前活动工作簿窗口将最大化"ActiveWindow.WindowState=xlMaximizedCalltestWindowStateMsgBox"当前活动工作簿窗口将恢复正常"ActiveWindow.WindowStat

6、e=xlNormalCalltestWindowStateMsgBox"应用程序窗口将最小化"Application.WindowState=xlMinimizedCalltestWindowStateEndSub‘*********************************************************SubtestWindowState()SelectCaseApplication.WindowStateCasexlMaximized:MsgBox"应用程序窗口已最大化"CasexlMinimized:MsgBox"应用程序窗

7、口已最小化"CasexlNormal:SelectCaseActiveWindow.WindowStateCasexlMaximized:MsgBox"当前活动工作簿窗口已最大化"CasexlMinimized:MsgBox"当前活动工作簿窗口已最小化"CasexlNormal:MsgBox"当前活动工作簿窗口已恢复正常"EndSelectEndSelectEndSub示例说明：本示例有两个程序，其中testWindow()是主程序，调用子程序textWindowState()，演示了应用程序窗口和工作簿窗口的不同状态。当前活动窗口一般代表当前活动工作簿

8、窗口，读者可以在VBE编辑器中按F8键逐语句运行testWindow()程序，观