一个简单打开D盘所有文件夹和文件的例子以及动态创建双击事件
'一个简单打开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