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

字號:

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