Foxtable(狐表)用户栏目专家坐堂 → [求助]屏幕DPI???


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

主题:[求助]屏幕DPI???

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


加好友 发短信
等级:小狐 帖子:317 积分:2631 威望:0 精华:0 注册:2012/11/28 19:35:00
[求助]屏幕DPI???  发帖心情 Post By:2012/12/26 13:23:00 [只看该作者]

有没有代码可以得到屏幕的DPI

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


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2012/12/26 14:59:00 [只看该作者]

 木有方法设置,打开显示设置吧。

dim proc as New process
proc.File = "DpiScaling.exe"
proc.start

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


加好友 发短信
等级:小狐 帖子:317 积分:2631 威望:0 精华:0 注册:2012/11/28 19:35:00
  发帖心情 Post By:2012/12/27 16:32:00 [只看该作者]

Dim dpi As Integer = Registry.GetValue("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Hardware Profiles\Current\Software\Fonts","LogPixels",0)

好像可以,,求鉴定


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


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2012/12/27 17:12:00 [只看该作者]

 哦哦,当时看错了,可以获取,但是不能设置,具体可以这样测试。

 msgbox(basemainform.CreateGraphics.DpiX)

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


加好友 发短信
等级:幼狐 帖子:154 积分:1535 威望:0 精华:0 注册:2011/8/29 20:48:00
  发帖心情 Post By:2012/12/27 22:29:00 [只看该作者]

 

Output.Show("显示器分辨率为:" & SysInfo.ScreenWidth & " * " & SysInfo.ScreenHeight)
Output.Show(
"可用工作区大小:" & SysInfo.WorkingAreaWidth & " * " & SysInfo.WorkingAreaHeight)


 回到顶部