'函数:GetScreenResolution()
1 A5 Q' ]7 f# Z' ]9 Q2 a, }( W '. N# }; _7 _( w; P- t5 Q5 E* s1 M/ c
'目的:
( c: k+ P D' }% `) K I '来确定当前屏幕的大小或分辨率 ^3 r9 e+ C( i- e2 v6 ~0 F
'
! I' m* Y. T/ Q% ]7 K7 D '返回:
, Z) A9 ~9 G2 T; F a '当前屏幕分辨率，下列为典型值:
U/ L& e# J/ E. }2 H '640x4806 B _4 J2 V6 T- r7 B" G7 A$ U
'800x600
5 F2 P: S% y' [) ?+ k '1024x768
4 U* p6 B% T; O8 A) ~% i1 G: p '
3 O: C: ]% }, m9 P1 X '*****************************************************************: H/ _0 T1 k; r. _6 T4 K
FunctionGetScreenResolution()asString
9 R; t2 e( i% _1 n DimRAsRECT6 `& q; V5 V9 ]6 D3 D
DimhWndAsLong
1 }$ B7 |' d& T: X DimRetValAsLong, I) f/ m- B1 H1 r3 o0 V, M1 V
hWnd=GetDesktopWindow()0 \$ H9 C2 p6 I
RetVal=GetWindowRect(hWnd,R)8 ]5 j( N/ P1 ~
GetScreenResolution=(R.x2-R.x1)&"x"&(R.y2-R.y1)
. Z6 G5 G7 P5 O2 _ q) I EndFunction
! c: O5 c/ a$ f( N. ^; q6 y 在视图菜单上，单击立即窗口。6 j( O# D" ?9 f2 Y, Q7 I
在“立即窗口”中键入下行命令，然后按ENTER键：
$ B- B& W/ x5 ]: A% ^4 L ?GetScreenResolution()
+ |) G" r8 U! c. N 注意：当前屏幕分辨率显示在“立即窗口”中。如果当前分辨率是标准VGA，则在“立即”窗口中显示下列内容：# i: n( h( Z/ c7 O9 T
640x480 |
发表于 2012-7-31 22:26:35
