Microsoftaccess20000 I& g$ K" N3 x& p5 ]# u
本文说明如何创建用户定义的样例VisualBasicforApplications函数以确定当前屏幕分辨率。您可以使用本函数确定是在标准VGA模式(640x480)还是在SuperVGA模式(800x600、1024x768或1600x1200)下运行。1 j' E6 R1 u. A. A- w# S w. x+ L
正文:
; O' S1 c1 Q% \( e 下面的示例说明如何创建并使用样例GetScreenResolution()函数。8 f/ w2 s' L9 S7 u) O* p1 [1 d
备注:您可能有某些在现有Microsoftaccess库中定义的MicrosoftWindowsAPI函数;因此,您的声明可能被重复。如果您收到重复过程名称错误消息,请在代码中删除或注释出声明语句。1 F u |+ K H# g0 F3 s
新建模块,然后键入下列“声明”和函数:
8 f6 |; b, z4 V '*****************************************************************
" t( {7 D6 q) ~, u 'DECLARATIONSSECTION H% _; ~% ]8 w3 F
'*****************************************************************: q5 h+ b# D- D5 Q' O
OptionExplicit+ N' e. U, w; w6 R
TypeRECT
9 }8 B, w. W( n; S9 ]% y! b1 H6 ~ x1AsLong
0 Q* v4 ]& Q% [) g |1 }, [$ s y1AsLong
' x+ ~2 H+ t7 ?; c$ [ x2AsLong* o6 ]( _, J1 Q4 i4 k3 b2 g
y2AsLong) ]+ N6 E5 u7 f9 i: Z$ R# E' e
EndType
6 _6 ~2 U O: Q3 ~! A 'NOTE:Thefollowingdeclarestatementsarecasesensitive.5 }- o$ e- \. ~6 a
DeclareFunctionGetDesktopWindowLib"User32"()AsLong
1 n( `7 k; q3 l2 k DeclareFunctionGetWindowRectLib"User32"_
; u4 N8 u2 C+ d! ], w6 k (ByValhWndAsLong,rectangleAsRECT)AsLong, Y/ r/ R/ W/ {3 h0 T: N+ d# x
'***************************************************************** |