如何確定當(dāng)前屏幕分辨率

Microsoftaccess2000
    本文說(shuō)明如何創(chuàng)建用戶定義的樣例VisualBasicforApplications函數(shù)以確定當(dāng)前屏幕分辨率。您可以使用本函數(shù)確定是在標(biāo)準(zhǔn)VGA模式(640x480)還是在SuperVGA模式（800x600、1024x768或1600x1200）下運(yùn)行。
    正文：
    下面的示例說(shuō)明如何創(chuàng)建并使用樣例GetScreenResolution()函數(shù)。
    備注：您可能有某些在現(xiàn)有Microsoftaccess庫(kù)中定義的MicrosoftWindowsAPI函數(shù)；因此，您的聲明可能被重復(fù)。如果您收到重復(fù)過程名稱錯(cuò)誤消息，請(qǐng)?jiān)诖a中刪除或注釋出聲明語(yǔ)句。
    新建模塊，然后鍵入下列“聲明”和函數(shù)：
    '*****************************************************************
    'DECLARATIONSSECTION
    '*****************************************************************
    OptionExplicit
    TypeRECT
    x1AsLong
    y1AsLong
    x2AsLong
    y2AsLong
    EndType
    'NOTE:Thefollowingdeclarestatementsarecasesensitive.
    DeclareFunctionGetDesktopWindowLib"User32"()AsLong
    DeclareFunctionGetWindowRectLib"User32"_
    (ByValhWndAsLong,rectangleAsRECT)AsLong
    '*****************************************************************