图片压缩软件top

A. jip和gip有什么不一样

JPEG是Joint Photographic Experts Group(联合图像专家组)的缩写，文件后辍名为"．jpg"或"．jpeg"，是最常用的图像文件格式，由一个软件开发联合会组织制定，是一种有损压缩格式，能够将图像压缩在很小的储存空间，图像中重复或不重要的资料会被丢失，因此容易造成图像数据的损伤。尤其是使用过高的压缩比例，将使最终解压缩后恢复的图像质量明显降低，如果追求高品质图像，不宜采用过高压缩比例。但是JPEG压缩技术十分先进，它用有损压缩方式去除冗余的图像数据，在获得极高的压缩率的同时能展现十分丰富生动的图像，换句话说，就是可以用最少的磁盘空间得到较好的图像品质。而且 JPEG是一种很灵活的格式，具有调节图像质量的功能，允许用不同的压缩比例对文件进行压缩，支持多种压缩级别，压缩比率通常在10：1到40：1之间，压缩比越大，品质就越低；相反地，压缩比越小，品质就越好。比如可以把1．37Mb的BMP位图文件压缩至20．3KB。当然也可以在图像质量和文件尺寸之间找到平衡点。JPEG格式压缩的主要是高频信息，对色彩的信息保留较好，适合应用于互联网，可减少图像的传输时间，可以支持24bit真彩色，也普遍应用于需要连续色调的图像。
JPEG格式是目前网络上最流行的图像格式，是可以把文件压缩到最小的格式，在 Photoshop软件中以JPEG格式储存时，提供11级压缩级别，以0—10级表示。其中0级压缩比最高，图像品质最差。即使采用细节几乎无损的10 级质量保存时，压缩比也可达 5：1。以BMP格式保存时得到4．28MB图像文件，在采用JPG格式保存时，其文件仅为178KB，压缩比达到24：1。经过多次比较，采用第8级压缩为存储空间与图像质量兼得的最佳比例。
JPEG格式的应用非常广泛，特别是在网络和光盘读物上，都能找到它的身影。目前各类浏览器均支持JPEG这种图像格式，因为JPEG格式的文件尺寸较小，下载速度快。
JPEG2000作为JPEG的升级版，其压缩率比JPEG高约30％左右，同时支持有损和无损压缩。JPEG2000格式有一个极其重要的特征在于它能实现渐进传输，即先传输图像的轮廓，然后逐步传输数据，不断提高图像质量，让图像由朦胧到清晰显示。此外，JPEG2000还支持所谓的"感兴趣区域" 特性，可以任意指定影像上感兴趣区域的压缩质量，还可以选择指定的部分先解压缩。
JPEG2000和JPEG相比优势明显，且向下兼容，因此可取代传统的JPEG格式。JPEG2000即可应用于传统的JPEG市场，如扫描仪、数码相机等，又可应用于新兴领域，如网路传输、无线通讯等等。

2、GIF图象文件格式
GIF的全称是Graphics Interchange Format,.译做图形交换格式。GIF是一种公用的图象文件格式标准，但它归compuServe公司版权所有。
GIF文件结构包含一个文件头，

在一个GIF文件中首先碰到的是GIF的标志，这个标志告诉解码程序这是个GIF文件。这个标志是3字节的串：GIF。一个GIF文件中可以存放多幅图象，但绝大多数的文件都只包含一幅图象。
然后是屏幕描述字(screen descriptor),说明了用来生成的显示文件中的图象的显示器分辨率，分别表示屏幕的宽和高。
紧跟下来的一个字节是全局标志，其低三位说明了即将碰到的图象是多少颜色的。最高位表示是否存在一个全局色彩表。
背景色表示把背景置成适当的颜色，实际上是一个指向全局色彩表的数。
Struct Global_Data{
Unsigned short screen_width;
Unsigned short screen_height;
Unsigned char background;
har tail='\0';
}
接下来是全局色彩表，按顺序存放所有的严肃，每一种严肃由色彩表的一项来描述，每项是3字节，分别表示红、绿、蓝三种原色的强度。其长度有全局标志的低三位表示。
以后的数据都是局部的了。是些数据块的集合。下面是图象数据块的结构。
Struct Local_Head{
Char heading=',';
Unsigned short image_left;//图象的屏幕上显示的起始位置
Unsigned short image_top;
Unsigned short image_width;
Unsigned short image-height;
Unsigned char local_flag;//局部标志
}

