欢迎来到天天文库
浏览记录
ID:22460198
大小:27.65 KB
页数:11页
时间:2018-10-29
《窗口(window对象)基本操作应用示例》由会员上传分享,免费在线阅读,更多相关内容在学术论文-天天文库。
1、Window对象代表一个窗口,约有48个属性和14个方法,能对窗口特性进行设置和操作。Window对象是Windows集合中的成员,对于Application对象来说,Windows集合包含该应用程序中的所有窗口;对于Workbook对象来说,Windows集合只包含指定工作簿中的窗口。下面介绍一些示例,以演示和说明Window对象及其属性和方法的运用。示例02-01:激活窗口(Activate方法)SubSelectWindow() DimiWinAsLong,iAsLong,bWin MsgBox"依次切换已
2、打开的窗口" iWin=Windows.Count MsgBox“您已打开的窗口数量为:”&iWin Fori=1ToiWin Windows(i).Activate bWin=MsgBox("您激活了第"&i&"个窗口,还要继续吗?",vbYesNo) IfbWin=vbNoThenExitSub NextiEndSub示例02-02:窗口状态(WindowState属性)[示例02-02-01]SubWindowStateTest() MsgBox"当前活动工作簿窗口将最小化" Windows(1
3、).WindowState=xlMinimized MsgBox"当前活动工作簿窗口将恢复正常" Windows(1).WindowState=xlNormal MsgBox"当前活动工作簿窗口将最大化" Windows(1).WindowState=xlMaximizedEndSub示例说明:使用WindowState属性可以返回或者设置窗口的状态。示例中,常量xlMinimized、xlNormal和xlMaximized分别代表窗口不同状态值,Windows(1)表示当前活动窗口。可以使用Windows(i
4、ndex)来返回单个的Window对象,其中的index为窗口的名称或编号,活动窗口总是Windows(1)。[示例02-02-02]SubtestWindow() '测试Excel应用程序窗口状态 MsgBox"应用程序窗口将最大化" Application.WindowState=xlMaximized CalltestWindowState MsgBox"应用程序窗口将恢复正常" Application.WindowState=xlNormal MsgBox"应用程序窗口已恢复正常" '测试活动工作簿窗
5、口状态 MsgBox"当前活动工作簿窗口将最小化" ActiveWindow.WindowState=xlMinimized CalltestWindowState MsgBox"当前活动工作簿窗口将最大化" ActiveWindow.WindowState=xlMaximized CalltestWindowState MsgBox"当前活动工作簿窗口将恢复正常" ActiveWindow.WindowState=xlNormal CalltestWindowState Ms
6、gBox"应用程序窗口将最小化" Application.WindowState=xlMinimized CalltestWindowStateEndSub‘*********************************************************SubtestWindowState() SelectCaseApplication.WindowState CasexlMaximized:MsgBox"应用程序窗口已最大化" CasexlMinimized:MsgBox"应用程序窗口
7、已最小化" CasexlNormal: SelectCaseActiveWindow.WindowState CasexlMaximized:MsgBox"当前活动工作簿窗口已最大化" CasexlMinimized:MsgBox"当前活动工作簿窗口已最小化" CasexlNormal:MsgBox"当前活动工作簿窗口已恢复正常" EndSelect EndSelectEndSub示例说明:本示例有两个程序,其中testWindow()是主程序,调用子程序t
8、extWindowState(),演示了应用程序窗口和工作簿窗口的不同状态。当前活动窗口一般代表当前活动工作簿窗口,读者可以在VBE编辑器中按F8键逐语句运行testWindow()程序,观察Excel应用程序及工作簿窗口的不同状态。此外,在子程序中,还运用了嵌套的SelectCase结构。[示例02-02-03]SubSheetGradualGrow() DimxAsI
此文档下载收益归作者所有