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 运行和调试代码 保存 先在自己文件夹中新建“我的爱豆”文件夹，并将图片和程序文件保存到此文件夹后，再运行。 谢 谢 ... ...