VB等比例显示图像的方法
目的： 给图片生成缩略图
在窗体中拉两个image,分别命名为sizeimg和showimg,然后将showimg的stretch属性改成true就可以了
程序清单：
'---------------------------------------------------------------------------
|
Function showpic(pic) sizeimg.Picture=loadpicture(pic) X = sizeimg.Width Y = sizeimg.Height a = X / Y If a > 1 Then If X < showimg.Width Then showimg.Width = X: showimg.Height = Y Else showimg.Height = showimg.Width / X * Y End If Else If Y < showimg.Height Then showimg.Width = X: showimg.Height = Y Else showimg.Width = showimg.Height / Y * X End If End If showimg.Picture = sizeimg.Picture End Function |
'---------------------------------------------------------------------------
效果图
上图所示的几张图原尺寸都是1600*1200的,但借助于上面的函数就可以轻松给它们生成任意大小的缩略图了
本文来源 我爱IT技术网 http://www.52ij.com/jishu/612.html 转载请保留链接。
- 评论列表（网友评论仅供网友表达个人看法，并不表明本站同意其观点或证实其描述）
-