李莹

　　在图像的处理过程中经常需要对图像进行局部放大或 其它处理操作, 在VB中提供了一个非常实用的图像处理控 件PictureClip,利用此控件可以方便的完成图像的局部放 大或缩小操作。PictureClip 控件的功能就是对一个原始 位图进行剪裁, 根据用户的需要可以有两种剪裁方法, 第 一种方法是确定固定的剪裁尺寸, 通过确定横向与纵向的 剪裁份数, 控件均匀地把原始位图分成不同的图像块, 通 过序号可以访问每一个图像块, 此时需要的属性有: PicClip1.Picture:指定被剪裁的图像; PicClip1.Cols:确定剪裁的横向份数; PicClip1.Rows:确定剪裁的纵向份数; PicClip1.GraphicCell(i):访问第i个图像块; 另一种剪裁方法是随机剪裁, 确定剪裁的起点, 再确定需 要剪裁的横向与纵向尺寸, 此固定区域内的图像即剪裁为 一可访问的图像, 涉及的属性有: 　　　　　　　　　　PictureClip1.ClipX: 指定剪裁的横向起点坐标; 
　　　　　PictureClip1.ClipY: 指定前裁的纵向起点坐标; 　　　　　　　　　　　　　　　　PictureClip1.ClipHeight:指定剪裁的横向长度; 　　　　　 　　
　　　　　PictureClip1.ClipWidth:指定剪裁的纵向长度; 
　　　　　PictureClip1.Clip:访问被剪裁的图形; 
　　 还有两个重要的属性, 即StretchX和StretchY, 此属性指定被剪裁目标的图像的大小, 当此值与原始位图尺寸不相同时, 将引起剪裁图像的放大或缩小, 这就是利用此控件进行图像局部放大或缩小的原理; 
　　 利用上述两种剪裁方法均可以进行图像的局部放大或缩小处理, 但在实际应用中还是第二种剪裁方法更为实用, 在具体的编程时还应注意以下几点: 
　　1.在PictureClip的StretchX 及其它属性中均以象素 为单位, 所以在对图像进行操作时必须置作图单位为象素, 即使用ScaleMode=3命令; 
　　2.在进行随机剪裁时, 如果使用固定的剪裁尺寸, 当剪裁坐标移到图像的边缘时, 图像实际尺寸小于剪裁尺寸, 将引起边界溢出, 解决的办法是始终以鼠标坐标点之后的 图像尺寸为剪裁尺寸, 然后再调整StretchX及StretchY值 为剪裁尺寸的固定倍数, 即可实现局部图像固定比率的放 大或缩小操作; 
　　3.放大或缩小的局部图像需要装入图像框或其它容器 控件中, 此窗口的位置必须是灵活变化的, 即自动让开被 剪裁的区域, 可通过判断被剪裁区域起点的位置来临时调 整图像框Letf及Top属性来完成; 

　　 在下面是一个完整的演示程序, 需要在窗体中放置一 个PictureClip1及两个PictureBox控件, Picture1可为任 意大小, 而Picture2最好接近窗体的1/4,用于显示局部放大或缩小的图像, 之后把下面的代码填入相应的事件之中, 运行程序之后, 将在屏幕上显示图像, 用鼠标在此图像上 移动, 如果按下左键移动则实现图像的局部放大, 按下右 键移动实现图像的局部缩小, 不按下任何键则只在小窗口 内显示原尺寸的局部图像, 剪裁的起点是鼠标当前位置。 

　　以上程序及方法在WINDOWS 95系统下、VB5.0环境下调 试通过。

　　 附原程序: （下载）
　　 注释：准备窗体和图像框 
Private Sub Form_Load() 
　　Picture1.ScaleMode = 3 
　　Picture1.Picture = LoadPicture("c:\windows\setup.bmp") 
　　Form1.Width = Screen.Width 
　　Form1.Height = Screen.Height 
　　Form1.Top = 0 
　　Form1.Left = 0 注释：修改PICTURE尺寸与屏幕相同 
　　Picture1.Width = Screen.Width 
　　Picture1.Height = Screen.Height 
　　Picture1.Top = 0 
　　Picture1.Left = 0 
　　PictureClip1.Picture = Picture1.Picture 
End Sub 
注释：移动鼠标放大或缩小图像 
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 
　　Dim px, py, LeftDown, rightDown, num 
　　LeftDown = (Button And vbLeftButton) > 0 rightDown = (Button And vbRightButton) > 0 
　　If LeftDown Then num = 2 注释：左键按下放大二位 
　　Else
　　　　If rightDown Then num = 1 / 2 注释：右键按下缩小 
　　　　Else num = 1 注释：无键按下原来尺寸 
　　　　End If 
　　End If 
　　If X < Picture1.ScaleWidth / 2 Then 
　　　　px = Picture1.Width / 2 
　　Else 
　　　　px = 0 
　　End If 
　　If Y < Picture1.ScaleHeight / 2 Then 
　　　　py = Picture1.Height / 2
　　Else 
　　　　py = 0 
　　End If 
　　Picture2.Left = px 
　　Picture2.Top = py 注释：以上实时调整小窗口坐标 
　　Form1.Caption = Str$(X) + ":" + Str$(Y) PictureClip1.ClipX = X 注释：以当前鼠标位置为起点 
　　PictureClip1.ClipY = Y 
　　PictureClip1.ClipHeight = Picture1.ScaleHeight - Y 
　　PictureClip1.ClipWidth = Picture1.ScaleWidth - X 
　　PictureClip1.StretchX = (Picture1.ScaleWidth - X) * num
　　　　　　　　　　 PictureClip1.StretchY = (Picture1.ScaleHeight - Y) * num 
　　Picture2.Picture = PictureClip1.Clip 注释：小窗口显示图像 
End Sub