点到分辨率转换

发布于 2024-11-19 19:46:40 字数 289 浏览 1 评论 0原文

我正在使用凝视检测硬件，但遇到一些数字问题。首先，坐标从 (0,0) [屏幕左上角] 到 (1,1) [屏幕右下角]。当我凝视屏幕左上角时，系统会拾取 (0.35,0.30) 当我凝视屏幕右下角时，系统会拾取 (0.65, 0.80) 它拾取这些值而不是 (0,0) 的原因(1,1) 是因为屏幕分辨率为 1600x900，但我的应用程序仅占据屏幕的一部分 (817x500)。我的问题是，鉴于我的应用程序窗口是 (817x500)，如何将 (0.35,0.30) 这样的实际数字转换为屏幕上的某个位置，例如 (400,200)？

我用的是VB6。

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

陈甜 2024-11-26 19:46:41

Screen.Width 和 Screen.Height 返回整个屏幕的宽度和高度。
表单宽度和 Height 属性返回表单 frm 的宽度和高度。这些是外部尺寸，包括边框和标题栏。

尝试将类似的内容添加到您的表单代码（空中代码）中

Sub GazeToForm( ByVal gazeX As Double, ByVal gazeY As Double, _
  ByRef frmX As Double, ByRef frmY As Double) 

  frmX = (gazeX * Screen.Width) - Me.Left 
  frmY = (gazeY * Screen.Height) - Me.Top 

End Sub

所有这些坐标和尺寸均以缇为单位，如通常在 VB6 中一样。

Screen.Width and Screen.Height return the width and height of the entire screen.
The form Width and Height properties return the width and height of your form frm. These are the external dimensions, including the borders and title bar.

Try adding something like this to your form code (air code)

Sub GazeToForm( ByVal gazeX As Double, ByVal gazeY As Double, _
  ByRef frmX As Double, ByRef frmY As Double) 

  frmX = (gazeX * Screen.Width) - Me.Left 
  frmY = (gazeY * Screen.Height) - Me.Top 

End Sub

All these coordinates and dimensions are in twips, as usual in VB6.

回复收藏 0 原文