vb.net图像压缩

求大神指点 vb.net 怎么把本地图像压缩 怎 后 在转换到 MemoryStream里面呢?

Dim?s?As?New?MemoryStream()

Dim?pic?As?New?Bitmap("c:\AeroSnap截图1.bmp")?

Dim?PicOld?As?Image?=?pic?

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

PicNew.Save(s,?Drawing.Imaging.ImageFormat.Jpeg)

s.Seek(0,SeekOrigin.Begin)

vb.net中怎么实现图片缩小和放大

vb.net进行文件压缩

如果机器安装有winRar软件,就可以通过shell来借用他的功能达到压缩文件的效果；

参考代码如下：

Dim DeliveryF As String = Server.MapPath("..\Temp\DeliveryFactors.xls") '原始文件 (压缩前)

Dim TruckInfo As String = Server.MapPath("..\Temp\TruckInformation.xls")

Dim QDetail As String = Server.MapPath("..\Temp\QuotationDetail.xls")

'用shell命令调用winrar.exe创建压缩文件()

Dim winRarexe As String = "C:\Program Files\WinRAR\Rar" 'winzip 执行文件的位置

Dim wtarget As String = "C:\temp\QuotationVAComparsion.zip" '目地文件 (压缩后)

Dim command As String = winRarexe " a " wtarget " " DeliveryF " " TruckInfo " " QDetail

'这个命令你可以查看winrar的命令集

Dim retval As Double 'Shell 指令传回值

retval = Shell(command, AppWinStyle.MinimizedFocus)

以上就是土嘎嘎小编为大家整理的vb.net图像压缩相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦！！