用户窗体的全屏显示

admin

在需要用户窗体全屏显示时，可以将窗体的Height属性和Width属性设置为一定的数值，使之显示时和显示器一样大小。
使用这种方法虽然可以达到全屏显示的要求，但是如果换台显示器不一样的电脑时，此种方法便会失效。为了使用户窗体达到真正的全屏显示，可以使用以下的方法。

6 h' m& k! L) ?* F: w4 T1 g151-1        设置用户窗体为应用程序的大小

将用户窗体的高度和宽度设置为应用程序的高度和宽度，如下面的代码所示。

1. Private Sub UserForm_Initialize()
   , G" c; v$ [  E# Q8 M$ X, X
2.      Application.WindowState = xlMaximized
   
3.      With Me
   
4.         .Width = Application.Width
   
5.         .Height = Application.Height
   
6.         .Left = Application.Left
   
7.         .Top = Application.Top
   
8.      EndWith
   & A# N# \% C& b. @
9. End Sub

复制代码

代码解析：

用户窗体初始化时，将高度和宽度设置成与Excel应用程序窗口一样。

第2行代码，将Excel应用程序的WindowState属性设置为xlMaximized，使Excel应用程序最大化显示。

不使用对象识别符时Application属性返回一个Application对象，代表Excel应用程序。WindowState属性返回或设置窗口的状态，可以为表格151-1所示的XlWindowState常量之一。

常量	值	说明
xlMaximized	-4137	最大化
xlNormal	-4143	不变化
xlMinimized	-4140	最小化

表格151-1  XlWindowState常量

5 ]" P& G0 t' I4 ?

第3行到第8行代码将用户窗体的Width属性、Height属性设置为Excel应用程序的高度和宽度，Width属性、Height属性以磅为单位返回或设置对象的高度和宽度。将用户窗体的Left属性、Top属性设置为和最大化后的Excel应用程序的一样。

admin

151-2       根据屏幕分辨率进行设置根据屏幕分辨率的大小自动调整用户窗体的高度和宽度，如下面的代码所示。
1 E7 P% G" w6 v0 c; q# Z1 d4 L- }

1. Private Declare Function GetSystemMetrics Lib"user32" (ByVal nIndex As Long) As Long
   
2. Const SM_CXSCREEN As Long = 0
   3 R2 |; x+ j' i7 |# a
3. Const SM_CYSCREEN As Long = 1
   
4. Private Sub UserForm_Initialize()
   , I+ `. H0 H# [( h8 _
5.     With Me
   * j  R9 c, M2 a/ J+ d
6.          .Height = GetSystemMetrics(SM_CYSCREEN)* 0.72
   
7.          .Width = GetSystemMetrics(SM_CXSCREEN)* 0.75
   
8.          .Left = 0
   
9.          .Top = 0
   
10.      End With
      N9 m3 A. p$ k9 G% \: R) u
11. End Sub

复制代码

代码解析：
& J; F5 o% K$ v8 Y  @& Y用户窗体初始化时根据屏幕分辨率的大小自动调整用户窗体的高度和宽度。
第1行到第3行代码，API函数声明。
第6行代码设置用户窗体的高度，屏幕分辨率的Y坐标值乘以0.72将其换算成以磅为单位的数值。
. _( z- k$ d' k" i# [第7行代码设置用户窗体的宽度，屏幕分辨率的X坐标值乘以0.75将其换算成以磅为单位的数值。
0 s& x% U4 r6 C! b" n! d8 ]
/ H: P2 Z5 F* P- \0 Q1 [! ^! r

admin

经过以上两种方法的设置，用户窗体显示时始终以全屏显示。