- 1、本文档共39页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
08-数据的文件
当一个变量只有几种可能的值时,可以定义为枚举类型。即将变量的值一一 列举出来,变量的值只限于列举出来的值。格式为: [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:设置为当前驱动器 ?目录列表框 用
您可能关注的文档
- !微机原理讲的义(第15章总线技术).ppt
- !微机原理讲义(第5章计算机和外设的数据传输W的6).ppt
- ((人教的版))[[初三物理课件]]2008年初三物理《电学》复习ppt课件.ppt
- (TSG2011)防爆电梯年度自行的检查报告.doc
- (上下标正确-可直接打印)高中化学物质的状态和颜色·常见物质的颜色、俗名、用途总汇.doc
- (教育科学出版社)六的年级下册科学教案.doc
- (模拟)南疆四地州乡村教师教学信息的化应用培训考试试题及答案.docx
- (推的荐)压力表校验课件.ppt
- (江苏金的陵中学物理名师工作室)基于《力的分解》教学的评课要点——朱建廉(共26张PPT).ppt
- (的OK)第11章 文件.ppt
- 教科版(2017秋)科学二年级上册2.6 做一顶帽子 教学设计.docx
- 河北高频考点专训四 质量守恒定律的应用教学设计---2024-2025学年九年级化学人教版(2024)上册.docx
- 大单元教学【核心素养目标】6.3 24时计时法教学设计 人教版三年级下册.docx
- 河南省商城县李集中学2023-2024学年下学期九年级历史中考模拟八(讲评教学设计).docx
- 第18章 第25课时 正方形的性质2023-2024学年八年级下册数学课时分层作业教学设计( 人教版).docx
- Module 8 模块测试 教学设计 2024-2025学年英语外研版八年级上册.docx
- 2024-2025学年小学数学五年级下册浙教版教学设计合集.docx
- 2024-2025学年小学劳动四年级下册人民版《劳动》(2022)教学设计合集.docx
- 2024-2025学年小学数学三年级上册冀教版(2024)教学设计合集.docx
- 2024-2025学年高中生物学必修1《分子与细胞》人教版教学设计合集.docx
最近下载
- 初中大队委竞选演讲稿PPT.pptx
- (成都七中)四川省成都市七中2023-2024学年高二10月月考语文试题(原卷版).docx VIP
- 2024NICU患儿压力性损伤风险评估与预防指南.pptx
- 期间费用与营业收入弹性系数异常预警.pdf VIP
- 客流数据分析在轨道交通网络化运营中应用.doc
- 软件体系结构描述语言 C2培训资料.ppt
- 汉族民歌《澧水船夫号子》欣赏 课件-2023-2024学年高中音乐人音版(2019) 必修 音乐鉴赏.pptx VIP
- 反假上机考试必背题库(含答案).docx VIP
- 标准图集-12G614-1 砌体填充墙结构构造.pdf
- 小学劳动教育《设计制作公益广告牌》教学设计、说课稿.doc
文档评论(0)