在Win7桌面点击鼠标右键,选择“屏幕分辨率”。
打开Win7屏幕分辨率设置窗口,在“屏幕分辨率”窗口点击下方的“放大或缩小文本和其它项目”。
选择“放大或缩小文本和其他项目,在“显示”设置窗口,选择要放大的位数。一般来说屏幕较小的笔记本电脑可以放大到125%,台式机可以放大的更多一些,达到150%甚至200%。
4调整放大倍数 选好之后点击“应用”按钮保存退出,注销后重新登录系统,就会发现所有地方的字体都变大了。
代码如下。
=============
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Sub Form_Load()
Dim h As Long, r As RECT
h = FindWindow(vbNullString, "酷狗") '这里写上你的窗口标题,必须一字不差
GetWindowRect h, r
MsgBox "左上角坐标(" & rLeft & "," & rTop & ")" & vbCrLf & "右下角坐标(" & rRight & "," & rBottom & ")" & vbCrLf & "窗口高" & rBottom - rTop & "窗口宽" & rRight - rLeft
End
End Sub
getLocationOnScreen ,计算该视图在全局坐标系中的x,y值,这个值是要从屏幕顶端算起,也就是索包括了通知栏的高度。
getLocationInWindow ,计算该视图在它所在的widnow的坐标x,y值, 非常准确!
getLeft , getTop, getBottom, getRight, 这一组是获取相对在它父亲里的坐标。
以上就是关于求教,win7系统150%放大后,不能找到正确坐标全部的内容,包括:求教,win7系统150%放大后,不能找到正确坐标、vb 如何获取一个窗口的坐标、安卓:如何获取屏幕中一个View的坐标等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)