关于vb中Frame的问题

Question

如何通过鼠标拖动改变Frame在Form窗体中的位置？

Answer 1

直接选中frame或者右键点击窗体,在下拉列表中选择"选中frame"
然后就可以直接用鼠标拖动了,前提是你的控件没有被锁定

Answer 2

'向窗体上添加一个Frame控件 示例如下：
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Source.Left = X
Source.Top = Y
End Sub

Private Sub Frame1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Frame1.Drag vbBeginDrag
End Sub

Answer 3

Dim xx As Single, yy As Single

Private Sub Frame1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
xx = X
yy = Y
End Sub

Private Sub Frame1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Frame1.Left = Frame1.Left + X - xx
Frame1.Top = Frame1.Top + Y - yy
End Sub

Answer 4

可以在程序中改变frame的left和top属性，从而达到位置移动的效果