VB 实现框架（Frame）如Frame1的大小随鼠标拖动而改变的功能

在VB (Visual Basic) 中，要实现一个框架（Form或Frame）如 Frame1 的大小随鼠标拖动而改变，你可以使用 Form 或 Control 的 DragDrop 和 Resize Events。以下是简单的步骤：

1. **设置控件模式**：
首先，将 Frame1 的 `Dock` 属性设置为 `Fill` 或 `None`，以便它可以独立移动和调整大小。

Frame1.Dock = DockStyle.None ' 或者 DockStyle.Fill

2. **添加 MouseDown 事件处理**：
添加一个 MouseDown 事件处理器，记录按下鼠标的初始位置和窗体的大小。

Private _startPoint As Point
Private _formSize As Size

Private Sub Frame1_MouseDown(sender As Object, e As MouseEventArgs)
    _startPoint = e.Location
    _formSize = Me.ClientSize
End Sub

3. **添加 DragDrop 和 DragOver 事件处理**：
这两个事件会在用户拖动鼠标时触发，更新 Frame1 的位置和大小。

Private Sub Frame1_DragDrop(sender As Object, e As DragEventArgs) Handles Frame1.DragDrop
    Dim newPos As Point = Cursor.Position
    Me.Size = _formSize ' 恢复原尺寸
    Me.Location = newPos - _startPoint ' 移动到新的位置
End Sub

Private Sub Frame1_DragOver(sender As Object, e As DragEventArgs) Handles Frame1.DragOver
    e.Effect = DragDropEffects.Move
End Sub

4. **最后添加 MouseUp 事件处理**：
当鼠标释放时，结束拖放操作。

Private Sub Frame1_MouseUp(sender As Object, e As MouseEventArgs) Handles Frame1.MouseUp
    _startPoint = Nothing
End Sub