API调用？

[angeltoday]

请问怎样调用API得到当前屏幕的分辨率？

[dageming]

Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Public Const SM_CXSCREEN = 0
Public Const SM_CYSCREEN = 1

[iwin]

使用VB的SCREEN对象即可。

dim lx as long,ly as long

with screen
lx=.Width/.TwipsPerPixelX
ly=.Height/.TwipsPerPixelY
end with

[y1g1y1]

使用VB的SCREEN对象即可。

dim lx as long,ly as long
with screen
lx=.Width\.TwipsPerPixelX
ly=.Height\.TwipsPerPixelY
end with