Visual Basic程序设计项目化案例教程 作者 王萍 8-13_ 第11章.pptVIP

　　一、案例效果　　程序运行后，用户可以在驱动器列表框中选择目标文件的路径，并且文件列表框能过滤出所有的文本文件。当用户在文件列表框中单击某文本的文件名后，在Text1中显示文件名(包括路径)，在Text2中显示该文件的内容。当用户在文件列表框中双击某文件名后，调用记事本程序对文本文件进行编辑。本案例的界面设计如图11-1所示。 　　二、技术分析　　1．驱动器列表框(DriveListBox)　　驱动器列表框是一个下拉式列表框。当此列表框处于缺省状态时，显示用户系统当前驱动器名称。当用户单击列表框右侧的箭头时，列表框下拉列出系统所有的有效驱动器名称。 　　1) 常用属性　　(1)? Name属性。Name属性通常采用“Drv”作为驱动器列表框控件名的前缀。缺省时，Name属性值为“Drive1”。　　(2)? Drive属性。Drive属性是在程序运行时所使用的属性，该属性用于返回用户在驱动器列表框中选中的驱动器。在程序运行时，可以通过赋值语句改变Drive属性值，从而指定出现在列表框顶端的驱动器。　　如：Drive1.Drive=D:\ 　　2) 常用事件　　常用事件为Change事件。当用户在驱动器列表框的下拉列表中选择一个驱动器，或输入一个合法的驱动器标识符，或在程序中给Drive属性赋一个新的值时就会触发Change事件。 　　2．目录列表框　　目录列表框显示系统的当前驱动器目录结构，并突出显示当前目录。　　1) 常用属性　　(1)? Name属性。目录列表框的Name属性通常以“Dir”　作为前缀。缺省时，Name属性为“Dir1”。　　(2) ?Path属性。该属性用来设置和返回目录列表框中的当前目录。它只能在程序代码中设置，不能在属性窗口中设置。 　　其语句格式为：　　目录列表框名.Path=路径　　如：Dir1.Path=”C:\Program File\VisualStudio”　　说明：　　① 当用户单击目录列表框中的某一目录项时，该目录项被突出显示，但是此次操作并没有改变Path属性值。而双击目录列表框中某一项时，则该目录项的路径就赋给了Path属性，这个目录项就变成了当前目录。 　　② 目录列表框中只能显示当前驱动器上的目录，所以当改变驱动器列表框中的当前驱动器时，目录列表框中显示的目录内容也应当随之改变。因此需要使用下面的语句将驱动器列表框的Drive属性值赋给目录列表框的Path属性：　　目录列表框名.Path=驱动器列表框名.Drive　　例如：　　Private Sub Drive1_Change( )　　 Dir1.Path=Drive1.Drive　　End Sub 　　2) 常用事件　　Change事件是目录列表框控件的最基本事件之一。当用户双击目录列表框中的目录项，或在程序中通过赋值语句改变Path属性值时，均会触发该事件。　　3．文件列表框　　1) 常用属性　　(1)? Name属性。文件列表框的Name属性通常以“File”作为前缀。缺省时，Name属性为“File1”。　　(2)? Path属性。该属性用来设置和返回文件列表框中所显示文件的路径。它是一个运行时属性，在程序代码中可以通过如下语句来改变Path属性值。　　如：File.Path=路径 或 File1.Path=Dir1.Path 　　(3)? Pattern属性。该属性用来设置程序运行时文件列表框中需要显示的文件类型。它可以在设计阶段用属性窗口来设置，也可以通过程序代码设置。缺省时Pattern属性值为“*.*”(显示所有文件)。　　用程序代码设置Pattern属性的语句格式为：　　[窗体.] 文件列表框名.Pattern=属性值[；属性值…]　　例如：　　File1.Pattern=“*.txt”　　此语句的功能是设置文件列表框中只显示扩展名为“.txt”的文件，即文本文件。 　　(4)? FileName属性。该属性用来设置和返回文件列表框中将显示的文件名称，并且文件名称可以带有路径。FileName属性是运行时属性，只能在程序代码中设置。其语句格式为：　　[窗体名.]文件列表框名.FileName=文件名称　　例如：　　File1.FileName=”E:\*.txt”　　执行此语句后，在文件列表框中显示E盘根目录下的所有扩展名为“.txt”的文件。 　　(5)? ListCount属性。该属性返回控件内所列项目的总数。它是运行时属性，只能在程序代码中使用。　　例如：　　　Print File1.ListCount　　此语句用来显示文件列表框中所列文件总数。 　　(6)? ListIndex属性。该属性用来设置或