Question

VB 窗体坐标的判断

我的form1中添加了1个 text1 控件 有时钟设置text1的left+100，我想判断：“当text1移动与窗体边框快接触时，向top方向移动，如何实现判断控件与窗体边框的接触”

Answer 1

仅提供解决思路。不提供代码，API请自己找齐。
这样以后你遇到类似问题可以自行解决。
以下为思路，看不懂请自己琢磨相关逻辑和API作用。

1.GetCursorPos 获取鼠标坐标 设获得的坐标为t_pos
2.WindowFromPoint 获取t_pos坐标指向的窗体 设获得的窗体句柄为hwnd
3.GetWindowRect 根据hwnd获取对应窗体坐标。此时t_pos与窗体坐标相减可以初步计算得相对坐标(包括标题栏等)，设此时计算得坐标为pos
4.GetWindowLong 获取样式，判断是否存在WS_BORDER(是否有边框)
方法：
假设GetWindowLong，获取的样式保存在style中，则if style or WS_BORDER=style then 存在WS_BORDER else 不存在WS_BORDER

如果存在WS_BORDER即有边框，则再调用GetSystemMetrics得到边框和标题栏宽度高度，然后pos与之相减（减掉边框）得到坐标相对于客户区的坐标
如果不存在WS_BORDER，则pos直接就是相对于客户区的坐标（无边框）

Answer 2

If Text1.Width + Text1.Left + 100 > Form1.Width Then
Text1.Top = Text1.Top + 100
Else
Text1.Left = Text1.Left - 100
End If

Answer 3

2楼正解，这个还用API，高射炮打蚊子了