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

去留无意，闲看庭前花开花落；宠辱不惊，漫随天外云卷云舒。——《幽窗小记》

第十三课文件操作控件

教学目标：

1、设计程序，用水平和垂直滚动条分别表示速度和时间。设时间的变化范围是

0-100公里/小时，时间的变化范围是0-50小时，当速度或时间发生变化时，分

别在水平和垂直滚动条边的标签框中显示当时的时间和速度值，并在“距离（公

里）下的标签框中显示相对于该速度和时间的距离值”。

2、用滚动条实现一个简易的调色板程序，用三个滚动条分别表示红、绿、蓝三

色的构成比例，各配有一个标签框加以说明，用文本框的背景色来体现构成的颜

色。

3、显示系统时间。

教学重难点：

教学重点：在窗体上设计一个能按12小时和24小时进行转换的数字时钟。

教学难点：设计一个计时器，能够设置倒计时的时间，并进行倒计时。

教学准备：

多媒体网络教室、教学软件。

教学过程：

导入：在一个应用程序中，对文件的处理是一个比较常用的操作，如打开文

件、保存文件，等等。VisualBasic提供了三个控件对磁盘文件夹与文件进行显

示与操作，它们分别是：DriveListBox（磁盘列表框）控件、DirListBox（文件夹列

表框）控件，以及FileListBox（文件列表框）控件。如图一：

去留无意，闲看庭前花开花落；宠辱不惊，漫随天外云卷云舒。——《幽窗小记》

图一

一、DriveListBox（磁盘列表框）控件：

在工具箱面板上，DriveListBox控件的图标如图二：

图二

在窗口中创建的磁盘列表框可以自动显示电脑上或网络上的所有磁盘驱动器，另

外，还可以通过语法设置运行时显示的驱动器名称，这就要用到Drive属性。

磁盘列表框名称.Drive=Drive（如C:，或者D：，等等）。

Drive属性，它用来设置或返回当前驱动器的名字，但在设计阶段不能使用这个

属性，必须在程序中赋值，如执行上面的的赋值语句后，把当前的驱动器改为“c:

或d:”当用户单击列表框中某一驱动器名时，该驱动器名就成为该列表框的drive

属性值，也就是说,drive属性可以用来设置当前驱动器，也可以接受并返回用户

选定的的驱动器名。

比如，要在窗体启动时把当前磁盘改为F盘，那么：

PrivateSubForm_Load()

去留无意，闲看庭前花开花落；宠辱不惊，漫随天外云卷云舒。——《幽窗小记》

EndSub

图三

例：在窗体上添加一个驱动器列表，一个“退出”命令按钮。当单击驱动器列表框

中的某个驱动器名称时，用消息框显示所选的驱动器。

用鼠标单击工具箱中的驱动器列表框图标，并用鼠标在窗体上拖出一个驱动器列

表框。

驱动器列表框的右端有一个下三角按钮，在程序运行时，单击此按钮可以打开一

个列表，列出当前系统中所能使用的驱动器名字，列表顶部显示当前驱动器的名

字，用户单击列表框中某一驱动器的名字，则顶部立即改为用户所选的驱动器的

名字。

当drive属性值发生改变时，就发生change事件。例如，执行上面的赋值语句

后，就触发drive1_change()事件过程，为了显示所选中的驱动器名，编写下列代

码：

privatesubdrive1_change()

msgbox“选中的驱动器是：”drive1.drive

endsub

二、DirListBox（文件夹或目录列表框）控件：

去留无