如何将一张大图片分割成几个小图片？请指点一下

Question

通过鼠标划线分割一个图片
最好给个例子。谢谢！

Answer 1

在mousedown事件里得到起始位置，在mouseup事件中得到结束位置并用paintpicutre把坐标内的图像复制出来

Answer 2

建立两个PictureBox控件，将Picture1的Picture属性设置一个图片，
然后在一个触发事件中加入以下代码：
   Picture2.AutoRedraw = True
   Picture2.Width = Picture1.Width / 2
   Picture2.Height = Picture1.Height / 2
   Picture2.Cls
   Picture2.PaintPicture Picture1.Picture, 0, 0, _
   Picture1.Width / 2, Picture1.Height / 2, 0, 0, _
   Picture1.Width / 2, Picture1.Height / 2, vbSrcCopy
   SavePicture Picture2.Image, "C:\001.BMP"