运行时移动窗体内的控件

 

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

我的解决方案:

====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        
    
    '
    
    同时记录当前位置 X
    
    

    
    oldy 
    
    =
    
     Y        
    
    '
    
    同时记录当前位置 Y
    
    

    
    End Sub
    
    


    
    Private
    
     
    
    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 
    
    -
    
     oldy


    
    End Sub
    
    


    
    Private
    
     
    
    Sub
    
     Frame1_MouseUp(Button 
    
    As
    
     
    
    Integer
    
    , Shift 
    
    As
    
     
    
    Integer
    
    , X 
    
    As
    
     
    
    Single
    
    , Y 
    
    As
    
     
    
    Single
    
    )
a 
    
    =
    
     
    
    False
    
      
    
    '
    
    鼠标放开后 记录
    
    

    
    End Sub
    
    



   
   

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