visual basic 6.0之批量改变图片大小(一键批量制作一寸相片)

批量改变图片大小,将相片变成一寸相片保存的程序。可以缩小图片，相片，照片的大小，变成一寸相片。分为三个步骤，制作一寸相片，批量制作一寸相片，一键批量制作一寸相片。一，制作一寸相片。(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()Label1.Caption = "1寸相片（标准2.5cm×3.5cm）约等于1417twip×1984twip"Picture1.ScaleMode = 1Picture1.Width = 1417Picture1.Height = 1984End Sub(10)编写添加图片的代码。Private Sub Command1_Click()Dim 文件 As StringWith CommonDialog1.FileName = "".Filter = "文件 (*.JPG;*.JPEG;*.BMP;*.GIF;*.PNG)|*.jpg;*.jpeg;*.bmp;*.gif;*.png|所有文件|*.*|".ShowOpen