《VB图像文件管理导学.docVIP

《VB图像文件管理》导学 ［学习目标］1．体验面向对象程序设计思想，了解DriveListBox、DirListBox、FileListBox等与文件系统相关的控件，掌握事件与驱动。2．在探索实践过程中学会应用程序选择驱动器、选择目录、和访问文件的方法。3、发挥好奇，自主合作，培养增强自信心。重点：难点：置“VisualBasic”) 11 Mid(字符串,起始位置,长度) 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播放器》 Picture Box，Image控件——显示图像 DirveListBox——驱动器列表框控件，显示用户计算机上驱动器盘符，接受用户选择。 DirListBox——目录列表控件，显示当前驱动器下所有目录，接受用户选择。 FileListBox控件——文件列表控件，显示当前目录下所有文件，接受用户选择。 4、* 协调控件 属性设置 Picture1.autosize=True/False 三、VB代码编程核心 Private Sub Form_Load() Drive1.Drive = d: Rem 设置默认路径 End Sub Private Sub Drive1_Change( ) Rem 设置目录显示路径 Dir1.Path = Drive1.Drive End Sub Private Sub Dir1_Change( ) Rem 设置文件显示路径 File1.Path = Dir1.Path End Sub Private Sub File1_Click( ) Rem 选择图像文件时显示图像 Form1.Picture1.Picture = LoadPicture(File1.Path \ File1.FileName) End Sub 按F5运行程序。 程序功能详解：用户运行程序时，在DirveListBox控件改变驱动器设置，就激活控件的Private Sub Drive1_Change( )事件，从而通过语句Dir1.Path = Drive1.Drive，改变DirListBox控件的显示路径为当前选中的目录。 用户通过DirListBox控件，所改变的当前显示目录的设置，会激活控件的Private Sub Dir1_Change( )事件，并且通过语句File1.Path = Dir1.Path，将FileListBox控件的显示，设置为当前选中的目录。 用户在文件列表框选中图像文件，则通过语句Form1.Picture1.Picture = LoadPicture (File1.Path \ 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 If End Sub 五、作业上机与评价 六、拓展提高 1、可在图像控件上方，添加一个文本控件，辅助显示文件名。 2、修改文本控件属性，体验掩码密字效果。《教科P78图》《广东P74类似》 文本框的Multiline属性False/True，控制文本框显示一行还是多行。 文本框的PasswordChar属性，控制用户输入是否隐藏显示。当PasswordChar吃性值为空时，原样显示；当属性值为一个字符（通常用*）时，用保密字符代替输入的字符。 注意：文本框的Multiline属性设置为False，才能隐藏用户输入的内容。