将相片变成一寸相片保存的程序。可以缩小图片相片照片的大小变成一寸相片。分为三个步骤制作一寸相片批量制作一寸相片一键批量制作一寸相片。一制作一寸相片。(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×1984twipPicture1.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文件 .FileNameEnd WithIf CommonDialog1.FileName ThenExit SubEnd IfIf CommonDialog1.FileName ThenImage1 LoadPicture(文件)End IfEnd Sub(11)编写一寸相片的代码。Private Sub Command2_Click()Picture1.AutoRedraw TruePicture1.PaintPicture Image1.Picture, 0, 0, Picture1.Width, Picture1.HeightEnd Sub(12)编写保存的代码。Private Sub Command3_Click()SavePicture Picture1.Image, App.Path \一寸相片\ 一寸相片_ CommonDialog1.FileTitleEnd Sub二批量制作一寸相片。批量将相片变成一寸相片保存的程序。(13)在form1窗体上添加listbox控件名为List1width属性4000,height属性3000(14)在form1窗体上添加Command4控件caption属性为“批量添加”。(15)在form1窗体上添加Command5控件caption属性为“批量修改”。(16)在程序的目录下添加一个名为“一寸相片”的文件夹。(17)编写“批指添加”的代码。Private Sub Command4_Click()Dim fs As ObjectDim folder As ObjectDim file As ObjectDim folderPath As StringfolderPath App.Path \原文件 修改为你的目录路径Set fs CreateObject(Scripting.FileSystemObject)Set folder fs.GetFolder(folderPath)List1.ClearFor Each file In folder.FilesSelect Case LCase(file.Type)Case jpg 文件, jpeg 文件, png 文件, gif 文件, bmp 文件, tiff 文件List1.AddItem file.NameCase ElseEnd SelectNext fileSet folder NothingSet fs NothingEnd Sub(18)编写“批量修改”的代码。在程序的目录下添加一个文件夹名为“修改”。Private Sub Command5_Click()Dim filename1 As StringDim filename2 As StringDim exname As StringDim folderPath As StringfolderPath App.Path \原文件 修改为你的目录路径For i 0 To List1.ListCount - 1List1.ListIndex ifilename1 App.Path \原文件\ UCase(List1.Text)Image1 LoadPicture(filename1)Picture1.AutoRedraw TruePicture1.PaintPicture Image1.Picture, 0, 0, Picture1.Width, Picture1.HeightSavePicture Picture1.Image, App.Path \一寸相片\ 一寸相片_ UCase(List1.Text)NextEnd Sub三一键制作一寸相片的程序。技巧将前面的控件放在frame控件里frame控件的visible设置为false。那样的话frame控件里面的所有控件会消失。之后剩下一个Command6控件上面写着“批量制作一寸相片”。(19)在form1窗体上添加Command6控件caption属性为“批量制作一寸相片”。(20)编写“批量制作一寸相片”的代码。Private Sub Command3_Click()Call Command4_ClickCall Command5_ClickMsgBox (一寸相片制作成功)End Sub
