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

用VB6.0 制作电子相册VB程序设计初探平山县回舍中学 郜兵山制作环境Microsoft Visual Basic 6.0。相册功能1、单击“第一张”，可以查看第一张照片。2、单击“下一张”按钮 ，可以查看下一张照片。3、单击“上一张”按钮，可以查看上一张照片。4、单击“最后一张”可以查看最后一张照片。5、单击“放大”按钮，可以将照片放大。6、单击“缩小”按钮，可以将照片缩小。7、单击“最大化”按钮，可以在最大状态下查看照片。9、单击“还原”按钮，可以将照片恢复到原来的大小。10、单击“自动浏览”按钮，可以实现照片的自动浏览。11、单击“退出”按钮，退出电子相册程序运行。功能实现一、素材准备将相册中用到的照片，从第一张到最后一张依次重命名为：p1.jpg、p2.jpg、 p3.jpgp30.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、COMMAND2COMMAND10。1.2、添加定时器控件对象双击工具箱中的定时器控件，在窗体中添加定时器对象TIMER1。1.3、添加图像框控件对象双击工具箱中的Image控件,在窗体中添加图像框控件对象Image1。添加控件对象后的窗体如下图所示。1.4、调整窗体及窗体中各控件对象的大小及位置选中窗体及窗体中的对象，调整其大小和位置，调整后的效果如下图所示。2.设置窗体及探件对象的属性2.1、执行“视图”“属性窗口”命令，打开属性窗口。2.2、依次选中窗体及窗体中的各控件对象，按照下表给出的内容设置窗体及各控件对象的属性。窗体及窗体中各控件对象的属性对象名称属性属性值Form1Name(名称)Form1Caption电子相册1.0ControlBoxFalseCommand1NameCommand1Caption第一张Command2NameCommand2Caption下一张Command3NameCommand3Capption上一张Command4NameCommand4Caption最后一张Command5NameCommand5Caption放大Command6NameCommand6Caption缩小Command7NameCommand7Caption全屏Command8NameCommand8Caption还原Command9NameCommand9Caption自动浏览Command10NameCommand10Caption退出Image1NameImage1BorderStyle1Fixed SingleStrechTrueTimer1NameTimer1Interval2000设置属性后的窗口效果如下图所示。四、添加代码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 & tupianp & i & .jpg)在图像框中加载第一张照片End Sub2.3选择“上一张”命令按钮Command2,为其添加如下程序代码：Private Sub Command2_Click() 为上一张按钮，添加程序代码If i = n Theni = 1Elsei = i + 1End IfImage1.Picture = LoadPicture(App.Path & tupianp & i & .jpg)End Sub2.5选择“最后一张”命令按钮Command4，为其添加如下程序代码：Private Sub Command4_Click()i = nImage1.Picture = LoadPicture(App.Path & tupianp & i & .jpg)End Sub2.6选择“放大”命令按钮Command5，为其添加如下程序代码：Private Sub Command5_Click()Image1.Width = Image1.Width + 100Image1.Height = Image1.Height + 100End Sub2.7选择“缩小”命令按钮Command6为其添加如下程序代码：Private Sub Command6_Click()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，为其添加如下程序代码：Private Sub Command10_Click()EndEnd Sub2.12窗体Form1加载而添加的程序代码如下：Private Sub Form_Load() 调入相片Image1.Picture = LoadPicture(App.Path & tupianp1.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 & tupianp & j & .jpg)End Sub五、运行与调试程序执行“运行”“全编译执行”命令，运行