VB6-图像分割利器 Microsoft Picture Clip控件

在医院做图像处理时碰到双面扫描仪，需要将扫描到的2张图像分割为一张并打印。在分割图像的过程中总是不得法，后来虽然有CBM666的指导，但给的方法也还是不太方便。无意中在翻一本vb书的时候看到了一个使用Microsoft Picture Clip控件的例子，想要分割图像那是超级简单。分享以下代码，保证拿了就可以用。

Pic1.Rows =

Picture1().Picture = Pic1.GraphicCell()
Picture1().Picture = Pic1.GraphicCell()

).Picture, App.Path + ).Picture, App.Path + )
picB.Picture = Pic1.GraphicCell()

Control.filename = App.Path + "\" + filename + ".jpg"
    Control.Store

End Sub

附CBM666分割大图片的方法，但是没有以上用控件灵活便捷：