批量改变图片大小的程序。可以缩小图片，相片，照片的大小。分为三个步骤，制作一张图片，批量制作图片，一键批量制作图片。一，制作一张图片。(1)建立一个标准的exe工程(2)“工程”“部件”“microsoft common dialog control 6.0”，添加CommonDialog1控件。(3)在form1窗体上添加image控件，一个image1用来显示预览图。width属性1500,height属性2000。(4)在form1窗体上添加picture控件，一个picture1用来显示生成的图片。width属性1500,height属性2000。(5)在form1窗体上添加Command1控件，caption属性为“添加”。(6)在form1窗体上添加Command2控件，caption属性为“制作图片”。(7)在form1窗体上添加Command3控件，caption属性为“保存”。(8)在form1窗体上添加Label1控件，caption属性为空。width属性8000,height属性1000。(9)编写form1首次支行的是加载事件函数。在代码编辑窗口“form”和“load”中输入如下语句。Private Sub Form_Load()Picture1.ScaleMode = 1End Sub(10)编写添加图片的代码。Private Sub Command1_Click()Dim 文件 As StringWith CommonDialog1.FileName = "".Filter = "文件 (*.JPG;*.JPEG;*.BMP;*.GIF;*.PNG)|*.jpg;*.jpeg;*.bmp;*.gif;*.png|所有文件|*.*|".ShowOpen文件 = .FileNameEnd With If CommonDialog1.FileName = "" Then Exit Sub End If/