如何对picturebox控件内的一幅图片进行截取

Question

问一下，在picturebox控件内载入一幅图片，我想对这副图片的一个指定区域进行截图（通过鼠标指定一个区域），并显示在另一个picturebox控件内，如何实现这个功能。

Answer 1

Picture2.PaintPicture Picture1.Image,0,0,100,100,.......忘了后面怎么说的了具体怎么来选择,可以使用一个Sharp控件来定位

Answer 2

Option Explicit
Dim oldX As Single, oldY As Single, flag As Boolean
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
    Picture1.Line (X, Y)-(X, Y), vbRed, B
    oldX = X
    oldY = Y
    flag = True
End If
End SubPrivate Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Not flag Then Exit Sub
Picture1.Cls
Picture1.Line (oldX, oldY)-(X, Y), vbRed, BEnd SubPrivate Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 And flag Then
    Picture1.Line (oldX, oldY)-(X, Y), vbRed, B
    flag = False
    
    Dim tmp As Single, oldX2 As Single, oldY2 As Single
    oldX2 = X: oldY2 = Y
    If oldX > oldX2 Then
        tmp = oldX
        oldX = oldX2
        oldX2 = tmp
    ElseIf oldX = oldX2 Then
        Picture1.Cls
        Exit Sub
    End If
    If oldY > oldY2 Then
        tmp = oldY
        oldY = oldY2
        oldY2 = tmp
    ElseIf oldY = oldY2 Then
        Picture1.Cls
        Exit Sub
    End If
    
    '放大功能
   ' Picture2.PaintPicture Picture1.Image, 0, 0, Picture2.ScaleWidth, Picture2.ScaleHeight, oldX, oldY, oldX2 - oldX, oldY2 - oldY
    '正常功能
    Picture2.PaintPicture Picture1.Image, 0, 0, oldX2 - oldX, oldY2 - oldY, oldX, oldY, oldX2 - oldX, oldY2 - oldY
End If
End Sub

Answer 3

在窗口上加两个picturebox控件，名为pictrue1,picture2,在picture1时加载一张图片

Answer 4

非常好,zzyong00,不知vb.net的怎么写,盼望中..

Answer 5

如果想对未加载图的picture1进行放大要怎样放大呢(即无IMAGE又无PICTURE,是直接用LINE等命令直接在PICTURE1控件上画的图)