第10章 数据文件

3.设置控件属性
4.编写程序代码
a.代码分析 课堂任务“摇奖程序”程序代码设计较为简单，要求通过 DriveListBox控件、DirListBox控件和FileListBox实现对盘符、 文件夹和文件的选择，最终实现文件的数据的输入，单击 “摇奖”按钮，程序将从数据输入文件中开始抽取摇奖数据， 并不断显示所抽取的摇奖数据，单击“停止”，程序将在 Textbox控件的文本框内显示摇奖结果。程序代码段应包含 摇奖按钮事件、停止按钮事件、窗体加载事件、盘符改变事 件、时间控制事件和目录改变事件
5.归纳与提高 一般情况下，驱动器列表框控件DriveListBox、目录列表 框控件DirListBox与文件列表框控件FileListBox三种控件经常 一起工作。而要使这三个控件协同工作也很简单，用户只要 为驱动器列表框的Change事件建立一个过程，当用户选择新 的驱动器时就会执行这个事件过程，这个过程将改变目录列 表框的路径以符合新选择的驱动器；同时，用户再为目录列 表框的Change事件建立一个过程，当用户选择新的目录时激 发该事件，并改变文件列表框以符合新的目录路径。通过上 述的两个过程，三个控件就可以同步工作了。
‘停止
‘窗体加载 ‘计时器停止
‘盘符的改变事件发生时 ‘更改相应目录wjj的路径
‘产生1到cc间的随机数 ‘text1中显示number(i)的内容
‘更改文件列表wj的路径
5.课后练习：
练习1：
在理解掌握本课课业设计的基础上，独立完成“摇奖程序”。

b.具体代码分析
‘通用声明处定义的变量，在每个过程中都有效 Dim Cc As Integer ‘设置参加摇奖的人数变量cc ‘设置用于保存参加摇奖的各人的资料(比如姓名或号码 )的数组变量 Dim Number(100) As String ‘摇奖按钮事件 Private Sub Command1_Click() FileName = wj.Path & "\" & wj.FileName ‘变量FileName中得到包含输入 数据的文件名 ‘打开文件FileName，文件的内容通过1号输入缓冲区输入 Open FileName For Input As #1 For i = 1 To 100 ‘从1号缓冲区中输入文件中的第i行至变量number(i)中 Line Input #1, Number(i) If EOF(1) Then Exit For ‘若文件结束,则退出循环 Next Close ‘关闭文件 Cc = i ‘参加摇奖的总数为cc Timer1.Enabled = True ‘开始摇奖 End Sub
6.课后练习： 练习1：在理解掌握本课课业设计的基础上，独立完成 “读取与修改文件属性”。 练习2：用VB编写一个“媒体浏览器”程序。具体设计 界面如图 所示。
第35课——文件的输入输出
--制作“摇奖程序”小程序，学习文件的输入输出
1．任务分析 a.本任务需要用到1个Textbox控件、1个Timer控件、1个 DriveListBox控件、1个DirListBox控件、1个FileListBox控 件、、2个CommandButton控件和3个Lable控件。 b.程序设计要求，加载“摇奖程序”，选择摇奖数据文件， 单击“摇奖”按钮，程序将不停的从摇奖数据文件中抽取 摇奖数据并显示在文本框中，直到单击“停止”按钮为止。
b.代码分析 Private Sub Command1_Click() Dim f As Integer f = GetAttr(Dir1.Path & "\" & File1.FileName) If (f And 1) = 1 Then Check1.Value = Checked Else Check1.Value = Unchecked End If If (f And 2) = 2 Then Check2.Value = Checked Else Check2.Value = Unchecked End If If (f And 32) = 32 Then Check3.Value = Checked Else Check3.Value = Unchecked End If End Sub
清 华 版
第34课 文件系统控件DriveListBox、DirListBox 与FileListBox
任务1：修改文件属性，学习文件系统控件 DriveListBox、DirListBox与FileListBox
1．任务分析 a. 本任务需要用到1个Label控件、1个CommandButton 控件和2个TextBox控件； b. 程序设计要求，在text1文本框内输入任意位数的 密码时，单击“开始猜测”按钮，程序将所输入的 密码显示在text2文本框内；
3.设置控件属性
4.编写程序代码
a.程序分析 课堂任务“读取与修改文件属性”程序代码设计编写要 求，通过DriveListBox控件、DirListBox控件和FileListBox控 件，选择该文件夹中的任意一个文件，单击“读取”按钮， 则程序需将显示出该文件的属性(只读、隐藏和存档)，修改 该文件的属性(只读、隐藏和存档)，单击“修改”按钮，则 文件的属性将相应改变。
2.设计程序界面 此程序的界面需要添加1个Frame控件、1个DriveListBox控件、 1个DirListBox控件、1个FileListBox控件、2个CommandButton 控件和3个CheckBox控件，Frame控件把DriveListBox控件， DirListBox控件和FileListBox控件放在一起，3个CheckBox控件 分别设置只读，隐藏和存档复选按钮，CommandButton控件分 别设置“读取”，“修改”按钮。
‘停止按钮事件 Private Sub Command2_Click() Timer1.Enabled = False End Sub Private Sub Form_Load() Timer1.Enabled = False End Sub Private Sub Pan_Change() wjj.Path = Pan.Drive End Sub ‘计时器timer1的时间到时 Private Sub Timer1_Timer() i = Int(Rnd * Cc) + 1 Text1.Text = Number(i) End Sub ’目录wjj改变 Private Sub WJJ_Change() wj.Path = wjj.Path End Sub
2.设计程序界面
此程序的界面需要添加1个Textbox控件、1个Timer控件、1 个DriveListBox控件、1个DirListBox控件、1个FileListBox控 件、2个CommandButton控件和3个Lable控件。通过 DriveListBox控件、DirListBox控件和FileListBox控件有机的 结合选择摇奖数据，实现文件的输入；CommandButton控件 分别设置“摇奖”和“停止”按钮；Lable控件用于标题说明； Textbox控件用于显示摇奖结果。
‘修改按钮的单击事件发生时 Private Sub Command2_Click() Dim f As Integer ‘文件的总体属性值 f = 0 If Check1.Value = Checked Then f = f + 1 ‘只读 If Check2.Value = Checked Then f = f + 2 ‘隐藏 If Check3.Value = Checked Then f = f + 32 ‘存档 SetAttr Dir1.Path & "\" & File1.FileName, f ‘设置文件的属性 End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub ‘目录改变时 ‘文件列表file1的路径为目录dir1的路径 ‘磁盘改变时 ‘目录dir1的路径磁盘drive1的路径