《用户窗体的全屏显示.docx》由会员分享，可在线阅读，更多相关《用户窗体的全屏显示.docx（2页珍藏版）》请在三一文库上搜索。
1、技巧1用户窗体的全屏显示在需要用户窗体全屏显示时,可以将窗体的Height属性和 Width属性设置为一定的数值,使之显示时和显示器一样大小.使用这种方法虽然可以到达全屏显示的要求,但是如果换台显示器不一样的电脑时,此种方法便会失效.为了使用户窗体到达真正的全屏显示,可以使用以下的方法.1-1设置用户窗体为应用程序的大小将用户窗体的高度和宽度设置为应用程序的高度和宽度,如下面的代码所示.# 001 Private Sub UserForm_Initialize()# 002 Application.WindowState = xlMaximized# 003 With Me# 004.Widt
2、h = Application.Width# 005.Height = Application.Height# 006.Left = Application.Left# 007.Top = Application.Top# 008 End With# 009 End Sub代码解析：用户窗体初始化时,将高度和宽度设置成与Excel应用程序窗口一样.第2行代码,将Excel应用程序的WindowState属性设置为xlMaximized ,使Excel 应用程序最大化显示.不使用对象识别符时Application属性返回一个 Application对象,代表Excel应用程序.WindowSta
3、te属性返回或设置窗口的状态,可以为表格 1-1所示的XlWindowState 常量之常量值说明xlMaximized-4137最大化xlNormal-4143不变化xlMinimized-4140最小化表格 1-1 XlWindowState 常量第3行到第8行代码将用户窗体的 Width属性、Height属性设置为Excel应用程序的 高度和宽度,Width属性、Height属性以磅为单位返回或设置对象的高度和宽度.将用户窗体白Left属性、Top属性设置为和最大化后的 Excel应用程序的一样.1-2根据屏幕分辨率进行设置根据屏幕分辨率的大小自动调整用户窗体的高度和宽度,如下面的代码所
4、示.#001 Private Declare Function GetSystemMetrics Lib user32 (ByVal nIndex As Long) As Long#002 Const SM_CXSCREEN As Long = 0#003 Const SM_CYSCREEN As Long = 1#004 Private Sub UserForm_Initialize()#005 With Me#006.Height =GetSystemMetrics(SM_CYSCREEN) * 0.72#007.Width = GetSystemMetrics(SM_CXSCREEN) * 0.75#008.Left = 0#009.Top = 0#010 End With#011 End Sub代码解析：用户窗体初始化时根据屏幕分辨率的大小自动调整用户窗体的高度和宽度.第1行到第3行代码,API函数声明.第6行代码设置用户窗体的高度,屏幕分辨率的Y坐标值乘以0.72将其换算成以磅为单位的数值.第7行代码设置用户窗体的宽度,屏幕分辨率的X坐标值乘以0.75将其换算成以磅为单位的数值.经过以上两种方法的设置,用户窗体显示时始终以全屏显示.