Visual BasicNET程序设计教程第11章.pptVIP

图11-7 向工具箱中添加新的控件 图11-8 添加了新控件后的工具箱 程序如下： Private Sub DriveListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DriveListBox1.SelectedIndexChanged ‘改变驱动器列表框中选定项(的序号)将触发 DriveListBox1_SelectedIndexChanged这个事件 DirListBox1.Path = DriveListBox1.Drive 文件夹列表框总是随驱动器列表框内容的改变而发生改变，与驱动器列表框保持一致性 End Sub Private Sub DirListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DirListBox1.SelectedIndexChanged ‘改变文件夹列表框中选定项(的序号)将触发DirListBox1_SelectedIndexChanged这个事件 FileListBox1.Path = DirListBox1.Path 文件列表框总是随文件夹列表框内容的改变而发生改变，与文件夹列表框保持一致性 End Sub 以上两个过程保证驱动器列表框、文件夹列表框、文件列表框保持协调、一致动作 Private Sub FileListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FileListBox1.SelectedIndexChanged 在文件列表框中选定一个文件触发事件FileListBox1_SelectedIndexChanged Dim comp As String = Microsoft.VisualBasic.Right(DirListBox1.Path, 1) Dim fullname As String 选定文件的完整路径 On Error GoTo en If comp \ Then fullname = DirListBox1.Path \ FileListBox1.FileName 非根目录的路径(DirListBox1.Path)不含有“\”，此时要用“\”将文件路径和文件名 连接成完整的文件名(含路径和文件名) Else fullname = DirListBox1.Path FileListBox1.FileName 如果是根目录，则路径(DirListBox1.Path)包含“\”，此时直接将路径和文件名连接就 是文件的完整文件名(含路径和文件名) End If Dim fi As New FileInfo(fullname) 定义fi为类FileInfo变量 TextBox1.Text = fullname 文件名称 TextBox2.Text = fi.Length 文件大小 TextBox3.Text = fi.CreationTime 文件建立时间 check(fi) 文件属性 en: End Sub Private Sub check(ByVal fi As Object) 此自定义过程很简单，在此不做详细讲解 CheckBox1.Checked = False CheckBox2.Checked = False CheckBox3.Checked = False CheckBox4.Checked = False Select Case (fi.attributes) Case 32 CheckBox1.Checked = True Case 2