UC知道VB如何限制无标题窗体的移动范围
来源：百度知道 编辑：UC知道 时间：2024/06/08 22:24:50
一个BorderStyle属性被设置为“0-none”或者“1-fixed single”的无标题栏窗体，
调用api作了的拖动，请问在拖动时如何限制它的移动范围始终在屏幕内，
即：
form.top=0
form.left=0
form.Top = Screen.Height - form.Height
Me.Left = Screen.Width - Me.Width
我现在用timer，有没有其他方法？
我试过放在mouseup()事件上,用api的GetWindowRect好象没用
ps:我在mousedown()事件里放了拖动代码
调用api作了的拖动，请问在拖动时如何限制它的移动范围始终在屏幕内，
即：
form.top=0
form.left=0
form.Top = Screen.Height - form.Height
Me.Left = Screen.Width - Me.Width
我现在用timer，有没有其他方法？
我试过放在mouseup()事件上,用api的GetWindowRect好象没用
ps:我在mousedown()事件里放了拖动代码
Public Declare Function GetWindowRect Lib "user32" ( _
ByVal hwnd As Long, _
ByRef lpRect As RECT) As Long
用这个函数,获取窗体的当前位置
如果超过了你指定的范围,则再调整到指定的位置内