冀教版 八年级信息技术 第十三课《文件操作控件》教学设计

第十三课 文件操作控件 教学目标： 1、设计程序，用水平和垂直滚动条分别表示速度和时间。设时间的变化范围是 0-100 公里/小时，时间的变化范围是 0-50 小时，当速度或时间发生变化时，分别在水平和垂直滚动条边的标签框中显示当时的时间和速度值，并在“距离（公里）下的标签框中显示相对于该速度和时间的距离值”。 2、用滚动条实现一个简易的调色板程序，用三个滚动条分别表示红、绿、蓝三色的构成比例，各配有一个标签框加以说明，用文本框的背景色来体现构成的颜色。 3、显示系统时间。教学重难点： 教学重点：在窗体上设计一个能按 12 小时和 24 小时进行转换的数字时钟。教学难点：设计一个计时器，能够设置倒计时的时间，并进行倒计时。 教学准备： 多媒体网络教室、教学软件。 教学过程： 导入：在一个应用程序中，对文件的处理是一个比较常用的操作，如打开文件、保存文件，等等。Visual Basic 提供了三个控件对磁盘文件夹与文件进行显示与操作，它们分别是：DriveListBox（磁盘列表框）控件、DirListBox（文件夹列表框）控件，以及 FileListBox（文件列表框）控件。如图一： 图一 一、DriveListBox（磁盘列表框）控件： 在工具箱面板上，DriveListBox 控件的图标如图二： 1143000194413 图二 在窗口中创建的磁盘列表框可以自动显示电脑上或网络上的所有磁盘驱动器，另外，还可以通过语法设置运行时显示的驱动器名称，这就要用到 Drive 属性。 磁盘列表框名称.Drive = Drive（如 C: ，或者 D：，等等）。 Drive 属性，它用来设置或返回当前驱动器的名字，但在设计阶段不能使用这个属性，必须在程序中赋值，如执行上面的的赋值语句后，把当前的驱动器改为“c: 或 d:”当用户单击列表框中某一驱动器名时，该驱动器名就成为该列表框的 drive 属性值，也就是说,drive 属性可以用来设置当前驱动器，也可以接受并返回用户选定的的驱动器名。 比如，要在窗体启动时把当前磁盘改为 F 盘，那么： Private Sub Form_Load() Drive1.Drive = "F:" End Sub 1143000106864 图三 例：在窗体上添加一个驱动器列表，一个“退出”命令按钮。当单击驱动器列表框中的某个驱动器名称时，用消息框显示所选的驱动器。 用鼠标单击工具箱中的驱动器列表框图标，并用鼠标在窗体上拖出一个驱动器列表框。 驱动器列表框的右端有一个下三角按钮，在程序运行时，单击此按钮可以打开一个列表，列出当前系统中所能使用的驱动器名字，列表顶部显示当前驱动器的名字，用户单击列表框中某一驱动器的名字，则顶部立即改为用户所选的驱动器的名字。 当 drive 属性值发生改变时，就发生 change 事件。例如，执行上面的赋值语句后，就触发 drive1_change()事件过程，为了显示所选中的驱动器名，编写下列代码： private sub drive1_change() msgbox “选中的驱动器是： ”& drive1.drive end sub 二、DirListBox（文件夹或目录列表框）控件： 在工具箱面板上，DirListBox 控件的图标如图四： 1143000255333 图四 文件夹列表框控件可以显示与设置文件夹的路径，当用户在窗口中创建DirListBox 控件时，双击其中的文件夹，不需进行编程就能自动显示下一级的文件夹，如图五： 1143000144065 图五 本控件的主要属性是 Path 属性，用来返回或设置当前文件夹的路径，只能在程序运行中使用，其语法是： 文件夹列表框名称.Path = 具体的路径 比如，我们要在窗体启动时把默认显示的文件夹改为 D:\Mytool\ ，程序可以这样写： Private Sub Form_Load() Dir1.Path = "D:\Mytool\" End Sub 例 2．在上例的基础上，添加一个目录列表框 dir1，当选中某个驱动器后，该驱动器的目录显示在目录列表框中。如果选中某个目录，用消息框显示被选中的目录名。 从例 2 中可以看到顶部 ... ...