窗体控件在屏幕上的精确位置，可用于实现窗体跟随

rrxfw

高手，谢谢分享

micch

加了一个pixel转point的函数，能实现在窗体中定位控件右侧了

micch

再加一个，计算屏幕大小，根据是否出界，重新调整窗体位置。

大概意思懂了，再把一堆功能集合在一起，把可能存在的情况都做个判断，基本就能实现窗体中跟随控件了

prome3

micch 发表于 2024-6-2 15:58
现在理解下来：用这个函数可以获取控件在屏幕的像素位置，然后知道了像素坐标点，那么想把窗体显示在这个坐 ...

现在理解下来：用这个函数可以获取控件在屏幕的像素位置，然后知道了像素坐标点，那么想把窗体显示在这个坐标位置，只需要把这个RECT的值，转化为点坐标，赋值给窗体的属性，就能想放哪放哪？

我这样理解的对吗？

如果是直接用，就不需要转化为点坐标。
RECT的值是像素，如果有窗口句柄 hwnd，可以直接用 MoveWindow 函数或者 SetWindowPos 函数直接把窗体移动到指定位置：

1. MoveWindow hwnd, RECT.Left, RECT.Top

复制代码

论坛上有很多代码会把窗体的标题去掉、或者加入最大化、最小化按钮，或者去掉右上角关闭按钮之类的，这个过程中其实已经获得了窗口句柄，要进一步完成窗体跟随的话直接用这个句柄就行了。

如果我给的代码是直接给到点坐标，那上面提到的代码里面要用的话就相当于，【获取控件像素坐标】->【转换为点坐标】->【转换为像素坐标】->【SetWindowPos hwnd】。看出问题来了没有？楼上我给的买牛肉的比喻，如果我给的是熟牛肉，那会自己处理/煮牛肉的人，拿回家还需要先把熟牛肉变回生牛肉，再按照自己的口味喜好去处理。

1. <div class="quote"><blockquote>主要是没看懂，并不是挑毛病

复制代码

我知道您不是在挑毛病，我也不怕别人挑毛病。因为此帖给的内容很简单，没有毛病可挑。别人可能会提的问题其实我都想过了，甚至别人可能没考虑到的地方我也都考虑了。如果是像我的那个日历主题帖，内容繁多，功能复杂，在编代码的时候因为个人精力有限无法面面俱到，那我心里还是有点虚的。

这个帖子，一点不虚。

opel-wong

不错的话题，留个记号！

cidanji

支持，API获得控件位置信息相当好

morpheus126

谢谢分享，必须学习

大灰狼1976

不用API也可以，将userform.height设为0，然后获取userform.height，在我的电脑上是29.25，向上取整得30，30*0.75（磅转换像素）=22.5，再向上取整得23，标题栏高度为23，后面简单了。

prome3

@micch

前辈若真看懂了此帖的作用，可否替我给大伙说说18楼代码的问题所在？

micch

18楼文件简单看了一眼，控件如果parent是别的控件而不是窗体自身的话，定位就需要另外写代码计算。适用于基础的情况，控件直接在窗体内添加。

GetControlRect 这个函数，通过IAccessible接口的方法获取控件位置，像素坐标。然后用api转化为屏幕坐标。然后可以用api函数移动窗体到控件的相对位置，或者转化为点坐标，直接设置窗体的top,left。

到目前为止，搞懂这些，基本能用于窗体显示跟随控件了。其他细节就都是后续自己完善的事了。告一段落，那个接口和api就不研究了，知道能这么用就够了。