vb点虐 图片缩略图 vb中图片缩小一半的代码

vb点虐 中怎么实现图片缩小和放大

Pegasus的ImagXpress 8.0控件，支持各种格式文件的加载。控件封装了右键局部区域放大的功能，要实现图片的缩放，把AutoResize属性设置为PegasusImaging.WinForms.ImagXpress8.AutoResizeType.CropImage，修改 ZoomFactor的值就可以了。

创新互联主营故城网站建设的网络公司,主营网站建设方案,重庆APP开发,故城h5成都微信小程序搭建,故城网站营销推广欢迎故城等地区企业咨询

vb点虐 如何放大和缩小图片

Sub 图片缩放()

Dim SngPer As Single = 1 '放大或缩小的比例 放大2倍时SngPer=2,缩小3倍时 SngPer=1/3

Dim PicOld As Image = Image.FromFile("原图片路径")

Dim PicNew As New System.Drawing.Bitmap(PicOld, PicOld.Width * SngPer, PicOld.Height * SngPer)

PicNew.Save("新图片路径", Drawing.Imaging.ImageFormat.Jpeg)

End Sub

asp点虐 (vb)创建缩略图

你可以在VB中先生成:

用两个图片框:

第一个用于加载原始图片(AutoSize属性设置为True)

第二个用于生成缩略图的,大小调整成你的缩略图的大小(设置AutoRedraw属性为True)

用如下方法,可以生成缩略图(不过是bmp格式的,如果你要用别的格式,可以用工具批量转换一下

Private

Sub

Command1_Click()

Picture2.PaintPicture

Picture1.Picture,

0,

0,

Picture2.ScaleWidth,

Picture2.ScaleHeight

SavePicture

Picture2.Image,

"C:\a.bmp"

End

Sub