2.1 电子相册 课件（12张PPT）

电子相册
升级
八年级信息技术 下册
代码设计器
（代码窗口）
工具箱面板
窗体设计器
(可视化窗口)
工程资源管理器
窗口
属性编辑窗口
主菜单
工具栏
工欲善其事，必先利其器
在”视图“中打开各个面板
使用“窗口”菜单中的平铺
一直会提到的几个概念
0
按钮
文本框
标签
计时器
……
窗体
控件
对象
事件
属性
对象名.属性 = 属性值
欣赏电子相册
分析算法
2、单击相应“按钮控件” ，Image控件加载相应图片，lable标题（caption）显示爱豆的丰功伟绩；
1、创建一个图像框（Image）控件、6个CommandButton按钮控件、一个lable控件；
Image控件
Image控件可以显示来自位图、图标及其他格式的图形文件。
1、 picture属性可用于窗体、图片框和图相框等控件的图片加载，可通过属性窗口进行加载。
2、Stretch属性只存在于Image中，用来自动调整图相框中图形内容的大小。（先修改stretch属性的True 值，再加载图片）
True 将自动放大或缩小图像框中的图形使其与图相框大小想适应
False
Image控件
LoadPicture函数是把指定存储位置的图形文件加载到窗体、图片框或图像框的Picture属性中。
使用App.Path必须要先保存工程和窗体文件，并确保工程、窗体文件和图片在同一个文件夹中。
LoadPicture函数
对象名称.Picture=LoadPicture(App.Path & \文件名称.jpg”)
动手实践
1、打开VB
2、设计界面
一个相框控件、六个按钮控件、一个Label
1、设计相册界面
3、更改相应对象的属性名称（对象名、caption、字体等）
1、请将文件接受柜中的素材复制到你的个人文件夹中并重命名为名字+我的爱豆电子相册
由于需要在相框中使用LoadPicture函数加载相应的图片，则需要先保存工程文件和窗体文件，并确保图片和工程文件、窗体文件放在同一个文件夹中。
2、保存工程文件和窗体文件到相应文件夹中。
保存工程和窗体
编写代码
Private Sub chenglong_Click()
Image1.Picture = LoadPicture(App.Path & "\成龙.jpg")
label.Caption = "中国人面向世界舞台的榜样"
End Sub
Private Sub jialing_Click()
Image1.Picture = LoadPicture(App.Path & "\贾玲.jpg")
label.Caption = "世界最高票房女导演"
End Sub
Private Sub tuichu_Click()
End
End Sub
Private Sub yaoming_Click()
Image1.Picture = LoadPicture(App.Path & "\姚明.jpg")
label.Caption = "中国篮球的代言人"
End Sub
Private Sub yuanlongping_Click()
Image1.Picture = LoadPicture(App.Path & "\袁隆平.jpg")
label.Caption = "杂交水稻之父"
End Sub
Private Sub zhongnanshan_Click()
Image1.Picture = LoadPicture(App.Path & "\钟南山.jpg")
label.Caption = "中国的脊梁，最美逆行者"
End Sub
运行和调试代码
保存
先在自己文件夹中新建“我的爱豆”文件夹，并将图片和程序文件保存到此文件夹后，再运行。
谢
谢