读取电脑分辨率的问题

chen3bing 发布于 2019-11-05 14:24， 1267 次点击

我试图读取电脑分辨率
代码如下：
Dim X As Integer, Y As Integer

        X = Screen.Width / Screen.TwipsPerPixelX
        Y = Screen.Height / Screen.TwipsPerPixelY


If (X = 1366) And (Y = 768) Then
。。。。。。。。。。。。。。。。。。。。。。。。。。
分辨率设为1920*1080，结果读取X=1080,Y=1080。
请问高手，哪里有错？谢谢！

2 回复

风吹过b2019-11-05 15:36

只有本站会员才能查看附件，请登录

结果没问题啊。。。

chen3bing2019-11-05 15:45

如过工程打开，换个分辨率，就不对了。
貌似，换个分辨率，要关掉工程，重新打开就好了。
很奇怪。