Microsoftaccess2000
- i7 M4 b% ?, i 本文说明如何创建用户定义的样例VisualBasicforApplications函数以确定当前屏幕分辨率。您可以使用本函数确定是在标准VGA模式(640x480)还是在SuperVGA模式(800x600、1024x768或1600x1200)下运行。 {( ~+ V, X: |6 }0 {- S5 D( K2 D( }
正文:9 w& Z# J* J! `5 Y) d! r
下面的示例说明如何创建并使用样例GetScreenResolution()函数。
# I1 E4 z5 H0 e) p1 G% C 备注:您可能有某些在现有Microsoftaccess库中定义的MicrosoftWindowsAPI函数;因此,您的声明可能被重复。如果您收到重复过程名称错误消息,请在代码中删除或注释出声明语句。
7 U: d( ? Z; K; G7 g3 q; t! [ 新建模块,然后键入下列“声明”和函数:
/ j/ @( v* q5 q- e '*****************************************************************& X2 ? S1 x( R7 q0 A& e" K$ }( \
'DECLARATIONSSECTION
. {6 g) M$ U' O3 ? '*****************************************************************, R/ _0 F2 f5 L B4 w* b' }
OptionExplicit6 g1 A( Z5 g1 q
TypeRECT
1 ^, ?& I8 U7 S x1AsLong$ I$ X' v% U+ n- O/ K
y1AsLong# k9 O: y6 D$ O/ \8 E1 M
x2AsLong2 P3 d# E) W4 k7 M! b/ Y
y2AsLong
{6 H1 q) M+ K, Q; z EndType6 r3 n2 d5 W4 Y
'NOTE:Thefollowingdeclarestatementsarecasesensitive.$ p6 Z9 j6 Q2 k5 x& {5 N/ F% D
DeclareFunctionGetDesktopWindowLib"User32"()AsLong0 H2 P. W2 _7 @( u) I; G
DeclareFunctionGetWindowRectLib"User32"_$ z& ?5 v4 J+ V5 J
(ByValhWndAsLong,rectangleAsRECT)AsLong
7 }1 z: A1 H5 f2 Z5 s* _ '***************************************************************** |