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 = 1
Picture1.Width = 1417
Picture1.Height = 1984

End Sub
(10)编写添加图片的代码。
Private Sub Command1_Click()
Dim 文件 As String
With CommonDialog1
.FileName = ""
.Filter = "文件 (*.JPG;*.JPEG;*.BMP;*.GIF;*.PNG)|*.jpg;*.jpeg;*.bmp;*.gif;*.png|所有文件|*.*|"
.ShowOpen