Private Sub Command1_Click() Frame1.Move 0, 0, 2000, 2000 End Sub
用move移动: frame1.move left,top,width,height
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此方法对所有的控件都管用!!
Private Sub Command1_Click()
Frame1.Move 0, 0, 2000, 2000
End Sub
frame1.move left,top,width,height
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此方法对所有的控件都管用!!