《VB图像文件管理》导学

1、VB图像文件管理导学学习目标1体验面向对象程序设计思想，了解DriveListBox、DirListBox、FileListBox等与文件系统相关的控件，掌握事件与驱动。2在探索实践过程中学会应用程序选择驱动器、选择目录、和访问文件的方法。3、发挥学生好奇探究潜能，构建自主合作模式，培养发散思维能力，增强可视化编程自信心。学习任务VB电子相册制作学习重点难点1重点：事件与驱动。2难点：控件协调设置与编程控制。教学过程一、情景任务二、知识关联1、面向对象程序设计：“所见即所得”，目标在于编编符合人们在真实世界中的思维模式的软件。最突出的三大特征：教科P81广东P70封装黑匣；（基础）继承子类自动

2、拥有；（关键）多态模块间低耦合。（补充）有关概念：对象属性方法事件与驱动类2、VB常用字符串函数教科P31广东P29、P117函数名举例结果Len(字符串)Len(“VisualBasic”)11Mid(字符串,起始位置,长度)Mid(“Basic”,4,1)“i”Right(字符串,右起长度)Right(“Basic”,2)“ic”Left(字符串,左起长度)Left(“Basic”,2)“Ba”补充InStr(起点, 字符串,子串)InStr( i, words, "黛玉")True 3、图像控件：教科P108、P111电子相册广东P77、P166VCD播放器 Pict

3、ure Box，Image控件显示图像 DirveListBox驱动器列表框控件，显示用户计算机上驱动器盘符，接受用户选择。 DirListBox目录列表控件，显示当前驱动器下所有目录，接受用户选择。 FileListBox控件文件列表控件，显示当前目录下所有文件，接受用户选择。4、* 协调控件 属性设置 Picture1.autosize=True/False三、VB代码编程核心Private Sub Form_Load()Drive1.Drive = "d:"Rem 设置默认路径End SubPrivate Sub Drive1_Change( ) Rem 设置目录显示

4、路径Dir1.Path = Drive1.DriveEnd SubPrivate Sub Dir1_Change( )Rem 设置文件显示路径File1.Path = Dir1.PathEnd SubPrivate Sub File1_Click( ) Rem 选择图像文件时显示图像Form1.Picture1.Picture = LoadPicture(File1.Path & "" & File1.FileName)End Sub 按F5运行程序。程序功能详解：用户运行程序时，在DirveListBox控件改变驱动器设置，就激活控件的Private Su

5、b Drive1_Change( )事件，从而通过语句Dir1.Path = Drive1.Drive，改变DirListBox控件的显示路径为当前选中的目录。 用户通过DirListBox控件，所改变的当前显示目录的设置，会激活控件的Private Sub Dir1_Change( )事件，并且通过语句File1.Path = Dir1.Path，将FileListBox控件的显示，设置为当前选中的目录。 用户在文件列表框选中图像文件，则通过语句Form1.Picture1.Picture = LoadPicture (File1.Path & "" &

6、File1.FileName)，显示对应的图像文件。 注：如果选择文件时，点击了非图像文件，此时系统报告运行错误，程序终止四、讨论程序运行出错的控制方法。探究：为增强程序的实用性，需要避免出错，补充错误处理代码。分析出错原因，对脆弱处进行补充代码设计。参考修改Private Sub File1_Click( ) temp = LCase(Right$(File1.FileName, 3) If temp = "jpg" Or temp = "gif" Or temp = "bmp" Then Form1.Picture1.Picture = LoadPicture(File1.Path & "" & File1.FileName) End IfEnd Sub五、作业上机与评价六、拓展提高 1、可在图像控件上方，添加一个文本控件，辅助显示文件名。2、修改文本控件属性，体验掩码密字效果。教科P78图广东P74类似文本框的Multiline属性False/True，控制文本框显示一行还是多行。 文本框的PasswordChar属性，控