(
课件网) 第7课 使用图片框控件 学习内容 1、图片框控件的使用。 2、loadpicture（）函数的使用。 一、设计窗体 二、设置对象属性 三、编写程序代码 四、测试并保存程序 操作步骤： 注意：如果有误，返回到设计状态，继续编辑修改。 函数是一些可以由程序调用的程序代码。 VB中有两类函数：用户定义的函数和内部函数。 LoadPicture()函数的 一般格式是：LoadPicture(“图像文件名”) “图像文件名”：应包含图像文件所在的路径。 知识点： PictureBox 和 Loadpictur（）函数 在工具箱中的PictureBox是图片框控件按钮.图片框控件主要用于“.bmp,.ico,.jpg,.gif,.wm等多种格式的图像文件。 可以通过Loadpictur（）函数在该图片框里显示出指定的图片。。 设计一个引爆地雷的程序。运行这个程序时，单击“点火”按钮，会显示一个地雷引信被点燃的图片；单击“爆炸”按钮，会显示一个地雷爆炸的图片。 课堂作业1 请翻到第62页 这个程序有哪些控件？ 一、设计窗体 对象 名称 属性 属性值 Form1 Picture1 Option1 Option2 Command1 Form1 Picture1 Opt1 Opt2 Cmdexit caption caption caption caption caption 地雷引爆 Picture1 点火 爆炸 退出 二、设置对象属性 编写代码之前，我们应该知道 Loadpicture（）函数的用法。在VB程序中，可以通过用于Loadpicture（）函数在图片框里显示指定的图片。 三、编写程序代码 第一步：执行“视图→代码”命令，打开“代码”窗口。 第二步：在对象框中选定option1，在事件框中会出现默认的事件名Click，然后为option1 -Click（）过程编写代码。 Private Sub Opt1_Click() Picture1.Picture = LoadPicture("d:\vbImage\点火.jpg") End Sub Private Sub Opt2_Click() Picture1.Picture = LoadPicture("d:\vbImage\爆炸.jpg") End Sub Private Sub Opt2_Click() End End Sub 文件夹名用汉字行不行？ 文件名呢 三、编写程序代码 请同学们注意看下面的代码，下划线的代码表示什么？ Picture1.Picture = LoadPicture("d:\vbImage\1.jpg") 答： LoadPicture 函数可以调用图像1文件，使图片框中显示出来。 四、测试并保存程序 单击”运行”按钮，测试这个程序。单击各个选项按钮，看是否能在图片框中显示指定的图片。如果有错误，单击工具栏中的按钮，返回设计状态，继续编辑修改。 程序无误后，保存文件并把它生成可执行程序。 四、测试并保存程序 课堂作业2 第一：设计窗体界面 第二：设置属性窗口 对 象 属 性 属 性 值 Form1 Caption 公园四景 Border Style 1-Fixed Single picture Box （名称） Picgarden Option1 （名称） Opt1 Caption 草原八骏 Option2 （名称） Opt2 Caption 水关心意 Option3 （名称） Opt3 Caption 大都庆典 Option4 （名称） Opt4 Caption 鞍缰盛世 Private sub Opt1-Click（） picgarden.picture＝Loadpicture （〝d:﹨vbtupian﹨1.jpg〞） End sub 开始一个过程 结束 第三：编写代码 LoadPicture 函数调用图像1文件 Private sub Opt2 -Click（） picgarden.picture＝Loadpicture （〝d:﹨vbtupian﹨ .jpg〞） End sub 开始一个过程 结束 2 LoadPicture 函数调用图像2文件 第四：测试并保存程序 课堂作业3 编制明星照片.frm 对 象 属 性 属 性 值 Form1 Caption 明星照片 pictureBox （名称） picture1 Option1 （名称） Option1 Caption maykol Option2 （名称） Option2 Caption arken Option3 （名称） Option3 Caption C罗 Option4 （名称） Option4 Caption Chenglong 二、设置对象属性 三、编写程序代码 编制maykol、arken图片代码 Private sub Option1-Click（） picture1.picture＝Loadpictured:﹨tupian ... ...
