运行时移动窗体内的控件

 

原问题: 怎样在程序运行的状态下   用鼠标移动窗体上的控件??可以随意放在哪里....~!! 

我的解决方案:

====cike例题====
name   =   移动框架控件
form   =   Frame1
效果     =   可以随意拖动   框架的位置  
================

VBScript code

Dim a As Boolean     ' 这个变量记录了是否在按下状态Dim oldx As Integer  ' 这个变量记录了 未移动的X 位置Dim oldy As Integer  ' 这个变量记录了 未移动的Y 位置Private Sub Frame1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)a = True        '鼠标在 框架上按下时候 记录已经按下oldx = X        '同时记录当前位置 Xoldy = Y        '同时记录当前位置 YEnd SubPrivate Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)' 若按下 就移动 当前位置-移动位置=移动值'具体可以参考move 函数If a = True Then Frame1.Move Frame1.Left + X - oldx, Frame1.Top + Y - oldyEnd SubPrivate Sub Frame1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)a = False  '鼠标放开后 记录End Sub

只要按这个思路 可以移动其它控件...