找答案的高端用户(找答案钻石及双钻级别的用户)将尽可能从此问题下的所有回
答中,为您推荐最佳答案。届时您可以根据推荐数采纳答案。
如果自提问时间起7天内您仍无法选出最佳答案,您可以选择“无满意答案”关闭此问题。
问题
取消精华
首页精华问答
取消推荐
高端用户推荐
申请置评
已申请置评
修改
修改标签
添加标签
官方认证
取消官方认证
修改标签
添加标签
转移分类
删除
{{itemCategory}}
收藏({{answerDetail.Q_FavoriteCounts}})
手机扫码追踪该问题,
觉得实用,立即去分享!
点击复制链接
专家建议
取消最佳答案
修改
在WinCC中,通过VBS截取鼠标坐标并实现您描述的功能可以按以下步骤进行。
在PIC1中设置PIC1-AN按钮:
在PIC1中为按钮PIC1-AN添加一个VBS脚本,用于弹出HM1窗口。
Sub PIC1_AN_Click()
' 显示HM1窗口
HM1.Show
End Sub
在HM1中设置HM1-AN按钮:
为HM1中的按钮HM1-AN添加一个VBS脚本,用于读取鼠标坐标。
Sub HM1_AN_Click()
' 获取鼠标位置
Dim mouseX, mouseY
mouseX = GetSystemMouseX() ' 获取鼠标在屏幕上的X坐标
mouseY = GetSystemMouseY() ' 获取鼠标在屏幕上的Y坐标
' 获取主窗口的位置
Dim mainX, mainY
mainX = PIC1.Left ' 主窗口的左边界
mainY = PIC1.Top ' 主窗口的上边界
' 将鼠标坐标转换为主窗口的坐标系
Dim relativeX, relativeY
relativeX = mouseX - mainX
relativeY = mouseY - mainY
' 输出坐标信息 (可以用MessageBox或其他方式展示)
MsgBox "Mouse Position in Main Window: X=" & relativeX & ", Y=" & relativeY
End Sub
解释:
首先在主窗口表单中(PIC1),当用户点击PIC1-AN按钮时,会弹出HM1窗口。
当在HM1窗口中点击HM1-AN按钮时,使用VBS脚本获取当前鼠标的屏幕坐标,然后减去主窗口的左上角坐标,以获取在主窗口内的相对坐标。
你可以通过MsgBox将坐标输出,或者选择其它方式来处理坐标信息。
点赞({{answerDetail.Q_Positive}})
评论
评论
精探推荐
等您来回答
换一换
{{item.CoinValue}}西币
{{item.VisitNum}}人想问
本版相关问题
换一换
首次回答问题,获得
双倍西币积分!
立即成为技术知识分享的一员!
欢迎您访问支持中心!
丰富的视频,全方位的文档,大量的网友交流精华……
为了更好的完善这些内容,我们诚邀您在浏览结束后,花20秒左右的时间,完成一个用户在线调查!
感谢您的支持!

西门子商城
' 声明API函数
Declare Function GetCursorPos Lib "user32" (lpPoint As POINT) As Long
你需要根据自己的情况去调试,然后根据报错信息和帮助功能处理。
现在AI很强大,用Edge浏览器问一下Sider,就能得到更多详细内容。