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
'*****************************************************************
本文說明如何創(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
'*****************************************************************