Foxtable(狐表)用户栏目专家坐堂 → [求助]如何获取显示器分辨率以及字体显示比率?


  共有3136人关注过本帖树形打印复制链接

主题:[求助]如何获取显示器分辨率以及字体显示比率?

帅哥哟,离线,有人找我吗?
moseser
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:622 积分:5303 威望:0 精华:0 注册:2022/4/4 14:42:00
[求助]如何获取显示器分辨率以及字体显示比率?  发帖心情 Post By:2023/11/14 9:01:00 [只看该作者]

如题?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/11/14 10:01:00 [只看该作者]

添加dll引用:System.Management.dll

Dim mc As New System.Management.ManagementClass("Win32_DesktopMonitor")
Dim moc = mc.GetInstances()
Dim r As Single
For Each mo As System.Management.ManagementObject In moc
    '    Output.Show( mo.Properties("Name").Value.ToString())
    '    Output.Show( mo.Properties("PixelsPerXLogicalInch").Value / 96)
    If mo.Properties("Name").Value.ToString() = "默认监视器" Then
        r = mo.Properties("PixelsPerXLogicalInch").Value / 96
        Output.Show("字体比率:" & r)
    End If 
Next

Output.Show("屏幕分辨率:" & ScreenWidth)
Output.Show("真实屏幕分辨率:" & ScreenWidth * r)

 回到顶部
帅哥哟,离线,有人找我吗?
moseser
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:622 积分:5303 威望:0 精华:0 注册:2022/4/4 14:42:00
  发帖心情 Post By:2023/11/14 10:34:00 [只看该作者]

请问如何
添加dll引用:System.Management.dll

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/11/14 10:35:00 [只看该作者]


 回到顶部