哭啊.搞不定啊

Question

我知道怎么剪切PICTUREBOX里的一幅图片,但我要做一个可以移动的框框.请问这个框框用什么控件来做啊???

Answer 1

请问这个框框用什么控件来做啊???
PICTUREBOX控件   应该可以

Answer 2

Dim intX
Dim intY
Dim bImage As BooleanPrivate Sub Image0_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    intX = X
    intY = Y
    bImage = True
End SubPrivate Sub Image0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
If bImage Then
    If Button = 1 Then
        Image0.Left = Image0.Left + X - intX
        Image0.Top = Image0.Top + Y - intY
    End If
End If
End SubPrivate Sub Image0_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  bImage = False
End Sub

Answer 3

先谢谢各位大哥了,我可能说的不好,我是想在一个PICTURETBOX里面载入图片,然后在在上面放一个可以移动的方框,对这个方框双击的话就将方框内的图片剪切下来,那我想问一下这个方框用什么控件来做啊,呵呵

Answer 4

使用LABEL，设成透明的。捕捉鼠标的位置，在picture的mousemove属性中定义移动鼠标的轨迹。当然框框可以不用LABEL直接划线也可以，不过使用LABEL稍微简单一些：）