VB中Screen.TwipsPerPixelX和Screen.TwipsPerPixelY在Windows7中的问题

星云网络

于 2018-12-03 00:26:51 发布

阅读量1.8k

点赞数

CC 4.0 BY-SA版权

分类专栏： vb 文章标签： vb Screen TwipsPerPixelX Windows7 DPI

本文链接：https://blog.youkuaiyun.com/qq_25142883/article/details/84729952

博客讨论了在Windows7（尤其是x64, SP1）环境下，随着DPI设置变化，VB中的Screen.TwipsPerPixelX和Screen.TwipsPerPixelY属性值出现不准确的情况。在DPI为150%且使用Windows7 Aero主题时，这两个值错误地返回15。不同主题下，Screen.Width和Screen.Height也有误差。问题可能与Windows7本身有关，且ScaleX方法测试也显示不准确。" 122177966,10483551,Python编程实践：8-6至8-8章节解析,"['Python', '开发语言', '后端']

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

测试在XP系统下,DPI计算似乎没问题
Screen.TwipsPerPixelX=1440/DPI=1440/96=15
Screen.TwipsPerPixelX=1440/DPI=1440/120=12
Screen.TwipsPerPixelX=1440/DPI=1440/144=10

测试在Windows7下(x64,SP1),DPI为96或120时,各种主题下获取似乎都正确.
当DPI为100%(96),三种主题下,获取的值为15
当DPI为125%(120),三种主题下,获取的值为12
当DPI为150%(144),主题为Windows7(Aero)时,获取的值为15(不正确)
当DPI为150%(144),主题为经典或Basic时,获取的值为10

简单来说如果主题为Windows7默认,DPI为150%时,获取的Screen.TwipsPerPixelX和Screen.TwipsPerPixelY将不准确.
用Screen.Width / Screen.TwipsPerPixelX计算分辨率也就不正确了

这是在Basic主题下截图 上图是在Basic主题下截图