<<< 返回 access911.net 编程静态资料库索引页

如何获得当前计算机屏幕的分辨率?

 

作者:cg1  摘自:access911.net  录入:cg1  时间:2003-4-29  浏览人次:1548


专题地址:http://access911.net/fixhtm/74FAB01E12DC.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:如何获得当前计算机屏幕的分辨率?《API》

 


方法一:

1.分辨率
Private Const SPI_GETWORKAREA = 48
Private Declare Function SystemParametersInfo Lib "user32" Alias _
    "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long
Public Type RECT
    Left As Long '矩形左上角的X坐标
    Top As Long '矩形左上角的Y坐标
    Right As Long '矩形右下角的X坐标
    Bottom As Long '矩形右下角的Y坐标
End Type

Private Sub Command0_Click()
    Dim lRet As Long
    Dim apiRECT As RECT
    lRet = SystemParametersInfo(SPI_GETWORKAREA, vbNull, ap.....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/74FAB01E12DC.htm

 


上一篇:新手来看:设计表的时候怎么定义计算列?

下一篇:新手来看:我是否可以将Excel数据导入?

2017年2月22日生成静态资料