08-数据文件解读.ppt

当一个变量只有几种可能的值时，可以定义为枚举类型。即将变量的值一一 列举出来，变量的值只限于列举出来的值。格式为： [Public|Private] Enum 枚举类型名 成员名1 [=常数表达式]…… End Enum 说明：常数表达式可以省略，其值是Long型；如果将小数赋值给常数，则取 整为最接近的长整数；默认情况下，枚举中的第一个常数被初始化为0，其它数依 次增1；可以用小于0的常数代表出错条件。例如： Public Enum workdays saturday sunday monday tuesday wednesday thursday Friday invalid=-1 End Enum ⑤ “添加”命令按钮Command2的Click事件代码 Private Sub Command2_Click() Dim lastrec As Integer With da .xh = Text1(0).Text .xm = Text1(1).Text .yw = Val(Text1(2).Text) .wy = Val(Text1(3).Text) .sx = Val(Text1(4).Text) End With Open .\xsda2.dat For Random As #1 Len = Len(da) lastrec = LOF(1) / Len(da) : Put #1, lastrec + 1, da Close #1 : Call Form_Load : Text1(0).SetFocus End Sub 随机文件 ⑥ “删除”命令按钮Command3的Click事件代码 Private Sub Command3_Click() Dim lastrec As Integer ：recnum = List1.ListIndex + 1 Open .\rec.tem For Random As #1 Len = Len(da) Open .\xsda2.dat For Random As #2 Len = Len(da) lastrec = LOF(2) / Len(da) For n = 1 To lastrec If n recnum Then Get #2, n, da ：Put #1, , da Else Get #2, n, da With da Text1(0).Text = .xh ： Text1(1).Text = .xm ： Text1(2).Text = .yw Text1(3).Text = .wy ：Text1(4).Text = .sx End With End If Next Close #1 ：Close #2 ：Kill .\xsda2.dat Name .\rec.tem As .\xsda2.dat Call Form_Load ：Text1(0).SetFocus End Sub 随机文件 文件系统控件 文件系统控件的作用是显示出关于驱动器、目录和文件的信息，并从中进行选择以便执行进一步操作。 通过使用DriveListBox（驱动器列表框）、DirListBox(目录列表框）和FileListBox（文件列表框）三种控件的组合，可以创建自定义文件系统对话框。 ?驱动器列表框 提供一个下拉式驱动器清单，显示当前系统中所有有效的驱动器。 ?Drive属性（只能通过程序代码设置） 示例：驱动器列表框名称. Drive[=驱动器名] ?ChDrive语句（可将指定的驱动器设为当前驱动器） 示例：ChDrive Drive1.Drive ‘将用户在列表框中选择的驱动器设置为当前驱动器 ChDrive “D” ‘将D：设置为当前驱动器 ?目录列表框 用