获取当前分辨率的api是什么？

Question

如题
给个代码最好了，谢谢先

Answer 1

Public Declare Function GetSystemMetrics Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As LongConst SM_CXSCREEN=0
Const SM_CYSCREEN=1GetSystemMetrics(SM_CXSCREEN)‘得到当前x轴分辨率
GetSystemMetrics(SM_CYSCREEN)‘得到当前y轴分辨率

Answer 2

不需要api,vb内置的就可以求
screen.width/15 )‘得到当前x轴分辨率
screen.height/15 )‘得到当前y轴分辨率

Answer 3

(不小心多了两个括号,下面才是)不需要api,vb内置的就可以求
screen.width/15 ‘得到当前x轴分辨率
screen.height/15 ‘得到当前y轴分辨率