用VB6.0制作电子相册.pdf

《用VB6.0制作电子相册.pdf》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、用VB6.0制作电子相册—VB程序设计初探平山县回舍中学郜兵山制作环境MicrosoftVisualBasic6.0。相册功能1、单击“第一张”，可以查看第一张照片。2、单击“下一张”按钮，可以查看下一张照片。3、单击“上一张”按钮，可以查看上一张照片。4、单击“最后一张”可以查看最后一张照片。5、单击“放大”按钮，可以将照片放大。6、单击“缩小”按钮，可以将照片缩小。7、单击“最大化”按钮，可以在最大状态下查看照片。9、单击“还原”按钮，可以将照片恢复到原来的大小。10、单击“自动浏览”按钮，可以实现照片的自动浏览。11、单击“退出”按钮，退出电子相册程序运行。功能

2、实现一、素材准备将相册中用到的照片，从第一张到最后一张依次重命名为：p1.jpg、p2.jpg、p3.jpg……p30.jpg，并将这些照片放在tupian文件夹中。温馨提示：在准素材时，相册中的照片数量根据需要而定。二、启动VB6.0，打开窗体设计器1、执行“开始”→“程序”→“MicrosoftVisualBasic6.0中文版”→“MicrosoftVisualBasic6.0中文版”命令，打开“VisualBasic6.0”程序,同时打开“新建工程”对话框,如下图所示。12、在“新建工程”对话框中，选择“标准.EXE”后，单击“打开”按钮，打开窗体设计器，如下

3、图所示。三、创建用户界面1、向窗体中添加控件1.1、添加十个命令按钮十次双击具箱中的命令按钮，在窗体中添加十个命令按钮COMMAND1、COMMAND2…COMMAND10。1.2、添加定时器控件对象双击工具箱中的定时器控件，在窗体中添加定时器对象TIMER1。1.3、添加图像框控件对象双击工具箱中的Image控件,在窗体中添加图像框控件对象Image1。添加控件对象后的窗体如下图所示。1.4、调整窗体及窗体中各控件对象的大小及位置选中窗体及窗体中的对象，调整其大小和位置，调整后的效果如下图所示。22.设置窗体及探件对象的属性2.1、执行“视图”→“属性窗口”命令，打

4、开属性窗口。2.2、依次选中窗体及窗体中的各控件对象，按照下表给出的内容设置窗体及各控件对象的属性。窗体及窗体中各控件对象的属性对象名称属性属性值Name(名称)Form1Form1Caption电子相册1.0ControlBoxFalseNameCommand1Command1Caption第一张NameCommand2Command2Caption下一张NameCommand3Command3Capption上一张NameCommand4Command4Caption最后一张NameCommand5Command5Caption放大NameCommand6Comm

5、and6Caption缩小NameCommand7Command7Caption全屏NameCommand8Command8Caption还原NameCommand9Command9Caption自动浏览NameCommand10Command10Caption退出3NameImage11—FixedImage1BorderStyleSingleStrechTrueNameTimer1Timer1Interval2000设置属性后的窗口效果如下图所示。四、添加代码1、打开代码窗口执行“视图”→“代码窗口”打开代码窗口，如下图所示。2、添加代码2.1选择“通用”，添加如

6、下所示的程序代码：'通用OptionExplicitDimx,y,h,w,i%’定义变量x,y,h,w,iConstn=30'定义常量n为相册中的照片总数2.2选择“第一张”命令按钮command1添加如下程序代码：PrivateSubCommand1_Click()’为“第一张”命令按钮添加的程序代码i=1’变量i表示当前要浏览的照片是第i张Image1.Picture=LoadPicture(App.Path&"tupianp"&i&".jpg")’在图像框中加载第一4张照片EndSub2.3选择“上一张”命令按钮Command2,为其添加如下程序代码：Pri

7、vateSubCommand2_Click()'为"上一张"按钮，添加程序代码Ifi<=1Theni=nElse:i=i-1EndIfImage1.Picture=LoadPicture(App.Path&"tupianp"&i&".jpg")EndSub2.4选择“下一张”命令按钮Command3，为其添加如下程序代码:PrivateSubCommand3_Click()Ifi>=nTheni=1Elsei=i+1EndIfImage1.Picture=LoadPicture(App.Path&"tupianp"&i&".jpg")EndS