Windows应用程序设计案例教程第7章 资源管理器应用程序设计.pptVIP

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() = True Next listViewList.Focus() 8．编写快捷菜单项【详细信息】的contextMenuItemParticularInfo的Click事件过程的程序代码 该程序代码如下所示。 menuItemParticularInfo.PerformClick() 7.5.7　工具栏按钮的功能实现与编码 1．编写工具栏ToolBar1的ButtonClick事件过程的程序代码 该程序代码如表7-29所示。 表7-29 工具栏ToolBar1的ButtonClick事件过程的程序代码 序 号 程 序 代 码 01 02 03 04 05 06 07 08 Select Case e.Butt