用VB6.0制作电子相册

用VB6.0制作电子相册—VB程序设计初探平山县回舍中学郜兵山制作环境Microsoft Visual Basic6.0。

相册功能1、单击“第一张”，可以查看第一张照片。

2、单击“下一张”按钮，可以查看下一张照片。

3、单击“上一张”按钮，可以查看上一张照片。

4、单击“最后一张”可以查看最后一张照片。

5、单击“放大”按钮，可以将照片放大。

6、单击“缩小”按钮，可以将照片缩小。

7、单击“最大化”按钮，可以在最大状态下查看照片。

9、单击“还原”按钮，可以将照片恢复到原来的大小。

10、单击“自动浏览”按钮，可以实现照片的自动浏览。

11、单击“退出”按钮，退出电子相册程序运行。

功能实现一、素材准备将相册中用到的照片，从第一张到最后一张依次重命名为：p1.jpg、p2.jpg、p3.jpg……p30.jpg，并将这些照片放在tupian文件夹中。

温馨提示：在准素材时，相册中的照片数量根据需要而定。

二、启动VB6.0，打开窗体设计器1、执行“开始”→“程序”→“Microsoft Visual Basic6.0中文版”→“Microsoft Visual Basic6.0中文版”命令，打开“Visual Basic6.0”程序,同时打开“新建工程”对话框,如下图所示。

2、在“新建工程”对话框中，选择“标准.EXE”后，单击“打开”按钮，打开窗体设计器，如下图所示。

三、创建用户界面1、向窗体中添加控件1.1、添加十个命令按钮十次双击具箱中的命令按钮，在窗体中添加十个命令按钮COMMAND1、COMMAND2…COMMAND10。

1.2、添加定时器控件对象双击工具箱中的定时器控件，在窗体中添加定时器对象TIMER1。

1.3、添加图像框控件对象双击工具箱中的Image控件,在窗体中添加图像框控件对象Image1。

添加控件对象后的窗体如下图所示。

1.4、调整窗体及窗体中各控件对象的大小及位置选中窗体及窗体中的对象，调整其大小和位置，调整后的效果如下图所示。

2.设置窗体及探件对象的属性2.1、执行“视图”→“属性窗口”命令，打开属性窗口。

2.2、依次选中窗体及窗体中的各控件对象，按照下表给出的内容设置窗体及各控件对象的属性。

窗体及窗体中各控件对象的属性对象名称属性属性值Form1Name(名称)Form1 Caption电子相册1.0 ControlBox FalseCommand1Name Command1 Caption第一张Command2Name Command2 Caption下一张Command3Name Command3 Capption上一张Command4Name Command4 Caption最后一张Command5Name Command5 Caption放大Command6Name Command6 Caption缩小Command7Name Command7 Caption全屏Command8Name Command8 Caption还原Command9Name Command9 Caption自动浏览Command10Name Command10 Caption退出Image1Name Image1 BorderStyle1—FixedSingleStrech TrueTimer1Name Timer1Interval2000设置属性后的窗口效果如下图所示。

四、添加代码1、打开代码窗口执行“视图”→“代码窗口”打开代码窗口，如下图所示。

2、添加代码2.1选择“通用”，添加如下所示的程序代码：'通用Option ExplicitDim x,y,h,w,i%’定义变量x,y,h,w,iConst n=30'定义常量n为相册中的照片总数2.2选择“第一张”命令按钮command1添加如下程序代码：Private Sub Command1_Click()’为“第一张”命令按钮添加的程序代码i=1’变量i表示当前要浏览的照片是第i张Image1.Picture=LoadPicture(App.Path&"\tupian\p"&i&".jpg")’在图像框中加载第一张照片End Sub2.3选择“上一张”命令按钮Command2,为其添加如下程序代码：Private Sub Command2_Click()'为"上一张"按钮，添加程序代码If i<=1Theni=nElse:i=i-1End IfImage1.Picture=LoadPicture(App.Path&"\tupian\p"&i&".jpg")End Sub2.4选择“下一张”命令按钮Command3，为其添加如下程序代码:Private Sub Command3_Click()If i>=n Theni=1Elsei=i+1End IfImage1.Picture=LoadPicture(App.Path&"\tupian\p"&i&".jpg")End Sub2.5选择“最后一张”命令按钮Command4，为其添加如下程序代码：Private Sub Command4_Click()i=nImage1.Picture=LoadPicture(App.Path&"\tupian\p"&i&".jpg")End Sub2.6选择“放大”命令按钮Command5，为其添加如下程序代码：Private Sub Command5_Click()Image1.Width=Image1.Width+100Image1.Height=Image1.Height+100End Sub2.7选择“缩小”命令按钮Command6为其添加如下程序代码：Image1.Width=Image1.Width-100Image1.Height=Image1.Height-100End Sub2.8选择“还原”命令按钮Command7，为其添加如下程序代码：Private Sub Command7_Click()Image1.Top=0Image1.Left=0Image1.Width=Form1.WidthImage1.Height=Form1.HeightEnd Sub2.9选择“全屏”命令按钮Command8，为其添加如下程序代码：Private Sub Command8_Click()With Image1.Left=xImage1.Top=yImage1.Height=hImage1.Width=wEnd WithEnd Sub2.10选择“自动浏览”命令按钮Command9，为其添加如下程序代码：Private Sub Command9_Click()If Command9.Caption="自动浏览"ThenCommand9.Caption="自动浏览停"Timer1=TrueElseCommand9.Caption="自动浏览"Timer1=FalseEnd IfEnd Sub2.11选择“退出”命令按钮Command10，为其添加如下程序代码：EndEnd Sub2.12窗体Form1加载而添加的程序代码如下：Private Sub Form_Load()'调入相片Image1.Picture=LoadPicture(App.Path&"\tupian\p1.jpg")With Image1'记录相片初始位置x=.Lefty=.Toph=.Heightw=.WidthEnd WithTimer1.Enabled=FalseTimer1.Interval=2000'设置计时器初值Image1.Stretch=True'调整图像以适应控件大小End Sub2.13为定时器Timer1所添加的程序代码如下：Private Sub Timer1_Timer()Static j%j=j Mod n+1Image1.Picture=LoadPicture(App.Path&"\tupian\p"&j&".jpg")End Sub五、运行与调试程序执行“运行”→“全编译执行”命令，运行程序，查看效果如下图所示。

六、生成可执行程序执行“文件”→“生成电子相册.exe”命令,打开“生成工程”对话框，如下图所示。

在此对话框中，选择保存的位置，并输入要保存的可执行文件的名称后，单击保存按钮，即可生成可执行文件“电子相册.exe”,将tupian文件夹与可执行文件放在同一个文件夹中,双击可执行文件“电子相册.exe”，即可运行程序。