局部标志和 全局标志的不同之处在于次高位，如果这位被置成1则表示图像的位图数据是以隔行方式存放的。也就是说，在解开的位图数据中，第一行存放的是屏幕上第一行，第二行对应屏幕上的第9行，第三行对应屏幕上的第17行，以此递增--这是第一遍扫描；第二遍扫描是从屏幕上的第5行开始，两行之间也是以8递增；第三遍扫描是从屏幕上的第3行开始，两行之间以4递增；第四遍扫描，也是最后一遍，从第2行开始，两行之间以2递增。隔行存放的图像数据和顺序（不隔行）存放的图像数据的对应关系如下图所示：

隔行存放的GIF图像在边解码边显示的时候可分成四遍扫描。第一遍扫描虽然只显示了整个图像的八分之一，第二遍的扫描后也只显示了四分之一，但这已经把整个图像的概貌显示出来了。在显示GIF图像的时，隔行存放的图像会给你这样一个印象：向它的显示速度似乎要比其他图像快一些，这是隔行存放的优点。
在GIF图像的编解码中用到了LZW压缩算法--把这些字符流转换成另一种形式的代码流，解码过程则是把这种代码流还原成原来的字符流。

B. 如何缩小照片kb大小

1、打开图片

首先用ps软件打开需要调整大小的图片。

C. 微信小程序图片压缩

微信小程序图片压缩有三种方法，一种是使用官方提供的接口 wx.compressImage(Object object) ；一种是通过压缩图片的大小，利用canvas重绘来得到压缩图片；最后一种安装第三方图片压缩包。

由于第一种方法网上很多人说压缩不明显或者失效，所以选择使用canvas重绘来实现图片压缩。同时，该种方法可以控制图片的最大尺寸，保持上传图片大小尺寸相差不多。在我们的学生节晚会小程序中，屏幕显示图片会比较美观一致。

1. 通过 wx.chooseImage 接口选择相机图片

2. 通过 wx.getImageInfo 接口获取图片信息（长宽，类型）

3. 计算压缩比例和最终图片的长宽

5. 通过 wx.canvasToTempFilePath 接口将画布内容导出为图片并获取图片路径

wxml 文件

在文件末尾插入 canvas 组件，通过设置left和top值确保图片不会显示在可视范围内。

一定要设置 canvas-id，这是canvas绘图和导出图片必备的属性。

js 文件

设置与页面绑定的数据：canvas的大小，也是压缩后图片的大小

1. 将画布内容导出为图片时，指定destWidth和destHeight为压缩后图片的大小。这里遇到过玄学bug，不指定的话，有时候图片不会压缩到规定的大小。

D. 图片加了z-index属性后尺寸变了

安装好ACD6.0后，点一副图片，系统会自动调用ACD将其打开，点窗口上方菜单栏中的“修改”、“转换文件格式”，在“格式”中选择自己想要的格式吧，点下一步，按照提示即可，很容易的。 另外。在“格式设置”里，可以调整压缩率，这一点非常重要，能在基本不改变照片画质的情况下，把照片体积压缩的很小。我试过，将一张大小为1M的JPG格式照片，采用最大压缩率进行压缩后，画质不变，大小仅为280KB，格式还是JPG，是不是很爽。 建议使用4.0以上版本的ACD。虽然PHOTOSHOP也能实现此功能，但此软件体积非常大，启动慢，不过它是专业的图象处理软件，要用好，不容易。可能有人会问？那么开始、程序、附件下的画图程序不也行吗？回答是：不行！画图只能将BMP格式压缩成JPG，本来就是JPG的，它就没办法了。 您还可以下载一款专用的图像瘦身工具，叫JPEG Imager ，在网上可以很容易的搜索到。此软件能将 BMP、JPG、PNG、GIF 等图形文件压缩，使文件变的更小，可自设压缩比例、大小、明暗度等等，它采用了一种新压缩算法:“智能过滤(smart filtration)”不仅可以改善图像的观感质量，而且还可为输出的图片“减肥”，允许压缩后的图形文件不失真。还可以建立类似于渐变 GIF 效果的渐变式 JPEG 图像，这种形式的 JPEG 图像应用于网页制作可使网页读取的速度加快。它的特点还包括对图像进行批量处理高效建立缩略图以及利用自带的滤镜、图像编辑器对图形进行简单的处理等。

