专家坐堂-[求助]如何获取显示器分辨率以及字体显示比率？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

Output.Show("屏幕分辨率：" & ScreenWidth)

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