VB实现橡皮筋裁减图片

在vb中实现橡皮筋切割图片似乎很困难（就是用户通过拉伸框来实现对图片的裁减），vb中很难通过CRectDoc实现，怎么办呢，经过高人指点，自己用shape模拟了一个，呵呵，效果还成~~


如果哪位朋友有需要我把代码放上来（由于代码写的很烂……所以先不拿出来现眼了……）。

真是天才

咋弄的

Option Explicit

Dim Xstar, Ystar As Integer
Dim Xold, Yold As Integer

Private Sub Form_Load()
    Picture1.ScaleMode = 3 '画框的度量单位按“像素点”
    Picture1.DrawWidth = 1 '画笔的粗度
End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
        Picture1.Cls
        Xstar = X
        Ystar = Y
        Xold = Xstar
        Yold = Ystar
        Picture1.DrawMode = 2
    End If
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button <> 1 Then Exit Sub
    Picture1.DrawStyle = 2 '表格画点线
    Picture1.Line (Xstar, Ystar)-(Xold, Yold), , B
    Picture1.Line (Xstar, Ystar)-(X, Y), , B
    Xold = X
    Yold = Y
End Sub

引用:

LiMeiSoft 于 2004-7-28 18:14 写道:
Option Explicit

Dim Xstar, Ystar As Integer
Dim Xold, Yold As Integer

Private Sub Form_Load()
    Picture1.ScaleMode = 3 '画框的度量单位按“像素点”
    Picture1.DrawWidth = 1 '画笔的粗度 ...

这个代码不成的拉，做这个之前我找 到　过　的　，
和真正的橡皮筋差很多，仅一个选框而已。

我这个橡皮筋还不完善，主要是旋转还没做出来（等比例缩放也没做，不过等比例实现起来很简单，不算是问题，旋转的话……目前为止还没想出来怎么弄……）。

[ 本贴由 阿达 于 2004-7-28  18:54 编辑过 ]

阿达
当裁减框的右边移动时，功能是实现了
但是其他的边，移动时就。。。。。