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

用VB6.0制作电子相册

—VB程序设计初探

平山县回舍中学郜兵山

制作环境MicrosoftVisualBasic6.0。

相册功能

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

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

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

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

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

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

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

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

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

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

功能实现

一、素材准备

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

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

二、启动VB6.0，翻开窗体设计器

1、执行“开始”→“程序”→“MicrosoftVisualBasic6.0中文版”→“MicrosoftVisualBasic6.0中文版”命令，翻开“VisualBasic6.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—FixedSingle

Strech

True

Timer1

Name

Timer1

Interval

2000

设置属性后的窗口效果如下列图所示。

四、添加代码

1、翻开代码窗口

执行“视图”→“代码窗口”翻开代码窗口，如下列图所示。

2、添加代码

2.1选择“通用”，添加如下所示的程序代码：

通用OptionExplicit

Dimx,y,h,w,i%’定义变量x,y,h,w,i

Constn=30定义常量n为相册中的照片总数

2.2选择“第一张”命令按钮command1添加如下程序代码：

PrivateSubCommand1_Click()’为“第一张”命令按钮添加的程序代码

i=1’变量i表示当前要浏览的照片是第i

Image1.Picture=LoadPicture(App.Path\tupian\pi.jpg)’在图像框中加载第一张照片

EndSub

2.3选择“上一张”命令按钮Command2,为其添加如下程序代码：

PrivateSubCommand2_Click()为上一张按钮，添加程序代码

Ifi=1Then

i=n

Else:i=i-1

EndIf

Image1.Picture=LoadPicture(App.Path