- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
11 If countFile = 0 Then 12 statusBar1.Panels(0).Text = 13 statusBar1.Panels(1).Text = _ 14 搜索完毕,指定范围内没有找到指定的文件或文件夹 15 Else 16 statusBar1.Panels(0).Text = 17 statusBar1.Panels(1).Text = 共找到 + countFile.ToString() + 个文件 18 End If 19 ProgressBar1.Value = 0 20 End Sub 3.编写自定义过程findFiles的程序代码 自定义过程findFiles主要实现搜索文件夹或文件,且在状态栏中显示搜索路径,在ProgressBar1控件中显示搜索进程,在listViewList控件中显示搜索结果。 4.编写自定义方法addListViewItem的程序代码 自定义方法addListViewItem的功能是将搜索到的文件夹或文件在listViewList控件中显示,且控制不同的对象,使其显示不同的图标。其程序代码如表7-21所示。 表7-21 自定义过程addListViewItem的程序代码 序 号 程 序 代 码 01 Private Sub addListViewItem(ByVal file() As String, ByVal dir As Boolean) 02 Dim lvItem As ListViewItem 03 lvItem = New ListViewItem(file) 04 If dir = True Then 05 lvItem.ImageIndex = 5 06 Else 07 If file(2).Substring(file(2).IndexOf(.) + 1).ToUpper = TXT Then 08 lvItem.ImageIndex = 12 09 Else 10 lvItem.ImageIndex = 7 11 End If 12 End If 13 listViewList.Items.Add(lvItem) 14 listViewList.Update() 15 End Sub 5.编写与搜索相关的其他事件过程的程序代码 控件DriveListBox1的SelectedIndexChanged事件过程的程序代码如下所示。 DirListBox1.Path = DriveListBox1.Drive 控件DirListBox1的SelectedIndexChanged事件过程的程序代码如下所示。 flagChangeDir = True 按钮btnStop的Click事件过程的程序代码如下所示。 flagSearchStop = True ProgressBar1.Value = 0 按钮btnCloseLeft的Click事件过程的程序代码如下所示。 panelLeft.Hide() tvFileViewer.Hide() 7.5.6 主要菜单的功能实现与编码 1.编写菜单项menuItemOpen的Click事件过程的程序代码 2.编写“新建”【文件夹】菜单项menuItemNewFolder的Click事件过程的程序代码 3.编写自定义过程checkFileExist的程序代码 4.编写【新建文本文档】菜单项menuItemNew Text的Click事件过程的程序代码 5.编写【查看】菜单中的【工具栏】菜单项menuItemToolbar的Click事件过程的程序代码 6.编写【查看】菜单中的【详细信息】菜单项menuItemParticularInfo的Click事件过程的程序代码 7.编写【全部选定】菜单项menuItemSelectAll的Click事件过程的程序代码 该程序代码如表7-28所示。 表7-28 【全部选定】菜单项menuItemSelectAll的Click事件过程的程序代码 序 号 程 序 代 码 01 02 03 04 05 Dim listViewItem1 As ListViewItem For Each listViewItem1 In listViewList.Items listViewItem1.Selected() = T
您可能关注的文档
- 数据库原理与应用课件作者陆慧娟主编吴达胜刘建平黄长城副主编第2章节关系模型.ppt
- 数据库原理与应用课件作者陆慧娟主编吴达胜刘建平黄长城副主编第4章节关系数据库理论.ppt
- 汽车材料与金属加工课件作者高美兰第1章节金属的性能.ppt
- TMS320C54xDSP原理及应用课件作者乔瑞萍第8章节DSP芯片应用第8章节DSP芯片应用.ppt
- UGNX6基础教程课件作者978-7-302-20642-2第1章节NX6概述.ppt
- 数据库原理与应用课件作者陆慧娟主编吴达胜刘建平黄长城副主编第6章节数据库的安全性与完整性.ppt
- UGNX6基础教程课件作者978-7-302-20642-2第2章节NX6建模基础.ppt
- 数据库原理与应用课件作者陆慧娟主编吴达胜刘建平黄长城副主编第7章节数据库设计.ppt
- UGNX6基础教程课件作者978-7-302-20642-2第3章节草图绘制.ppt
- 数据库原理与应用课件作者陆慧娟主编吴达胜刘建平黄长城副主编第8章节数据库设计的典型案例.ppt
- 数控机床编程与操作课件作者李传军卢相中10 SIEMENS802S数控铣床编程与操作.ppt
- 汽车电器与电子技术课件作者孙仁云_第二章节汽车供电系统.ppt
- Windows应用程序设计案例教程湖南省教育科学“十一五”规划重点资助课题研究成果教材课件陈承欢第8章节名片管理应用程序设计.ppt
- 汽车电器与电子技术课件作者孙仁云_第九章节汽车自动变速器.ppt
- 数控机床编程与操作课件作者李传军卢相中11 FANUC加工中心编程与操作.ppt
- Windows应用程序设计案例教程湖南省教育科学“十一五”规划重点资助课题研究成果教材课件陈承欢第9章节图书管理应用程序设计.ppt
- 汽车电器与电子技术课件作者孙仁云_第七章节汽车电器设备总线路.ppt
- Windows应用程序设计案例教程湖南省教育科学“十一五”规划重点资助课题研究成果教材课件陈承欢第10章节Windows应用程序设计综合实训.ppt
- 汽车电器与电子技术课件作者孙仁云_第三章节起动机.ppt
- Word2007 Excel2007实用教程机房版课件作者刘晓杰高长铎赛荣第1讲Word2007的基本操作.ppt
最近下载
- 家政讲师师资培训课件.ppt
- 细菌群体感应信号分子及其检测方法.docx VIP
- 【基于企业作业成本法的企业成本控制研究的国内外文献综述4000字】.docx VIP
- 2025年中级注册安全工程师之安全生产技术基础题库(考试直接用).docx VIP
- 10.2捍卫国家利益课件.pptx VIP
- 2025年中级注册安全工程师之安全生产技术基础题库及参考答案【考试直接用】.docx VIP
- 人教版物理九年级上册《第十六章 电压 电阻》大单元整体教学设计.docx
- 中文书名《我的姐姐罗莎琳·富兰克林》.doc VIP
- 2025年中级注册安全工程师之安全生产技术基础考试题库附参考答案【考试直接用】.docx VIP
- 【MOOC期末】《中国马克思主义与当代》(北京科技大学)期末慕课答案.docx VIP
文档评论(0)