有没有人做过啊

[lufan82]

我想做一个方框可以在PICTUREBOX里面移动,双击他的话就将方框里的图片剪下来,不知道怎么下手啊

[TaiJi1985]

楼上是对的。

主要就是：
mouse_down
mouse_move

剪用的是 paintpicture

保存要用 savepicture

[VBDN]

在窗体中加入一个PictureBox1控件、在PictureBox1控件内放一个Shape1控件。
下边的代码将实现：当你在PictureBox控件内拖动鼠标时，出现一个选取框。
Private Sub Form_Load()
Shape1.Width = 0
Shape1.Height = 0
Shape1.BorderColor = vbRed
Shape1.BorderStyle = 3
End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
Shape1.Left = X
Shape1.Top = Y
End If
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
Shape1.Width = Abs(X - Shape1.Left)
Shape1.Height = Abs(Y - Shape1.Top)
End If
End Sub

[VBDN]

呵呵，完成了！
点右键的时候会将方框里的图片剪下来显示到Picture2中
在窗体中加入PictureBox2,下面为窗体的代码：
Private Sub Form_Load()
Shape1.Width = 0
Shape1.Height = 0
Shape1.BorderColor = vbRed
Shape1.BorderStyle = 3
End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
Shape1.Left = X
Shape1.Top = Y
End If
If Button = vbRightButton Then
Picture2.Cls
Picture2.PaintPicture Picture1.Picture, 0, 0, Shape1.Width, Shape1.Height, Shape1.Left, Shape1.Top, Shape1.Width, Shape1.Height
End If
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
Shape1.Width = Abs(X - Shape1.Left)
Shape1.Height = Abs(Y - Shape1.Top)
End If
End Sub