这次是一个图象处理问题

[守破之间]

怎样在一个PictureBox里的图象上用选择框选取一部分后转存下来？我只做到了取得它的设备上下文这一步，后面该怎么做呢？不会涉及到技术机密吧！我觉的不太容易。恳请大家赐教！感谢，万分感谢！

[yangzhaoyu]

Dim x1, y1, x2, y2 As Integer

Private Sub Command1_Click()
If x1 > x2 Then
x3 = x1
x1 = x2
x2 = x3
End If
If y1 > y2 Then
y3 = y1
y1 = y2
y2 = y3
End If
Picture2.Picture = LoadPicture
Picture2.PaintPicture Picture1.Picture, 0, 0, (x2 - x1), (y2 - y1), x1, y1, (x2 - x1), (y2 - y1), vbSrcCopy
SavePicture Picture2.Image, "d:\1.bmp"
End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
x1 = X
y1 = Y
End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
x2 = X
y2 = Y
End Sub

[守破之间]

我想知道，您对KODAK的组件有没有研究过了？如果有，能否弄个这个组件的说明书一类的让我开开眼呢？

[yangzhaoyu]

对不起,没有