批量改变图片大小的程序。可以缩小图片，相片，照片的大小。分为三个步骤，制作一张图片，批量制作图片，一键批量制作图片。 一，制作一张图片。 (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 = 1 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 文件 = .FileName End With
If CommonDialog1.FileName = \”\” Then Exit Sub End If</
