VB6裁剪图片问题，求帮忙修改好 - 编程论坛

#2

cwa99582020-11-05 09:41

不知道你的裁剪是作什么的。
这样改试试看。
Picture2.PaintPicture Picture1.Image, 0, 0, 3475, 3255, 1100, 0, 3475, 3255
Picture2.Width = 3475
Picture2.Height = 3255

3475,3255是红色图形的大小，你保存的是picture2，所以，这个控件也要改变大小。

#3

yuma2020-11-05 12:06

回复 2楼 cwa9958

我想问一下，前面一个3475, 3255，和后面的一个3475, 3255，分别代表什么意思？

前面的3475, 3250是不是必须的？

[此贴子已经被作者于2020-11-5 15:13编辑过]

#4

cwa99582020-11-06 07:58

前面的数据是代表要在p2里显示的大小，后面的数据是要截取的大小。只要前面的数据大于后面的数据就可以。

你也可以用鼠标来截图。
代码实例：

程序代码：

Dim w1 As Integer, h1 As Integer

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    w1 = X
    h1 = Y

End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

    Picture1.Cls
    If Button = 1 Then
        Picture1.Line (w1, h1)-(X, h1)
        Picture1.Line (w1, h1)-(w1, Y)
        Picture1.Line (X, h1)-(X, Y)
        Picture1.Line (w1, Y)-(X, Y)
    End If

End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim w2 As Integer, h2 As Integer
    On Error Resume Next

    w2 = X - w1
    h2 = Y - h1

    Picture2.PaintPicture Picture1.Image, 0, 0, w2, h2, w1, h1, w2, h2
    Picture2.Width = Abs(w2)
    Picture2.Height = Abs(h2)

    Picture1.Cls

End Sub

[此贴子已经被作者于2020-11-6 08:20编辑过]