E. 怎样高倍率的压缩照片文件

我是不赞成改变图片的压缩率来保存图片的。因为这样会造成图片的质量降低，图片就没有原件清晰了。 ～～～～～～～～～～～～～～～～～～ 可以采用分卷压缩的方法： 把你的照片，全部放到一个文件夹里，然后压缩，分卷压缩。一般邮件可以发送的附件大小约10M,(看你用的什么邮件）。在“压缩分卷大小”一项中填写，比如“5M”（我是建议分割小一点，在邮件中比较容易发送成功。） 这样就得到几个体积为5M的压缩包，分别通过邮件发送给对方。对方收齐了这些压缩包，解压就可以得到文件了。 我经常用此方法把视频文件分成几部分发送给网友，对方收到后解压就得到一个完整的视频文件。 ～～～～～～～～～～～～～～～～～～ 可以做一个博客，把你的相册全部放到上面去，这样别人就可以看到了。 可以申请一个网络相册，比如网易相册，雅虎相册等，，，据说是不限制容量的，你有多少照片都可以上传的。对于私密的照片，可以设置密码，对方知道密码才可以访问。 对于可以公开的照片，可以开放供人欣赏…… 可以上传到爱问共享资料里去。（当然只适合可以公开的照片）爱问共享资料，可以单次上传30M文件。 可以把这些照片，做成一个视频相册，上传到爱问视频，或者新浪播客里去…… （相关的制作软件很多，我原先“班沙克”那个号上传了很多这样的软件的。http://iask.sina.com.cn/toplist/answer_list.php?uid=80888570 ）

F. 有哪些电脑软件是大学生必备的

1、Chrome浏览器
这款浏览器我自己用的比较多，除了装机自带的浏览器之外，我又另外安装的它，平时查东西打开的网页多也不会卡断，最主要的是它没有乱七八糟广告弹窗，使用起来简洁舒适，实用性很强。

2、火绒安全
这是一款杀毒软件，很久之前就听说过，我也是最近才安装的，它的口碑非常好。可以清理病毒、关闭广告弹窗，而且体积非常小，轻便无存在感，有人称之为“杀毒工具中的一股清流”，问十个人有八个人推荐它。

3、PS
大家或多或少都听说过PS这个软件，我们经常说的P图就是用这款工具比较多，虽然算不上什么必备工具，但是学会这个技能还是非常加分的，网上也有非常多的教程。大学的可自由安排时间比较多，学一门实用的软件绝对没错！

4、Gitmind
这是一个思维导图APP，平常记笔记，整理资料或者阅读的时候都会用到它，不管是工作还是学习都要有规划，这里有很多的模板可以使用，读书笔记、工作计划这些都有，制作思维导图非常方便好用。

5、Listen1
这是一款音乐播放神器，可以进行全平台的音乐搜索播放，比如网易云、虾米音乐、酷狗音乐、酷我音乐等网站的歌曲，许多下架或者收费的歌曲都可以在这里免费收听，非常Nice！

今天的实用性电脑软件分享就到这里啦，你们有什么需求或者想要分享的工具可以私信我，或者在评论区留言哦！

G. 我做了一个大小574k的程序 内存却占用了20多M,该怎样进行内存优化

一．代码优化
内存会溢出肯定和代码逃不了关系,99.99%学java的人都知道垃圾回收器是java的一大优点并据此来嘲笑C++。显然这个特性为代码编写者省了不少事，但这个特性却带来了不少隐患。举个例子在游戏当中经常有不同场景的切换，如从游戏逻辑退到主菜单逻辑,对游戏逻辑对象的态度很多人会选择忘记等待垃圾回收器来收尸。乍看之下似乎并无不妥垃圾回收器会来善后。实际上垃圾回收器并非实时的,它不像C++的Delete语句马上释放不用的内存。当从游戏逻辑切换到主菜单逻辑这时两个对象同时存在很可能这时内存就不够用了。读到这里很多人会发现实际上垃圾回收器在j2me上并不怎么好用，从一个角度上来讲在j2me上所有垃圾必须由手工释放,除简单类型以外所有对象都必须显式地置空例如imgs=null;实际上java提供了一个不错的工具用来查找内存溢出,java.lang.Runtime.freeMemory()。它可以返回当前的剩余内存数，将它适当的安放在代码中可以有效的监测内存使用状况。很大一部份的j2me程序员之前都是从事pc软件开发工作，充裕的内存掩盖了许多写代码的不良习惯。如下所示：
//a不为空
a=newLogic();
很多人可能对此有异议，他们会认为新的对象会把旧的对象冲掉并且释放内存。这里面包含两个问题：1.该段代码是先创建对象然后再进行赋值操作的，也就是说在这期间有两个对象同时存在这就很可能会产生溢出。2.这样做也会妨碍垃圾回收器的工作
较好的写法如下：
a=null;
a=newLogic();
虽然麻烦了点但在j2me中还是必要的。接着看下例。
drawString("游戏时间:"+time,50,50,Graphics.LEFT|Graphics.TOP);
"游戏时间:"+time很完美在paint()方法当中每次都被刷一遍显示在屏幕上。危机往往隐藏在美丽的外表，该语句会引起新的内存重新分配来存储"游戏时间:"+time而显示完以后又必须由垃圾回收器释放，用了双倍时间,并且容易发生内存溢出。依此类推在重复执行的方法里应尽量避免重复定义对象。与paint()方法类似在循环里也有类似的情况存在。
把所有对象的初始化放在构造函数里想必是再正当不过了,大多数人通常的做法是把当前逻辑所要用到的资源通通初始化完毕。
很大一部份的内存溢出都是发生在构造函数中。内存使用的高峰期都是在构造函数中所以避开这个高峰能有效的防止溢出。建议最好的办法是第一次使用时初始化。如下所示
if(img==null){
//初始化
}
现在做游戏很多时候都需要地图数组，声音数组，还有一些其它资源这些资源很多可以放在代码中也有的可以放在文件当中。

强烈建议将这些资源放在文件中需要时在load进来。这些资源文件如果放在代码中则会占用不小的代码段空间，而代码一般是程序一运行就装载到内存当中。
除上面列举的方法外还有一些大家所熟知的顺便一提,比如关闭没用的rms，关闭没用的网络连接，关闭没用的流。正确地停止线程。良好的程序架构减少代码偶合性也是一个不错的方法，无论在代码调式，内存释放都可以做到非常清析。
二．图片优化
j2me的内存杀手无疑非图片莫属,一张3k的图片可以占用20多k的内存不信大家把load前后的内存剩余打印出来对比看看。所以防止内存溢出最直接的办法就是从图片入手。
1．图片压缩:多数人马上会想到这个办法。不错这个办法是最有效的。在photoshop里图片制作完成后不要选择"存储为"，而是选择"存储为web所用格式"可以根据里面的选项进行压缩，特别是颜色这一项越小越好不过相应的图像会有所失真。不要认为这样就完了。
实际上该图片还可以再次压缩，在网上有许多类似的工具。推荐一款可以压缩png格式的软件xat.comImageOptimizer效果不错。经常都有70%的压缩率且图像不会失真。
假如你有多张规格一样的图片，那么建议你把它做成一张长条图片。有两个原因：
1、这样节省存储空间和内存空间。大家可做个试验将10张图片的内容放在一张当中对比看看文件大小有没有变化。
2、10张图片需要10个image对象需要进行10次io操作浪费时间不说还浪费内存。当笔者发现这个好处时兴奋地把所有图片都存成一张，吱地一声内存又溢出了...原因想必大家也知道!！图片太大了不要把不同界面的图片整合在一起否则经常会得不偿失。
作图时还有一些细节需要注意,颜色数量，分辩率，图像模式（最好是索引颜色),画布大小都会影响到图片大小。
三．工具优化
谁都知道混淆器是用来保护代码的以加大反编译的难度(个人认为这是在嘲笑程序员的智商）。实际上用它来优化程序也是不错的选择，至少有两点好处：
1、压缩程序大小。一个60k的程序经常可以压掉10k左右。10k的空间对于写低端手机的程序员简直是雪中送碳，多少超过64k限制的游戏都受过它的恩惠；
2、节省内存空间。用脚去想也想得出来代码少了内存里的代码段自然就短了。

H. 上传图片时文件过大怎么办

可以使用photoshop软件将图片的品质调低，就可以将图片文件大小变小。具体的设置方法如下：

一、打开photoshop软件界面，点击左上角的文件选择打开按钮。

I. 怎么用JavaScript在线压缩图片

主要用了两个html5的 API，一个file，一个canvas，压缩主要使用cnavas做的，file是读取文件，之后把压缩好的照片放入内存，最后内存转入表单下img.src，随着表单提交。
照片是自己用单反拍的，5M多，压缩下面3张分别是600多kb，400多kb，300kb的最后那张失真度很大了，压缩效率蛮高的。

<!DOCTYPE html>
<html><head> <meta charset="utf-8"/> <title>File API Test</title> <script type="text/javascript" src="js/jquery-1.11.0.min.js"></script> <script type="text/javascript" src="js/JIC.js"></script> <style> #test{ display: none; } </style></head><body><input type="file" id="fileImg" ><form> <img src="" id="test" alt=""></form><script> function handleFileSelect (evt) { // var filebtn = document.getElementById(id); // console.log(filebtn); // var files = filebtn.target.files; // console.log(filebtn.target); // console.log(files); var files = evt.target.files; for (var i = 0, f; f = files[i]; i++) { // Only process image files. if (!f.type.match('image.*')) { continue; } var reader = new FileReader(); // Closure to capture the file information. reader.onload = (function(theFile) { return function(e) { // Render thumbnail. // console.log(evt.target.files[0]); // console.log(e.target); console.log(e.target.result); var i = document.getElementById("test"); i.src = event.target.result; console.log($(i).width()); console.log($(i).height()); $(i).css('width',$(i).width()/10+'px'); //$(i).css('height',$(i).height()/10+'px'); console.log($(i).width()); console.log($(i).height()); var quality = 50; i.src = jic.compress(i,quality).src; console.log(i.src); i.style.display = "block"; }; })(f); // Read in the image file as a data URL. reader.readAsDataURL(f); } } document.getElementById('fileImg').addEventListener('change', handleFileSelect, false);</script></body></html>

var jic = { /** * Receives an Image Object (can be JPG OR PNG) and returns a new Image Object compressed * @param {Image} source_img_obj The source Image Object * @param {Integer} quality The output quality of Image Object * @return {Image} result_image_obj The compressed Image Object */ compress: function(source_img_obj, quality, output_format){ var mime_type = "image/jpeg"; if(output_format!=undefined && output_format=="png"){ mime_type = "image/png"; } var cvs = document.createElement('canvas'); //naturalWidth真实图片的宽度 cvs.width = source_img_obj.naturalWidth; cvs.height = source_img_obj.naturalHeight; var ctx = cvs.getContext("2d").drawImage(source_img_obj, 0, 0); var newImageData = cvs.toDataURL(mime_type, quality/100); var result_image_obj = new Image(); result_image_obj.src = newImageData; return result_image_obj; }, function ****(***)

J. 我想用VB写一个压缩图片的程序，应该怎么写

如果你是仅仅为了压缩，而不是为了编程，你可以用ACDSee，他可以批量操作，方法是在ACDSee中选择你需要压缩的全部文件，点 工具 调整大小 选项很明显，你试一试。

你非要用程序的话，看看一下参考
注意：
PicClipD的ScaleMode=vbPixels
源图像是ImgSrc
目的图像是PicDest，注意它的属性
最关键的实现过程在CmdMake_Click

将下列内容复制到记事本，并保存为相应的文件

PicScale.vbp
--------------------

Type=Exe
Form=FrmMain.frm
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\..\WINDOWS\system32\stdole2.tlb#OLE Automation
Object={F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0; COMDLG32.OCX
IconForm="FrmMain"
Startup="FrmMain"
HelpFile=""
ExeName32="PicScale.exe" "
Command32="" "
Name="PicScale"
HelpContextID="0"
CompatibleMode="0"
MajorVer=1
MinorVer=0
RevisionVer=0
AutoIncrementVer=0
ServerSupportFiles=0
CompilationType=0
OptimizationType=0
FavorPentiumPro(tm)=0
CodeViewDebugInfo=0
NoAliasing=0
BoundsCheck=0
OverflowCheck=0
FlPointCheck=0
FDIVCheck=0
UnroundedFP=0
StartMode=0
Unattended=0
Retained=0
ThreadPerObject=0
MaxNumberOfThreads=1

[MS Transaction Server]
AutoRefresh=1

FrmMain.frm
----------------------------------

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form FrmMain
Caption = "简单图像文件缩放"
ClientHeight = 3810
ClientLeft = 165
ClientTop = 855
ClientWidth = 5505
HasDC = 0 'False
LinkTopic = "Form1"
ScaleHeight = 254
ScaleMode = 3 'Pixel
ScaleWidth = 367
StartUpPosition = 3 '窗口缺省
Begin MSComDlg.CommonDialog CDlgFile
Left = 2160
Top = 1320
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.PictureBox PicClipD
BackColor = &H8000000C&
HasDC = 0 'False
Height = 1695
Left = 2520
ScaleHeight = 109
ScaleMode = 3 'Pixel
ScaleWidth = 117
TabIndex = 8
TabStop = 0 'False
Top = 840
Width = 1815
Begin VB.PictureBox PicDest
AutoRedraw = -1 'True
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
Height = 495
Left = 240
ScaleHeight = 33
ScaleMode = 3 'Pixel
ScaleWidth = 65
TabIndex = 9
TabStop = 0 'False
Top = 360
Width = 975
End
End
Begin VB.PictureBox PicClipS
BackColor = &H8000000C&
HasDC = 0 'False
Height = 1575
Left = 360
ScaleHeight = 101
ScaleMode = 3 'Pixel
ScaleWidth = 101
TabIndex = 7
TabStop = 0 'False
Top = 840
Width = 1575
Begin VB.Image ImgSrc
Height = 855
Left = 240
Top = 240
Width = 855
End
End
Begin VB.PictureBox PicToolBar
Align = 1 'Align Top
HasDC = 0 'False
Height = 495
Left = 0
ScaleHeight = 29
ScaleMode = 3 'Pixel
ScaleWidth = 363
TabIndex = 0
TabStop = 0 'False
Top = 0
Width = 5505
Begin VB.CommandButton CmdReset
Caption = "复位"
Height = 255
Left = 3960
TabIndex = 6
Top = 120
Width = 780
End
Begin VB.CommandButton CmdMake
Caption = "生成"
Height = 255
Left = 3120
TabIndex = 5
Top = 120
Width = 780
End
Begin VB.TextBox TxtHeight
Height = 270
Left = 2280
TabIndex = 4
Text = "Text1"
Top = 120
Width = 750
End
Begin VB.TextBox TxtWidth
Height = 270
Left = 720
TabIndex = 2
Text = "Text1"
Top = 120
Width = 750
End
Begin VB.Label LblHeight
AutoSize = -1 'True
Caption = "Height:"
Height = 180
Left = 1680
TabIndex = 3
Top = 120
Width = 630
End
Begin VB.Label LblWidth
AutoSize = -1 'True
Caption = "&Width:"
Height = 180
Left = 120
TabIndex = 1
Top = 120
Width = 540
End
End
Begin VB.Menu mnuFile
Caption = "文件(&F)"
Begin VB.Menu mnuOpen
Caption = "打开(&O)..."
End
Begin VB.Menu mnuSave
Caption = "保存(&S)..."
End
Begin VB.Menu mnuSep0_0
Caption = "-"
End
Begin VB.Menu mnuExit
Caption = "退出(&X)"
End
End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Const CtlSpace = 4 '控件之间的距离

Private Sub CmdMake_Click()
Dim nWidth As Long
Dim nHeight As Long

'得到数值
On Error GoTo ErrNum
nWidth = CLng(TxtWidth.Text)
nHeight = CLng(TxtHeight.Text)
On Error GoTo 0
If nWidth < 1 Or nHeight < 1 Then GoTo ErrNum

'改变大小
On Error GoTo ErrSetSize
PicDest.Move 0, 0, nWidth, nHeight
On Error GoTo 0

'取消PictureBox的缓存
Set PicDest.Picture = Nothing

'绘制图像
PicDest.PaintPicture ImgSrc, 0, 0, PicDest.ScaleWidth, PicDest.ScaleHeight

Exit Sub

ErrNum:
MsgBox "错误的数值！", vbCritical
Exit Sub

ErrSetSize:
MsgBox "无法创建这么大的图片！", vbCritical
Exit Sub

End Sub

Private Sub CmdReset_Click()
If ImgSrc.Picture.Type = vbPicTypeNone Then '无图片
TxtWidth.Text = CStr(1)
TxtHeight.Text = CStr(1)

CmdMake.Enabled = False

Else
TxtWidth.Text = CStr(ImgSrc.Width)
TxtHeight.Text = CStr(ImgSrc.Height)

CmdMake.Enabled = True

Call CmdMake_Click

End If

End Sub

Private Sub Form_Load()
'-- 初始化坐标定位
Dim SM_Me As Long
Dim SM_Tbr As Long
Dim nTemp As Long

SM_Me = Me.ScaleMode
SM_Tbr = PicToolBar.ScaleMode

'定位PicToolBar的高度
With PicToolBar
'计算边框大小
nTemp = Me.ScaleY(.Height, SM_Me, vbPixels) - .ScaleY(.ScaleHeight, SM_Tbr, vbPixels)
'计算PicToolBar应有高度
nTemp = nTemp + .ScaleY(TxtWidth.Height, SM_Tbr, vbPixels)
'设置高度
.Height = Me.ScaleY(nTemp, vbPixels, SM_Me)
End With

'定位PicToolBar内的控件
nTemp = PicToolBar.ScaleHeight
LblWidth.Move CtlSpace, (nTemp - LblWidth.Height) / 2
TxtWidth.Move LblWidth.Left + LblWidth.Width, 0
LblHeight.Move TxtWidth.Left + TxtWidth.Width + CtlSpace, (nTemp - LblWidth.Height) / 2
TxtHeight.Move LblHeight.Left + LblHeight.Width, 0, TxtHeight.Width, TxtWidth.Height
CmdMake.Move TxtHeight.Left + TxtHeight.Width + CtlSpace, 0, CmdMake.Width, TxtWidth.Height
CmdReset.Move CmdMake.Left + CmdMake.Width + CtlSpace, 0, CmdReset.Width, TxtWidth.Height

ImgSrc.Move 0, 0

PicDest.Move 0, 0

'--设置数值
Call CmdReset_Click

With CDlgFile
.CancelError = True
.Flags = cdlOFNOverwritePrompt Or cdlOFNHideReadOnly
.Filter = "Windows位图(*.bmp)|*.bmp|所有文件(*.*)|*.*"
End With

End Sub

Private Sub Form_Resize()
If Me.WindowState = 1 Then Exit Sub
On Error Resume Next

Dim nTemp As Long
nTemp = PicToolBar.Height
PicClipS.Move 0, nTemp, Me.ScaleWidth / 2, Me.ScaleHeight - nTemp
PicClipD.Move PicClipS.Width, nTemp, Me.ScaleWidth - PicClipS.Width, PicClipS.Height

End Sub

Private Sub mnuExit_Click()
Unload Me
End Sub

Private Sub mnuOpen_Click()
On Error Resume Next

CDlgFile.ShowOpen
If Err.Number Then Exit Sub '点了取消

'打开
Set ImgSrc.Picture = LoadPicture(CDlgFile.FileName)
If Err.Number Then
MsgBox "无法打开文件！", vbCritical
Exit Sub
End If

On Error GoTo 0

Call CmdReset_Click

End Sub

Private Sub mnuSave_Click()
On Error Resume Next

CDlgFile.ShowSave
If Err.Number Then Exit Sub '点了取消

'保存
SavePicture PicDest.Image, CDlgFile.FileName
If Err.Number Then
MsgBox "无法保存图片！", vbCritical
Exit Sub
End If

On Error GoTo 0

End Sub