一个简单打开D盘所有文件夹和文件的例子以及动态创建双击事件

来源：互联网发布：淘宝售假次数会清零吗编辑：程序博客网时间：2024/04/29 11:43

'一个简单打开D盘所有文件夹和文件的例子以及动态创建双击事件,资料http://msdn.microsoft.com/zh-cn/library/ms171645(v=vs.90).aspx    Dim ListView1 As New ListView    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load        AddHandler ListView1.DoubleClick, AddressOf ListView1_DoubleClick        ListView1.Parent = Me        ListView1.Size = New Size(200, 200)        BL(".")    End Sub    Private Sub BL(ByVal Subject As String)        Dim nodeDirInfo As New DirectoryInfo("d:\")        Dim subItems() As ListViewItem.ListViewSubItem        Dim item As ListViewItem = Nothing        Dim dir As DirectoryInfo        For Each dir In nodeDirInfo.GetDirectories()            item = New ListViewItem(dir.Name, 0)            subItems = New ListViewItem.ListViewSubItem() _                {New ListViewItem.ListViewSubItem(item, "Directory"), _                New ListViewItem.ListViewSubItem(item, _                dir.LastAccessTime.ToShortDateString())}            item.SubItems.AddRange(subItems)            ListView1.Items.Add(item)        Next dir        Dim file As FileInfo        For Each file In nodeDirInfo.GetFiles()            item = New ListViewItem(file.Name, 1)            subItems = New ListViewItem.ListViewSubItem() _                {New ListViewItem.ListViewSubItem(item, "File"), _                New ListViewItem.ListViewSubItem(item, _                file.LastAccessTime.ToShortDateString())}            item.SubItems.AddRange(subItems)            ListView1.Items.Add(item)        Next file    End Sub    Private Sub ListView1_DoubleClick(sender As Object, e As EventArgs)        Dim Url As String = ListView1.SelectedItems.Item(0).Tag        Dim HE As Boolean = IO.Path.HasExtension(Url)        If HE Then            Process.Start(Url)        Else            BL(Url)        End If    End Sub

0 0