求教窗体跟随鼠标位置的问题

kookkey

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. If Target.Column > 2 Then
   
3.     With UserForm1
   
4.         .Show 0
   
5.         .Top = Target.Top
   
6.         .Left = Target.Left
   
7.     End With
   
8. Else
   
9.     UserForm1.Hide
   
10. End If

复制代码

请教一下，为什么我用这样的语句没办法正常地让窗体定位在鼠标位置，行数大的就偏移得更厉害了，有的直接就找不到窗体了

上图为偏移情况

kookkey

有兄弟知道怎么处理么

看见星光

日期列表.rar (18.59 KB, 下载次数: 98)

2018-3-18 20:49 上传

点击文件名下载附件

kookkey

看见星光 发表于 2018-3-18 20:49

请教一下为何是1.8，这是如何换算的呢？

看见星光

kookkey 发表于 2018-3-18 20:56
请教一下为何是1.8，这是如何换算的呢？

这只是权宜之法。窗体的位置和单元格的位置不是同一个坐标体系，换算关系如下：
磅和像素的换算：http://club.excelhome.net/thread-345771-1-1.html
如果需要适应不同的屏幕尺寸等，甚至EXCEL不同的界面（放大、缩小、工具栏的隐藏与否）还是得使用API，左上角可以搜到相关代码：http://club.excelhome.net/thread-1083449-1-1.html

kookkey

看见星光 发表于 2018-3-18 21:17
这只是权宜之法。窗体的位置和单元格的位置不是同一个坐标体系，换算关系如下：
磅和像素的换算：http:/ ...

ok，万分感谢

boon

实际上还是没有根本上解决窗体的跟随问题，在不向下拖动滚动条时，的确跟随很好，一拖动就不再跟随了。

xijiagao

看见星光 发表于 2018-3-18 21:17
这只是权宜之法。窗体的位置和单元格的位置不是同一个坐标体系，换算关系如下：
磅和像素的换算：http:/ ...

第二个链接里的示例有问题的  行数越大偏差就越大  这种方式行不通的  我找到了一种办法 虽然也有点偏差 但可以忽略这种微小的偏差  就是用鼠标坐标的方法 很简单 我不知道如何上传附件 就上代码吧

Public sbx, sby '以下为获取鼠标的屏幕坐标 这段代码只能放在任意模块中
Public Type POINTAPI2
x As Long
y As Long
End Type
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI2) As Long
Sub 鼠标坐标()
Dim p As POINTAPI2
GetCursorPos p
'MsgBox "鼠标当前的坐标为屏幕的（" & p.x & "," & p.y & "）"
'宽x = ActiveWindow.Width
'高y = ActiveWindow.Height
sbx = p.x / 1.333 '实际位置与获取位置有偏差 根据具体情况进行调整 可以用定义的"宽x"和"高y"除以获取的数值来取得初步的调整参数
sby = p.y / 1.444
End Sub

sbx和sby是最终的位置参数  因为得出的位置参数和实际位置是有出入的 我的电脑就是这样的 这个要自己调试  1.333 和1.444就是纠正错误位置的参数 屏幕大小不同可能参数也要调整 这个我没有测试 大家可以自己测试调整

leolee82

在mouse hook中调用用API MoveWindow或SetWindowPos