用VB60制作电子相册.docVIP

用VB6.0 制作电子相册 —VB程序设计初探 平山县回舍中学 郜兵山 制作环境Microsoft Visual Basic 6.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 Basic 6.0中文版”→“ Microsoft Visual Basic 6.0中文版”命令，打开“Visual Basic 6.0”程序,同时打开“新建工程”对话框,如下图所示。 2、在“新建工程”对话框中，选择“标准.EXE”后，单击“打开”按钮，打开窗体设计器，如下图所示。 三、创建用户界面 1、向窗体中添加控件 1.1、添加十个命令按钮 十次双击具箱中的命令按钮，在窗体中添加十个命令按钮COMMAND1、COMMAND2…COMMAND10。 1.2、添加定时器控件对象 双击工具箱中的定时器控件，在窗体中添加定时器对象TIMER1。 1.3、添加图像框控件对象 双击工具箱中的Image控件,在窗体中添加图像框控件对象Image1。添加控件对象后的窗体如下图所示。 1.4、调整窗体及窗体中各控件对象的大小及位置 选中窗体及窗体中的对象，调整其大小和位置，调整后的效果如下图所示。 2.设置窗体及探件对象的属性 2.1、执行“视图”→“属性窗口”命令，打开属性窗口。 2.2、依次选中窗体及窗体中的各控件对象，按照下表给出的内容设置窗体及各控件对象的属性。 窗体及窗体中各控件对象的属性 对象名称 属性 属性值 Form1 Name(名称) Form1 Caption 电子相册1.0 ControlBox False Command1 Name Command1 Caption 第一张 Command2 Name Command2 Caption 下一张 Command3 Name Command3 Capption 上一张 Command4 Name Command4 Caption 最后一张 Command5 Name Command5 Caption 放大 Command6 Name Command6 Caption 缩小 Command7 Name Command7 Caption 全屏 Command8 Name Command8 Caption 还原 Command9 Name Command9 Caption 自动浏览 Command10 Name Command10 Caption 退出 Image1 Name Image1 BorderStyle 1—Fixed Single Strech True Timer1 Name Timer1 Interval 2000 设置属性后的窗口效果如下图所示。 四、添加代码 1、打开代码窗口 执行“视图”→“代码窗口”打开代码窗口，如下图所示。 2、添加代码 2.1选择“通用”，添加如下所示的程序代码： 通用 Option Explicit Dim x, y, h, w, i%’定义变量x,y,h,w,i Const n = 30 定义常量n为相册中的照片总数 2.2选择“第一张”命令按钮command1添加如下程序代码： Private Sub Command1_Click()’为“第一张”命令按钮添加的程序代码 i = 1’变量i表示当前要浏览的照片是第i张 Image1.Picture = LoadPicture(App.Path \tupian\p i .jpg)’在图像框中加载第一张照片 End Sub 2.3选择“上一张”命令按钮Command2,为其添加如下程序代码： Private Sub Command2_Click() 为上一张按钮，添加程序代码 If i = 1 Then i = n Else: i