如何在Form里控制Frame控件的移动，象移动Form得modal窗体一样

Question

同体，谢谢

Answer 1

在Form里用鼠标拖动来移动Frame框的位置,如何处理呀

Answer 2

Frame我记不得有没有DragStyle(?)这个属性，要是有的话把它设成Auto，再处理Form里的DragDown(?)和DragOver事件把frame重新放一下就O了

Answer 3

Private Sub Command1_Click()
    Frame1.Move 0, 0, 2000, 2000
End Sub

Answer 4

用move移动：
frame1.move left,top,width,height

Answer 5

Option ExplicitDim m_lngOldX As Long, m_lngOldy As LongPrivate Sub Frame1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    m_lngOldX = X: m_lngOldy = Y
End SubPrivate Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbLeftButton Then
        With Frame1
            .Move .Left + X - m_lngOldX, .Top + Y - m_lngOldy
        End With
    End If
End Sub此方法对所有的控件都管用!!